| 
**************************************************************** * * * API: QUSLMBR * * Format: FLDL0100 * * * **************************************************************** 01 MBRL0100-INPUT. 05 USER-SPACE PIC X(20). 05 FORMAT-SPECIFIED PIC X(08). 05 FILLIB-SPECIFIED. 10 FILE-NAME-SPECIFIED PIC X(10). 10 LIBRARY-SPECIFIED PIC X(10). 05 RECORD-NAME-SPECIFIED PIC X(10). 05 OVERRIDE PIC X(01). 01 FLDL0100-HEADER. 05 FILE-NAME-RETURNED PIC X(10). 05 LIBRARY-RETURNED PIC X(10). 05 FILE-ATTRIBUTE PIC X(10). 05 RECORD-RETURNED PIC X(10). 05 RECORD-LENGTH PIC S9(9) COMP-4. 05 RECORD-ID PIC X(13). 05 RECORD-TEXT PIC X(50). |
|
01 FLDL0100-LIST. 05 FIELD-NAME PIC X(10). 05 DATA-TYPE PIC X(1). 05 USAGE PIC X(1). 05 OUT-BUFFER-POS PIC S9(9) COMP-4. 05 INP-BUFFER-POS PIC S9(9) COMP-4. 05 LENGTH-IN-BYTE PIC S9(9) COMP-4. 05 DIGITS PIC S9(9) COMP-4. 05 DECIMAL-POS PIC S9(9) COMP-4. 05 TEXTE PIC X(50). 05 EDTCDE PIC X(2). 05 EDTWRD-LENGTH PIC S9(9) COMP-4. 05 EDTWRD PIC X(64). 05 COLHDG1 PIC X(20). 05 COLHDG2 PIC X(20). 05 COLHDG3 PIC X(20). **************************************************************** IINPUT DS I 1 20 USRSPC I 1 10 SPCNAM I 11 20 SPCLIB I 21 28 OUTFMT |
|
I 29 48 FILLII I 29 38 FILNAI I 39 48 FILLBI I 49 58 RCDFMI I 59 59 OVRRID IHEADER DS I 1 20 FILLIH I 1 10 FILNAH I 11 20 FILLBH I 21 30 FILTYP I 31 40 RCDFMH I B 41 440RCDLEN I 45 57 RCDID I 58 107 TEXT ILIST DS I 1 10 FLDNAM I 11 11 DTATYP I 12 12 USAGE I B 13 160OUTBUF I B 17 200INPBUF I B 21 240FLDLEN I B 25 280DIGITS |
|
I B 29 320DECPOS I 33 82 DESCR I 83 84 EDTCDE I B 85 880EDTLEN I 89 152 EDTWRD I 153 172 COLHD1 I 173 192 COLHD2 I 193 212 COLHD3 |
