JCLREC - Common data of JCL record
Name : DCLJCL
Function:
This segment declares a JCL record in the JCL repository, physically located in EQQJS1DS and
EQQJS2DS.
| Offsets | |||||
|---|---|---|---|---|---|
| Dec | Hex | Type | Len | Name (Dim) | Description |
| 0 | (0) | STRUCTURE | * | JCLREC | |
| 0 | (0) | CHARACTER | 80 | JCLBDY | FIXED PART OF JCL RECORD |
| 0 | (0) | CHARACTER | 28 | JCLKEY | |
| 0 | (0) | CHARACTER | 16 | JCLADID | APPLICATION NAME |
| 16 | (10) | CHARACTER | 10 | JCLIA | OCC INPUT ARRIVAL DATE+TIME |
| 16 | (10) | CHARACTER | 6 | JCLIAT1 | DATE |
| 22 | (16) | CHARACTER | 4 | JCLIAT2 | TIME |
| 26 | (1A) | SIGNED | 2 | JCLOPNUM | OPERATION NUMBER |
| 28 | (1C) | CHARACTER | 4 | JCLEYE | EYE CATCHER |
| 32 | (20) | UNSIGNED | 1 | JCLVERS | VERSION NUMBER |
| 33 | (21) | CHARACTER | 1 | * | FREE |
| 34 | (22) | CHARACTER | 8 | JCLJOBNM | JOBNAME |
| 42 | (2A) | CHARACTER | 4 | JCLWSN | WORK STATION NAME |
| 46 | (2E) | CHARACTER | 10 | JCLUPDAT | LAST UPDATE, DATE+TIME |
| 46 | (2E) | CHARACTER | 6 | JCLUPDT1 | DATE |
| 52 | (34) | CHARACTER | 4 | JCLUPDT2 | TIME |
| 56 | (38) | CHARACTER | 8 | JCLUSER | LAST UPDATE, USERID |
| 64 | (40) | CHARACTER | 1 | JCLUPTYP | UPDATING FUNCTION: L: LTP W: WSD R: READY LIST M: MCP |
| 65 | (41) | CHARACTER | 1 | JCLSTAT | OP. STATUS: S:SUB:ED V:SAVED T:TSAVED |
| 66 | (42) | UNSIGNED | 2 | JCLLINES | NO OF LINES IN RECORD |
| 68 | (44) | CHARACTER | 1 | JCLFLAGS | FLAGBYTE |
|
JCLJSFND | ON = JCL READ FROM JS | |||
|
JCLEDITD | ONCE BEEN EDITED | |||
|
JCLJDIRNOP | ON = NOP DIRECTIVE SET | |||
| JCLOPINFOEXIST | OPERATION INFO EXISTENCY | ||||
| * | FREE | ||||
| 69 | (45) | CHARACTER | 1 | JCLCLASS | CLASS |
| 70 | (46) | SIGNED | 2 | JCLVLINE | NUMBER OF VARIABLES |
| 72 | (48) | SIGNED | 4 | JCLSUBP | SUBPOOL FOR FREEMAIN |
| 76 | (4C) | CHARACTER | 4 |
JCLRES4 |
|
| 80 | (50) | CHARACTER | 80 | JCLTAB (*) | JCL RECORDS |
| 80 | (50) | CHARACTER | 72 | JCLTEXT | COL 1-72 OF THE JCL RECORD |
| 152 | (98) | CHARACTER | 8 | JCLLNNO | COL 73-80 OF THE JCL RECORD |
| Offsets | |||||
|---|---|---|---|---|---|
| Dec | Hex | Type | Len | Name (Dim) | Description |
| 0 | (0) | STRUCTURE | 80 | JCLVTAB (*) | |
| 0 | (0) | CHARACTER | 80 | JCLV | |
| 0 | (0) | CHARACTER | 8 | JCLVNAME | VARIABLE NAME |
| 8 | (8) | CHARACTER | 16 | JCLVTNAM | VARIABLE TABLE NAME |
| 24 | (18) | CHARACTER | 1 | JCLVTYPE | P = PROMPT, Y= SETUP,N=SUB |
| 25 | (19) | CHARACTER | 1 | JCLVSET | E(XIT),D(EFAULT),P(REP),VAR |
| 26 | (1A) | CHARACTER | 8 | JCLVUSER | USER ID |
| 26 | (1A) | CHARACTER | 8 | JCLVEXIT | EXIT NAME |
| 26 | (1A) | CHARACTER | 8 | JCLVSNAM | SETTING VARIABLE NAME |
| 34 | (22) | CHARACTER | 44 | JCLVVAL | VARIABLE VALUE SET |
| 78 | (4E) | SIGNED | 2 | JCLVLGT | LENGTH OF VALUE |
| Offsets | |||||
|---|---|---|---|---|---|
| Dec | Hex | Type | Len | Name (Dim) | Description |
| 0 | (0) | CHARACTER | 48 | JCLOPINF | |
| 0 | (0) | CHARACTER | 4 | JCLOPEYE | EYE CATCHER |
| 4 | (4) | UNSIGNED | 2 | JCLOPLEN | LENGTH |
| 6 | (6) | UNSIGNED | 1 | JCLOPVER | VERSION NUMBER |
| 7 | (7) | CHARACTER | 1 | JCOPFLAG | FLAG BYTE |
|
ON = HOLDUNTL ACTIVE | ||||
|
ON = DEADLINE ACTIVE | ||||
|
ON = JOBTOKEN ACTIVE | ||||
|
* | NOT USED | |||
| 8 | (8) | CHARACTER | 8 | JOBTOKEN | JOB TOKEN |
| 16 | (10) | CHARACTER | 6 | JCLOPIAD | IA DATE |
| 22 | (16) | CHARACTER | 4 | JCLOPIAT | IA TIME |
| 26 | (1A) | CHARACTER | 6 | * | NOT USED |
| 32 | (20) | CHARACTER | 6 | JCLOPDDD | DEADLINE DATE |
| 38 | (26) | CHARACTER | 4 | JCLOPDDT | DEADLINE TIME |
| 42 | (2A) | CHARACTER | 6 | * | NOT USED |