Code: |
05 CB-NORECIP PIC 9(02). 05 CB-RECSEC. 10 FILLER PIC X(02). 10 CB-G-R-ID PIC 9(08). 10 FILLER PIC X(01). 10 CB-NEG-NOTICE PIC X(01). 10 FILLER PIC X(348). 05 CB-RSEC REDEFINES CB-RECSEC. 10 CB-RECIPSEC OCCURS 30 TIMES. 15 FILLER PIC X(02). 15 CB-R-ID PIC 9(08). 15 FILLER PIC X(02). |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours