On Connect:Direct and/or Mainframe systems, a Copybook contains variable declarations (record layouts).
01 (*) - RETIREE-LIST-HDR | (blank cell) |
05 (*) - RECORD-TYPE | PIC X(01) |
88 (*) - HEADER | VALUE 'H' |
05 (*) - APPLICATION-ID | PIC X(10) |
05 (*) - TRANSMIT-DATE | PIC X(08) |
05 (*) - TRANSMIT-TIME | PIC X(06) |
05 (*) - RECORD-COUNT | PIC 9(07) |
05 FILLER | PIC X(27) |
01 (*) - RETIREE-LIST-TRL | (blank cell) |
05 (*) - RECORD-TYPE | PIC X(01) |
88 (*) - TRAILER | VALUE 'T' |
05 (*) - APPLICATION-ID | PIC X(10) |
05 (*) - TRANSMIT-DATE | PIC X(08) |
05 (*) - TRANSMIT-TIME | PIC X(06) |
05 (*) - RECORD-COUNT | PIC 9(07) |
05 FILLER | PIC X(27) |
01 (*) - RETIREE-ENTRY | (blank cell) |
02 (*) - RETIREE-RECORD | (blank cell) |
05 (*) - RECORD-TYPE | PIC X(01) |
88 (*) - DETAIL | VALUE 'D' |
05 (*) - BENE-SSN | PIC X(09) |
05 (*) - BENE-MEDICARE-BENEFICIARY-IDENTIFIER | PIC X(12) |
05 (*) - BENE-FIRST-NAME | PIC X(30) |
05 (*) - BENE-INITIAL | PIC X(01) |
05 (*) - BENE-LAST-NAME | PIC X(40) |
05 (*) - BENE-BIRTH-DATE | PIC X(08) |
05 (*) - BENE-SEX-CODE | PIC X(01) |
88 (*) - SEX-UNKNOWN | VALUE '0' |
88 (*) - MALE | VALUE '1' |
88 (*) - FEMALE | VALUE '2' |
05 (*) - COVG-EFF-DATE | PIC X(08) |
05 (*) - COVG-TERM-DATE | PIC X(08) |
05 (*) - RX-GROUP-NUMBER | PIC X(20) |
05 (*) - BENE-RELATIONSHIP | PIC X(02) |
88 (*) - SELF | VALUE '01' |
88 (*) - SPOUSE | VALUE '02' |
88 (*) - OTHER | VALUE '03' |
05 (*) - RECORD-ACTION | PIC X(03) |
88 (*) - ADD | VALUE 'ADD' |
88 (*) - UPDATE | VALUE 'UPD' |
88 (*) - DELETE | VALUE 'DEL' |