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
    
 1...  ....
   JCLJSFND ON = JCL READ FROM JS
    
 .1..  ....
   JCLEDITD ONCE BEEN EDITED
    
 ..11  1111
   * NOT USED
69 (45) CHARACTER 1 * FREE
70 (46) SIGNED 2 JCLVLINE NUMBER OF VARIABLES
72 (48) SIGNED 4 JCLSUBP SUBPOOL FOR FREEMAIN
76 (4C) CHARACTER 4 * FREE
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