Arts

Arts

Lyndie Blevins blogging from Sage-Texas where you can expect greater things to come

Poem for 21century love - a work in progress (COBOL)

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.

FDLIFE-BEING-FILE

LABEL RECORDS ARE OMITTED.

01 PARTNER-REC.

05 NAME.

10 FIRST  PIC X(10).

10 LAST   PIC X(20).

05 GENDER-TYPEPIC 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 BIRTHDAYPIC 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-DEATHPIC 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-MALEPIC 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-MALEPIC 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-MALEPIC X.

05 TRANSIT-MALE PIC X(10).

05 YEARLY-INCOME-MALE PIC 999,999,999.

05 BIRTHDAY-MALEPIC X(12).

05 CURRENT-CITY-MALE PIC X(20).

05 CURRENT-STATE-MALE PIC X(20).

05 CURRENT-ZIP-MALEPIC X(10).

05 FACEBOOK-STATUS-MALE PIC X(30).

05 TWITTER-STATUS-MALE PIC X(30).

05 DATE-OF-DEATH-MALEPIC X(12).

 

FDFEMALE-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-FEMALEPIC 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-FEMALEPIC X.

05 TRANSIT-FEMALE PIC X(10).

05 YEARLY-INCOME-FEMALE PIC 999,999,999.

05 BIRTHDAY-FEMALEPIC X(12).

05 CURRENT-CITY-FEMALE PIC X(20).

05 CURRENT-STATE-FEMALE PIC X(20).

05 CURRENT-ZIP-FEMALEPIC X(10).

05 FACEBOOK-STATUS-FEMALE PIC X(30).

05 TWITTER-STATUS-FEMALE PIC X(30).

05 DATE-OF-DEATH-FEMALEPIC X(12).

 

 

FDLIFE-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-CHANGESPIC 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-CHANGESPIC X.

05 TRANSIT-CHANGES PIC X(10).

05 YEARLY-INCOME-CHANGES PIC 999,999,999.

05 BIRTHDAY-CHANGESPIC X(12).

05 CURRENT-CITY-CHANGES PIC X(20).

05 CURRENT-STATE-CHANGES PIC X(20).

05 CURRENT-ZIP-CHANGESPIC X(10).

05 FACEBOOK-STATUS-CHANGES PIC X(30).

05 TWITTER-STATUS-CHANGES PIC X(30).

05 DATE-OF-DEATH-CHANGESPIC 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

Location (Map)

Duncanville, TX, USA
Rate this blog entry:
My Mark - my challenge
Review of LIFE IN DEFINACE

Related Posts

Comments

 
No comments made yet. Be the first to submit a comment
Already Registered? Login Here
Guest
Thursday, 23 November 2017

Captcha Image

  • fr-FR
  • English (UK)

Where We Are Located

Lyndie Blevins

P.O. Box 381029
Duncanville, Tx 75138
LyndieBlevins@guidingwind.com

Quick Views

Login