Monday, May 17, 2010

Poem for 21century love - a work in progress

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: