On Connect:Direct and/or Mainframe systems, a Copybook contains variable declarations (record layouts).
RDS RETIREE LIST HEADER FROM/TO PLAN SPONSOR
| 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) |
RDS RETIREE LIST TRAILER FROM/TO PLAN SPONSOR
| 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) |
RDS RETIREE LIST DETAIL FROM/TO PLAN SPONSOR
|
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' |
Return to top
