| 
**************************************************************** * * * API: QUSLJOB * * Format: JOBL0100 * * * **************************************************************** 01 JOBL0100-INPUT. 05 JOB-SPECIFIED. 10 JOB-NAME-SPECIFIED PIC X(10). 10 USER-NAME-SPECIFIED PIC X(10). 10 JOB-NUMBER-SPECIFIED PIC X(06). 05 JOB-STATUS-SPECIFIED PIC X(10). 01 JOBL0100-HEADER. 05 JOB-RETURNED. 10 JOB-NAME-RETURNED PIC X(10). 10 USER-NAME-RETURNED PIC X(10). 10 JOB-NUMBER-RETURNED PIC X(06). 01 JOBL0100-LIST. 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). * V2R30 05 JOB-TYPE PIC X(01). 05 JOB-SUBTYPE PIC X(01). 05 RESERVED PIC X(02). **************************************************************** IINPUT DS I 1 26 QJOBI I 1 10 JOBNMI I 11 20 USRNMI I 21 26 JOBNOI I 27 36 STATI IHEADER DS I 1 26 QJOBH I 1 10 JOBNMH I 11 20 USRNMH I 21 26 JOBNOH ILIST DS I 1 26 QJOBL I 1 10 JOBNML I 11 20 USRNML |
|
I 21 26 JOBNOL I 27 42 IJOBID I 43 52 STATL * V2R30 I 53 53 JOBTYP I 54 54 SUBTYP **************************************************************** * * * API: QUSLJOB * * Format: JOBL0200 (V2R30) * * * **************************************************************** 01 JOBL0200-INPUT. 05 JOB-SPECIFIED. 10 JOB-NAME-SPECIFIED PIC X(10). 10 USER-NAME-SPECIFIED PIC X(10). 10 JOB-NUMBER-SPECIFIED PIC X(06). 05 JOB-STATUS-SPECIFIED PIC X(10). 05 USER-SPACE-SPECIFIED PIC X(10). 05 USER-SPACE-LIBRARY-SPECIFIED PIC X(10). 05 FORMAT-NAME-SPECIFIED PIC X(08). 05 JOB-TYPE-SPECIFIED PIC X(01). |
|
05 RESERVED PIC X(03). 05 NUMBER-OF-FIELDS-TO-RETURN PIC S9(9) COMP-4. 05 KEY-OF-FIELDS-TO-RETURN PIC S9(9) COMP-4. 01 JOBL0200-HEADER. 05 JOB-RETURNED. 10 JOB-NAME-RETURNED PIC X(10). 10 USER-NAME-RETURNED PIC X(10). 10 JOB-NUMBER-RETURNED PIC X(06). 01 JOBL0200-LIST. 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 RESERVED1 PIC X(02). 05 JOB-INFORMATION-STATUS PIC X(01). 05 RESERVED2 PIC X(03). 05 NUMBER-OF-FIELDS-RETURNED PIC S9(9) COMP-4. **************************************************************** |
|
IINPUT DS I 1 26 QJOBI I 1 10 JOBNMI I 11 20 USRNMI I 21 26 JOBNOI I 27 36 STATI I 37 56 USRSPC I 57 64 FORMAT I 65 65 JOBTYI I 66 68 RES I B 69 720FLDNMI IHEADER DS I 1 26 QJOBH I 1 10 JOBNMH I 11 20 USRNMH I 21 26 JOBNOH ILIST DS I 1 26 QJOBL I 1 10 JOBNML I 11 20 USRNML I 21 26 JOBNOL I 27 42 IJOBID |
|
I 43 52 STATL I 53 53 JOBTYP I 54 54 SUBTYP I 55 56 RES1 I 57 57 INFST I 58 60 RES2 I B 61 640NUMFLD |
