| 
**************************************************************** * * * Data Structure For API: QSPRWTRI * * Format: WTRI0100 * * Language: Cobol * * * **************************************************************** 01 WTRI0100-LIST. 05 BYTES-RETURN PIC S9(9) COMP-4. 05 BYTES-AVAIL PIC S9(9) COMP-4. 05 STARTED-BY-USER PIC X(10). 05 WRITING-STATUS PIC X(1). 05 MESSAGE-WAIT-STATUS PIC X(1). 05 HELD-STATUS PIC X(1). 05 END-PENDING-STATUS PIC X(1). 05 HOLD-PENDING-STATUS PIC X(1). 05 BETWEEN-FILES-STATUS PIC X(1). 05 BETWEEN-COPIES-STATUS PIC X(1). 05 WAIT-FOR-DATA-STATUS PIC X(1). 05 WAIT-FOR-DEV-STATUS PIC X(1). 05 ON-JOB-QUEUE-STATUS PIC X(1). 05 RESERVED1 PIC X(4). |
|
05 WRITER-JOB-NAME PIC X(10). 05 WRITER-JOB-USER PIC X(10). 05 WRITER-JOB-NUMBER PIC X(6). 05 PRINTER-DEVICE-TYPE PIC X(10). 05 NUMBER-OF-SEPARATORS PIC S9(9) COMP-4. 05 DRAWER-FOR-SEPARATORS PIC S9(9) COMP-4. 05 ALIGN-FORMS PIC X(10). 05 OUTPUT-QUEUE-NAME PIC X(10). 05 OUTPUT-QUEUE-LIB PIC X(10). 05 OUTPUT-QUEUE-STATUS PIC X(1). 05 RESERVED2 PIC X(1). 05 FORM-TYPE PIC X(10). 05 MESSAGE-OPTION PIC X(10). 05 AUTO-END-OPTION PIC X(10). 05 ALLOW-DIRECT-PRINT PIC X(10). 05 MESSAGE-QUEUE-NAME PIC X(10). 05 MESSAGE-QUEUE-LIB PIC X(10). 05 RESERVED3 PIC X(2). 05 CHANGES-TAKE-EFFECT PIC X(10). 05 NEXT-OUTPUT-Q-NAME PIC X(10). 05 NEXT-OUTPUT-Q-LIB PIC X(10). 05 NEXT-FORM-TYPE PIC X(10). |
|
05 NEXT-MESSAGE-OPTION PIC X(10). 05 NEXT-NUMBER-OF-SEPS PIC S9(9) COMP-4. 05 NEXT-DRAWER-FOR-SEPS PIC S9(9) COMP-4. 05 SPOOLED-FILE-NAME PIC X(10). 05 JOB-NAME PIC X(10). 05 USER-NAME PIC X(10). 05 JOB-NUMBER PIC X(6). 05 SPOOLED-FILE-NUMBER PIC S9(9) COMP-4. 05 PAGE-BEING-WRITTEN PIC S9(9) COMP-4. 05 TOTAL-PAGES PIC S9(9) COMP-4. 05 COPIES-LEFT PIC S9(9) COMP-4. 05 TOTAL-COPIES PIC S9(9) COMP-4. I**************************************************************** I* * I* DATA STRUCTURE FOR API: QSPRWTRI * I* FORMAT: WTRI0100 * I* LANGUAGE: RPG * I* * I**************************************************************** IWTRFMT DS I B 1 40BYTRET |
|
I B 5 80BYTAVL I 9 18 STRUSR I 19 19 WTRSTS I 20 20 MSGSTS I 21 21 HLDSTS I 22 22 EPDSTS I 23 23 HPDSTS I 24 24 BTFSTS I 25 25 BTCSTS I 26 26 WTDSTS I 27 27 WTDDEV I 28 28 OJQSTS I 29 32 RES1 I 33 42 WTRJNM I 43 52 WTRJUS I 53 58 WTRJNB I 59 68 PRTDVT I B 69 720NBSEP I B 73 760SEPDR I 77 86 ALGFRM I 87 96 OUTQN I 97 106 OUTQL |
|
I 107 107 OUTQST I 108 108 RES2 I 109 118 FRMTP I 119 128 MSGOP I 129 138 AUTEND I 139 148 ALWDPR I 149 158 MSGQN I 159 168 MSGQL I 169 170 RES3 I 171 180 CHGEFF I 181 190 NOUTQN I 191 200 NOUTQL I 201 210 NFRMTP I 211 220 NMSGOP I B 221 2240NNBSEP I B 225 2280NSEPDR I 229 238 FILNAM I 239 248 JOBNAM I 249 258 JOBUSR I 259 264 JOBNBR I B 265 2680FILNBR I B 269 2720PAGWTR |
|
I B 273 2760TOTPAG I B 277 2800CPLEFT I B 281 2840TOLCPS |
