| 
**************************************************************** * * * API: QWDRJOBD * * FORMAT: JOBD0100 * * * **************************************************************** 01 JOBD0100-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 JOB-DESCRIPTION-NAME PIC X(10). 05 JOB-DESCRIPTION-LIBRARY PIC X(10). 05 USER-NAME PIC X(10). 05 JOB-DATE PIC X(08). 05 JOB-SWITCHES PIC X(08). 05 JOB-QUEUE-NAME PIC X(10). 05 JOB-QUEUE-LIBRARY PIC X(10). 05 JOB-QUEUE-PRIORITY PIC X(02). 05 HOLD-ON-JOB-QUEUE PIC X(10). 05 OUTPUT-QUEUE-NAME PIC X(10). 05 OUTPUT-QUEUE-LIBRARY PIC X(10). 05 OUTPUT-QUEUE-PRIORITY PIC X(02). 05 PRINTER-DEVICE-NAME PIC X(10). |
|
05 PRINT-TEXT PIC X(30). 05 SYNTAX-CHECK-SEVERITY PIC S9(9) COMP-4. 05 END-SEVERITY PIC S9(9) COMP-4. 05 MESSAGE-LOGGING-SEVERITY PIC S9(9) COMP-4. 05 MESSAGE-LOGGING-LEVEL PIC X(01). 05 MESSAGE-LOGGING-TEXT PIC X(10). 05 LOGGING-OF-CL-PROGRAMS PIC X(10). 05 INQUIRY-MESSAGE-REPLY PIC X(10). 05 DEVICE-RECOVERY-ACTION PIC X(13). 05 TIME-SLICE-END-POOL PIC X(10). 05 ACCOUNTING-CODE PIC X(15). 05 ROUTING-DATA PIC X(80). 05 TEXT-DESCRIPTION PIC X(50). 05 RESERVED1 PIC X(01). 05 OFFSET-TO-LIBRARY-LIST PIC S9(9) COMP-4. 05 NUMBER-OF-LIBRARIES PIC S9(9) COMP-4. 05 OFFSET-TO-REQUEST-DATA PIC S9(9) COMP-4. 05 LENGTH-OF-REQUEST-DATA PIC S9(9) COMP-4. * pour retrouver la liste de bibliothèques 05 reste pic x(275) 01 libl 05 une-bib pic x(11) occurs 1 to 25 depending on nbl. |
|
77 nbl pic s9(4). 77 deplibl pic s9(5). 77 lglibl pic s9(5). * en cours de traitement add 1 to OFFSET-TO-LIBRARY-LIST giving deplibl. move number-of-librairies to nbl. multiply number-of-librairies by 11 giving lglibl. move JOBD0100-RCVVAR(deplibl:lglibl) to libl. I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTAVL I 9 18 JDNAME I 19 28 JDLIB I 29 38 USRNAM I 39 46 JOBDAT I 47 54 JOBSWI I 55 64 JQNAME I 65 74 JQLIB I 75 76 JQPRTY I 77 86 HOLDJQ I 87 96 OQNAME |
|
I 97 106 OQLIB I 107 108 OQPRTY I 109 118 PDEVNA I 119 148 PTEXT I B 149 1520SYNSEV I B 153 1560ENDSEV I B 157 1600MSGSEV I 161 161 MSGLVL I 162 171 MSGTXT I 172 181 LOGCL I 182 191 INQMSG I 192 204 DEVREC I 205 214 TIMSLC I 215 229 ACTCOD I 230 309 RTDATA I 310 359 TXTDES I 360 360 RESER1 I B 361 3640OFFLIB I B 365 3680NUMLIB I B 369 3720OFFREQ I B 373 3760LENREQ * pour retrouver la liste de bibliothèques |
|
I 377 651 LIBL (11 * 25 = 275) * en cours de traitement C OFFLIB ADD 1 D 40 C NUMLIB MULT 11 LG 40 C LG SUBSTLIBL:D xxx |
