IDENTIFICATION DIVISION.
PROGRAM-ID.
LIFE0001.
DATE-WRITTEN.
16 MAY 2010.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT LIFE-BEING-FILE ASSIGN TO MORTAL-READER.
SELECT LIFE-CHANGES-FILE ASSIGN TO KARMA-READER.
SELECT LIFE-FILE ASSIGN TO DESTINY-PRINTER.
DATA DIVISION.
FILE SECTION.
FD LIFE-BEING-FILE
LABEL RECORDS ARE OMITTED.
01 PARTNER-REC.
05 NAME.
10 FIRST PIC X(10).
10 LAST PIC X(20).
05 GENDER-TYPE PIC X VALUE SPACES.
05 AGE PIC 999.
05 EDUCATION PIC XXX.
05 EDUCATION-STATUS PIC X.
05 ALUMNI PIC X(20).
05 FATHER.
10 FATHER-FIRST PIC X(10).
10 FATHER-LAST PIC X(20).
05 MOTHER.
10 MOTHER-FIRST PIC X(10).
10 MOTHER-LAST PIC X(20). 05 MARTIAL-STATUS PIC X.
05 NUMBER-OF-MARRIAGE PIC 99.
05 NUMBER-OF-CHILDREN PIC 99.
05 JOB PIC XX.
05 WORKING-STATUS PIC X.
05 EMOTIONAL-STATUS PIC XX.
05 HOUSING PIC X.
05 TRANSIT PIC X(10).
05 YEARLY-INCOME PIC 999,999,999.
05 BIRTHDAY PIC X(12).
05 CURRENT-CITY PIC X(20).
05 CURRENT-STATE PIC X(20).
05 CURRENT-ZIP PIC X(10).
05 FACEBOOK-STATUS PIC X(30).
05 TWITTER-STATUS PIC X(30).
05 DATE-OF-DEATH PIC X(12).
FD MALE-PARTNER-FILE
LABEL RECORDS ARE OMITTED.
01 MALE-PARTNER-REC.
05 MALE-NAME.
10 MALE-FIRST PIC X(10).
10 MALE-LAST PIC X(20).
05 GENDER-TYPE-MALE PIC X VALUE ‘M’.
05 AGE-OF-MALE PIC 999.
05 EDUCATION-OF-MALE PIC XXX.
05 EDUCATION-STATUS-MALE PIC X.
05 ALUMNI-MALE PIC X(20).
05 FATHER-OF-MALE.
10 FATHER-OF-MALE-FIRST PIC X(10).
10 FATHER-OF-MALE-LAST PIC X(20).
05 MOTHER-OF-MALE.
10 MOTHER-OF-MALE-FIRST PIC X(10).
10 MOTHER-OF-MALE-LAST PIC X(20). 05 MARTIAL-STATUS-MALE PIC X.
05 NUMBER-OF-MARRIAGE-MALE PIC 99.
05 NUMBER-OF-CHILDREN-MALE PIC 99.
05 JOB-OF-MALE PIC XX.
05 WORKING-STATUS-MALE PIC X.
05 EMOTIONAL-STATUS-MALE PIC XX.
05 HOUSING-MALE PIC X.
05 TRANSIT-MALE PIC X(10).
05 YEARLY-INCOME-MALE PIC 999,999,999.
05 BIRTHDAY-MALE PIC X(12).
05 CURRENT-CITY-MALE PIC X(20).
05 CURRENT-STATE-MALE PIC X(20).
05 CURRENT-ZIP-MALE PIC X(10).
05 FACEBOOK-STATUS-MALE PIC X(30).
05 TWITTER-STATUS-MALE PIC X(30).
05 DATE-OF-DEATH-MALE PIC X(12).
FD FEMALE-PARTNER-FILE
LABEL RECORDS ARE OMITTED.
01 FEMALE-PARTNER-REC.
05 FEMALE-NAME.
10 FEMALE-FIRST PIC X(10).
10 FEMALE-LAST PIC X(20).
05 GENDER-TYPE-FEMALE PIC X VALUE ‘F’.
05 AGE-OF-FEMALE PIC 999.
05 EDUCATION-OF-FEMALE PIC XXX.
05 EDUCATION-STATUS-FEMALE PIC X.
05 ALUMNI-FEMALE PIC X(20).
05 FATHER-OF-FEMALE.
10 FATHER-OF-FEMALE-FIRST PIC X(10).
10 FATHER-OF-FEMALE-LAST PIC X(20).
05 MOTHER-OF-FEMALE.
10 MOTHER-OF-FEMALE-FIRST PIC X(10).
10 MOTHER-OF-FEMALE-LAST PIC X(20). 05 MARTIAL-STATUS-FEMALE PIC X.
05 NUMBER-OF-MARRIAGE-FEMALE PIC 99.
05 NUMBER-OF-CHILDREN-FEMALE PIC 99.
05 JOB-OF-FEMALE PIC XX.
05 WORKING-STATUS-FEMALE PIC X.
05 EMOTIONAL-STATUS-FEMALE PIC XX.
05 HOUSING-FEMALE PIC X.
05 TRANSIT-FEMALE PIC X(10).
05 YEARLY-INCOME-FEMALE PIC 999,999,999.
05 BIRTHDAY-FEMALE PIC X(12).
05 CURRENT-CITY-FEMALE PIC X(20).
05 CURRENT-STATE-FEMALE PIC X(20).
05 CURRENT-ZIP-FEMALE PIC X(10).
05 FACEBOOK-STATUS-FEMALE PIC X(30).
05 TWITTER-STATUS-FEMALE PIC X(30).
05 DATE-OF-DEATH-FEMALE PIC X(12).
FD LIFE-CHANGES-FILE
LABEL RECORDS ARE OMITTED.
01 LIFE-CHANGES-REC.
05 CHANGES-NAME.
10 CHANGES-FIRST PIC X(10).
10 CHANGES-LAST PIC X(20).
05 GENDER-TYPE-CHANGES PIC X VALUE SPACES.
05 AGE-OF-CHANGES PIC 999.
05 EDUCATION-OF-CHANGES PIC XXX.
05 EDUCATION-STATUS-CHANGES PIC X.
05 ALUMNI-CHANGES PIC X(20).
05 FATHER-OF-CHANGES.
10 FATHER-OF-CHANGES-FIRST PIC X(10).
10 FATHER-OF-CHANGES-LAST PIC X(20).
05 MOTHER-OF-CHANGES.
10 MOTHER-OF-CHANGES-FIRST PIC X(10).
10 MOTHER-OF-CHANGES-LAST PIC X(20). 05 MARTIAL-STATUS-CHANGES PIC X.
05 NUMBER-OF-MARRIAGE-CHANGES PIC 99.
05 NUMBER-OF-CHILDREN-CHANGES PIC 99.
05 JOB-OF-CHANGES PIC XX.
05 WORKING-STATUS-CHANGES PIC X.
05 EMOTIONAL-STATUS-CHANGES PIC XX.
05 HOUSING-CHANGES PIC X.
05 TRANSIT-CHANGES PIC X(10).
05 YEARLY-INCOME-CHANGES PIC 999,999,999.
05 BIRTHDAY-CHANGES PIC X(12).
05 CURRENT-CITY-CHANGES PIC X(20).
05 CURRENT-STATE-CHANGES PIC X(20).
05 CURRENT-ZIP-CHANGES PIC X(10).
05 FACEBOOK-STATUS-CHANGES PIC X(30).
05 TWITTER-STATUS-CHANGES PIC X(30).
05 DATE-OF-DEATH-CHANGES PIC X(12).
FD LIFE-FILE
05 LIFE-ACTIONS PIC X(300).
WORKING-STORAGE SECTION.
05 MORE-LIFE-CHANGES-SW PIC X’. 88 YES-MORE-LIFE-CHANGES PIC X VALUE ‘Y’.
88 NO-MORE-LIFE-CHANGES PIC X VALUE ‘N’.
PROCEDURE DIVISION.
LIFE-ROUTINE-01.
OPEN INPUT LIFE-BEING-FILE
LIFE-CHANGES-FILE
OUTPUT LIFE-ACTIONS.
READ
PERFORM 100-LIVE-LIFE UNTIL NO-MORE-LIFE-CHANGES.
100-LIVE-LIFE.
READ
No comments:
Post a Comment