| 
**************************************************************** * * * API: QUSRJOBI * * Format: JOBI0100 * * * **************************************************************** 01 JOBI0100-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 JOB. 10 JOB-NAME PIC X(10). 10 USER-NAME PIC X(10). 10 JOB-NUMBER PIC X(06). 05 INTERNAL-JOB-ID PIC X(16). 05 JOB-STATUS PIC X(10). 05 JOB-TYPE PIC X(01). 05 JOB-SUBTYPE PIC X(01). 05 FILLER PIC X(02). 05 RUN-PRIORITY PIC S9(9) COMP-4. 05 TIMESLICE PIC S9(9) COMP-4. 05 DEFAULT-WAIT PIC S9(9) COMP-4. 05 PURGE-PAG PIC X(10). |
|
**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 34 QJOBNM I 9 18 JOBNAM I 19 28 USRNAM I 29 34 JOBNBR I 35 50 INTID I 51 60 JOBSTS I 61 61 JOBTYP I 62 62 SUBTYP I 63 64 RESRV I B 65 680RUNPRI I B 69 720TIMSLI I B 73 760DFTWAI I 77 86 PURGE **************************************************************** * * * API: QUSRJOBI * * Format: JOBI0150 * * * |
|
**************************************************************** 01 JOBI0150-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 JOB. 10 JOB-NAME PIC X(10). 10 USER-NAME PIC X(10). 10 JOB-NUMBER PIC X(06). 05 INTERNAL-JOB-ID PIC X(16). 05 JOB-STATUS PIC X(10). 05 JOB-TYPE PIC X(01). 05 JOB-SUBTYPE PIC X(01). 05 FILLER PIC X(02). 05 RUN-PRIORITY PIC S9(9) COMP-4. 05 TIMESLICE PIC S9(9) COMP-4. 05 DEFAULT-WAIT PIC S9(9) COMP-4. 05 PURGE-PAG PIC X(10). 05 TIMESLICE-END-POOL PIC X(10). 05 CPU-TIME-USED PIC S9(9) COMP-4. 05 SYSTEM-POOL-ID PIC S9(9) COMP-4. * V2R30 05 MAXIMUM-CPU-TIME PIC S9(9) COMP-4. |
|
05 TEMPORARY-STORAGE-USED PIC S9(9) COMP-4. 05 MAXIMUM-TEMPORARY-STORAGE PIC S9(9) COMP-4. **************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 34 QJOBNM I 9 18 JOBNAM I 19 28 USRNAM I 29 34 JOBNBR I 35 50 INTID I 51 60 JOBSTS I 61 61 JOBTYP I 62 62 SUBTYP I 63 64 RESRV I B 65 680RUNPR1 I B 69 720TIMSL1 I B 73 760DFTWAI I 77 86 PURGE I 87 96 TSEPOL I B 97 1000CPUUSD I B 101 1040SYSPOL |
|
* V2R30 I B 105 1080MAXCPU I B 109 1120TMPSTG I B 113 1160MAXSTG **************************************************************** * * * API: QUSRJOBI * * Format: JOBI0200 * * * **************************************************************** 01 JOBI0200-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 JOB. 10 JOB-NAME PIC X(10). 10 USER-NAME PIC X(10). 10 JOB-NUMBER PIC X(06). 05 INTERNAL-JOB-ID PIC X(16). 05 JOB-STATUS PIC X(10). 05 JOB-TYPE PIC X(01). 05 JOB-SUBTYPE PIC X(01). 05 SUBSYSTEM-NAME PIC X(10). |
|
05 RUN-PRIORITY PIC S9(9) COMP-4. 05 SYSTEM-POOL-ID PIC S9(9) COMP-4. 05 CPU-TIME-USED PIC S9(9) COMP-4. 05 NUMBER-AUXIO PIC S9(9) COMP-4. 05 NUMBER-TRANSACTIONS PIC S9(9) COMP-4. 05 RESPONSE-TIME PIC S9(9) COMP-4. 05 FUNCTION-TYPE PIC X(01). 05 FUNCTION-NAME PIC X(10). 05 ACTIVE-JOB-STATUS PIC X(04). **************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 34 QJOBNM I 9 18 JOBNAM I 19 28 USRNAM I 29 34 JOBNBR I 35 50 INTID I 51 60 JOBSTS I 61 61 JOBTYP I 62 62 SUBTYP I 63 72 SBSNAM |
|
I B 73 760RUNPRI I B 77 800POOLID I B 81 840CPUUSE I B 85 880AUXREQ I B 89 920INTRAN I B 93 960RSPTIM I 97 97 FNCTYP I 98 107 FNCNAM I 108 111 ACTJOB **************************************************************** * * * API: QUSRJOBI * * Format: JOBI0300 * * * **************************************************************** 01 JOBI0300-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 JOB. 10 JOB-NAME PIC X(10). 10 USER-NAME PIC X(10). 10 JOB-NUMBER PIC X(06). |
|
05 INTERNAL-JOB-ID PIC X(16). 05 JOB-STATUS PIC X(10). 05 JOB-TYPE PIC X(01). 05 JOB-SUBTYPE PIC X(01). 05 JOB-QUEUE PIC X(10). 05 JOB-QUEUE-LIBRARY PIC X(10). 05 JOB-QUEUE-PRIORITY PIC X(02). 05 OUTPUT-QUEUE PIC X(10). 05 OUTPUT-QUEUE-LIBRARY PIC X(10). 05 OUTPUT-QUEUE-PRIORITY PIC X(02). 05 PRINT-DEVICE PIC X(10). 05 SUBMITTER-JOB. 10 SUBMITTER-JOB-NAME PIC X(10). 10 SUBMITTER-USER-NAME PIC X(10). 10 SUBMITTER-JOB-NUMBER PIC X(06). 05 SUBMITTER-MSGQ PIC X(10). 05 SUBMITTER-MSGQ-LIBRARY PIC X(10). * V2R30 05 STATUS-ON-JOB-QUEUE PIC X(10). 05 DATE-PUT-ON-JOB-QUEUE PIC X(08). 05 JOB-DATE PIC X(07). **************************************************************** |
|
IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 34 QJOBNM I 9 18 JOBNAM I 19 28 USRNAM I 29 34 JOBNBR I 35 50 INTID I 51 60 JOBSTS I 61 61 JOBTYP I 62 62 SUBTYP I 63 72 JOBQ I 73 82 JOBQLI I 83 84 JOBQPR I 85 94 OUTQ I 95 104 OUTQLI I 105 106 OUTQPR I 107 116 PRTDEV I 117 142 SBMJOB I 117 126 SBMJO1 I 127 136 SBMUSR I 137 142 SBMNBR |
|
I 143 152 MSGQ I 153 162 MSGQLI * V2R30 I 163 172 STSJBQ I 173 180 DTJOBQ I 181 187 JOBDAT **************************************************************** * * * API: QUSRJOBI * * Format: JOBI0400 * * * **************************************************************** 01 JOBI0400-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 JOB. 10 JOB-NAME PIC X(10). 10 USER-NAME PIC X(10). 10 JOB-NUMBER PIC X(06). 05 INTERNAL-JOB-ID PIC X(16). 05 JOB-STATUS PIC X(10). 05 JOB-TYPE PIC X(01). |
|
05 JOB-SUBTYPE PIC X(01). 05 DATE-ENTERED-SYSTEM PIC X(13). 05 DATE-BECAME-ACTIVE PIC X(13). 05 ACCOUNTING-CODE PIC X(15). 05 JOB-DESCRIPTION-NAME PIC X(10). 05 JOB-DESCRIPTION-LIBRARY PIC X(10). 05 UNIT-WORK-ID PIC X(24). 05 MODE-NAME PIC X(08). 05 INQUIRY-MESSAGE-REPLY PIC X(10). 05 LOG-CL-PROGRAMS PIC X(10). 05 BREAK-MESSAGE-HANDLING PIC X(10). 05 STATUS-MESSAGE-HANDLING PIC X(10). 05 DEVICE-RECOVERY-ACTION PIC X(13). 05 DDM-CONVERSATION-HANDLING PIC X(10). 05 DATE-SEPARATOR PIC X(01). 05 DATE-FORMAT PIC X(04). 05 PRINT-TEXT PIC X(30). 05 SUBMITTER-JOB. 10 SUBMITTER-JOB-NAME PIC X(10). 10 SUBMITTER-USER-NAME PIC X(10). 10 SUBMITTER-JOB-NUMBER PIC X(06). 05 SUBMITTER-MSGQ PIC X(10). |
|
05 SUBMITTER-MSGQ-LIBRARY PIC X(10). 05 TIME-SEPARATOR PIC X(01). 05 CODED-CHARACTER-SET-ID PIC S9(9) COMP-4. 05 SCHEDULED-DATE-TIME PIC X(08). 05 PRINT-KEY-FORMAT PIC X(10). * V2R30 05 SORT-SEQUENCE PIC X(10). 05 SORT-SEQUENCE-LIBRARY PIC X(10). 05 LANGUAGE-ID PIC X(03). 05 COUNTRY-ID PIC X(02). 05 COMPLETION-STATUS PIC X(01). 05 GUI-BATCH-JOB PIC X(01). **************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 34 QJOBNM I 9 18 JOBNAM I 19 28 USRNAM I 29 34 JOBNBR I 35 50 INTID I 51 60 JOBSTS |
|
I 61 61 JOBTYP I 62 62 SUBTYP I 63 75 ENTSYS I 76 88 ACTSYS I 89 103 ACCCDE I 104 113 JOBDNA I 114 123 JOBDLI I 124 147 WORKID I 148 155 MODNAM I 156 165 INQMSG I 166 175 LOGCLP I 176 185 BRKMSG I 186 195 STSMSG I 196 208 DEVREC I 209 218 DDMCON I 219 219 DATSEP I 220 223 DATFMT I 224 253 PRTTXT I 254 279 SBMJOB I 254 263 SBMJO1 I 264 273 SBMUSR I 274 279 SBMNBR |
|
I 280 289 SBMQNA I 290 299 SBMQLI I 300 300 TIMSEP I B 301 3040CCSID I 305 312 SCDDT I 313 322 PRTKEY * V2R30 I 323 332 SRTSQ I 333 342 SRTSQL I 343 345 LNGID I 346 347 CNTYID I 348 348 CMPSTS I 349 349 GUIJOB **************************************************************** * * * API: QUSRJOBI * * Format: JOBI0500 * * * **************************************************************** 01 JOBI0500-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. |
|
05 JOB. 10 JOB-NAME PIC X(10). 10 USER-NAME PIC X(10). 10 JOB-NUMBER PIC X(06). 05 INTERNAL-JOB-ID PIC X(16). 05 JOB-STATUS PIC X(10). 05 JOB-TYPE PIC X(01). 05 JOB-SUBTYPE PIC X(01). 05 FILLER PIC X(02). 05 END-SEVERITY PIC S9(9) COMP-4. 05 LOGGING-SEVERITY PIC S9(9) COMP-4. 05 LOGGING-LEVEL PIC X(01). 05 LOGGING-TEXT PIC X(10). **************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 34 QJOBNM I 9 18 JOBNAM I 19 28 USRNAM I 29 34 JOBNBR I 35 50 INTID |
|
I 51 60 JOBSTS I 61 61 JOBTYP I 62 62 SUBTYP I 63 64 RESRV I B 65 680ENDSEV I B 69 720LOGSEV I 73 73 LOGLVL I 74 83 LOGTXT **************************************************************** * * * API: QUSRJOBI * * Format: JOBI0600 * * * **************************************************************** 01 JOBI0600-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 JOB. 10 JOB-NAME PIC X(10). 10 USER-NAME PIC X(10). 10 JOB-NUMBER PIC X(06). 05 INTERNAL-JOB-ID PIC X(16). |
|
05 JOB-STATUS PIC X(10). 05 JOB-TYPE PIC X(01). 05 JOB-SUBTYPE PIC X(01). 05 SWITCHES PIC X(08). 05 END-STATUS PIC X(01). 05 SUBSYSTEM-NAME PIC X(10). 05 SUBSYSTEM-LIBRARY PIC X(10). 05 CURRENT-USER-PROFILE PIC X(10). 05 DBCS-ENABLED PIC X(01). * V2R30 05 EXIT-KEY PIC X(01). 05 CANCEL-KEY PIC X(01). 05 PRODUCT-RETURN-CODE PIC S9(9) COMP-4. 05 USER-RETURN-CODE PIC S9(9) COMP-4. 05 PROGRAM-RETURN-CODE PIC S9(9) COMP-4. 05 SPECIAL-ENVIRONMENT PIC X(10). **************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 34 QJOBNM I 9 18 JOBNAM |
|
I 19 28 USENAM I 29 34 JOBNBR I 35 50 INTID I 51 60 STATUS I 61 61 JOBTYP I 62 62 SUBTYP I 63 70 JOBSWI I 71 71 ENDSTS I 72 81 SBSNAM I 82 91 SBSDLI I 92 101 CURUSR I 102 102 DBCS * V2R30 I 103 103 EXTKEY I 104 104 CNLKEY I B 105 1080PRDRC I B 109 1120USRRC I B 113 1160PGMRC I 117 126 SPCENV **************************************************************** * * * API: QUSRJOBI * |
|
* Format: JOBI0700 * * * **************************************************************** 01 JOBI0700-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 JOB. 10 JOB-NAME PIC X(10). 10 USER-NAME PIC X(10). 10 JOB-NUMBER PIC X(06). 05 INTERNAL-JOB-ID PIC X(16). 05 JOB-STATUS PIC X(10). 05 JOB-TYPE PIC X(01). 05 JOB-SUBTYPE PIC X(01). 05 BOUNDARY-ALIGNMENT PIC X(02). 05 NUMBER-SYSTEM-LIBRARIES PIC S9(9) COMP-4. 05 NUMBER-PRODUCT-LIBRARIES PIC S9(9) COMP-4. 05 NUMBER-CURRENT-LIBRARIES PIC S9(9) COMP-4. 05 NUMBER-USER-LIBRARIES PIC S9(9) COMP-4. 05 LIBARY-LIST. 10 LIBRARY-NAME OCCURS 43 TIMES PIC X(11). **************************************************************** |
|
E LIBARY 43 11 IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 34 QJOBNM I 9 18 JOBNAM I 19 28 USRNAM I 29 34 JOBNBR I 35 50 INTID I 51 60 JOBSTS I 61 61 JOBTYP I 62 62 SUBTYP I 63 64 RESRV I B 65 680SYSLIB I B 69 720PRDLIB I B 73 760CURLIB I B 77 800USRLIB I 81 336 LIB1 I 337 553 LIB2 |
