DOA - Dynamic operation area

   Name : DCLDOA

   Function:
   This segment declares the dynamic operation area.  A DOA is either on the DOA free chain or
   it is chained to a WQA.  A DOA chained to a WQA represents an operation in progress at the
   workstation defined by that WQA.  The information in the DOA is used to build the ready list row
   for an operation in a workstation ready list display and by the workstation analyzer in order to
   find the next operation to be scheduled.


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
0	(0)	STRUCTURE	248	doa	Dynamic Operation Area
0	(0)	CHARACTER	4	doadesc	block descriptor = 'DOA'
4	(4)	CHARACTER	2	doaver	block mapping version
6	(6)	BITSTRING	2	doaflags	doa flags
		`1... ....`		doaclate	1 cancel oper if late
		`.1.. ....`		doaurg	1 oper is urgent
		`..1. ....`		doastamr	1 status set manually
		`...1 ....`		doatjt	1 time job operation
		`.... 1...`		doasfail	1 submitrelease failed
		`.... .1..`		doaarset	1 oper was auto reset
		`.... ..1.`		doaevent	1 a jt event was found
		`.... ...1`		doastart	1 job has started exec
7	(7)	`1... ....`		doajsub	1 auto submit this job
		`.1.. ....`		doajhrc	1 job level high rc def
		`..1. ....`		doadurms	1 max dur exceeded
		`...1 ....`		doaorer	1 oper is rerouteable
		`.... 1...`		doaores	1 oper is restartable
		`.... .1..`		doawrer	1 oper was rerouted WLRA
		`.... ..1.`		doarmsg	1 rer faild msg issued
		`.... ...1`		doanhld	1 shouldn't be released
8	(8)	CHARACTER	1	doastate	operation status
9	(9)	CHARACTER	1	doaclass	job or sysout class
10	(A)	CHARACTER	1	doaoist	opi status (yn0)
11	(B)	BITSTRING	1	doaflag2	flag byte TNSC
		`1... ....`		doadwto	deadline WTO wanted TNSA
		`.1.. ....`		doadwtos	deadline WTO sent TNSA
		`..1. ....`		doadwtop	deadline WTO processed
		`...1 ....`		doaremov	set oper to C or E DCRA
		`.... 1...`		doamhld	on=manually held op HOPA
		`.... .1..`		doanop	on=nop op HOPA
		`.... ..1.`		doaexec	on=execute operation HOPA
		`.... ...1`		doaclncm	on=clean up comm issued
12	(C)	CHARACTER	4	doacpptr	index to operation record
12	(C)	UNSIGNED	3	doaoccx	occurrence index
15	(F)	UNSIGNED	1	doaopno	operation number
16	(10)	CHARACTER	8	doajobn	jobname (for cpu oper)
24	(18)	ADDRESS	4	doanxt	ptr to next doa
28	(1C)	ADDRESS	4	doapre	ptr to previous doa
32	(20)	ADDRESS	4	doanxttj	next time job in tjt
36	(24)	ADDRESS	4	doapretj	previous time job
40	(28)	ADDRESS	4	doawqap	addr of wqa for this doa
44	(2C)	ADDRESS	4	doadrap	addr of DRA for this doa
48	(30)	ADDRESS	4	doaaws_p	alternate WS address WLRA
52	(34)	UNSIGNED	2	doasseq	submit sequence number
54	(36)	`1... ....`		doaNoerrJT	NOERR match JT reapply DEWA
		`.1.. ....`		doaNoerrSkip	NOERR skip A3S evts 9TCDEWA
		`..1. ....`		doasusp	on = suspended execution
54	(36)	BITSTRING	1	*	reserved 9TCDEWC
56	(38)	SIGNED	4	doadlmin	deadl. this op. in mins
60	(3C)	CHARACTER	8	doaform	form number
68	(44)	UNSIGNED	1	doascrrt	CentrScript send retry
69	(45)	CHARACTER	1	doarejst	remote eng job bind status
70	(46)	SIGNED	2	doahirc	highest non-error retcode
72	(48)	CHARACTER	8	doatime	last change (tod format)
80	(50)	SIGNED	2	doanet	network id for operation
82	(52)	SIGNED	2	doapserv	num parallel servers reqd
84	(54)	SIGNED	2	doar1	amount of r1 required
86	(56)	SIGNED	2	doar2	amount of r2 required
88	(58)	SIGNED	2	doaTZoff	TZONE returned by exit CRPC
90	(5A)	SIGNED	2	doapri	priority
92	(5C)	CHARACTER	10	doast	submit date time
102	(66)	CHARACTER	10	doalo	latest start for this op d88c
102	(66)	CHARACTER	6	doalod	date d88a
108	(6C)	SIGNED	4	doalot	time d88a
112	(70)	CHARACTER	10	doaia	input arrival for this occ
122	(7A)	CHARACTER	10	doaps	planned start f this op d88c
122	(7A)	CHARACTER	6	doapsd	date d88a
128	(80)	SIGNED	4	doapst	time d88a
132	(84)	SIGNED	4	doarelft	time 1st rlse 1.048 s
136	(88)	UNSIGNED	1	doarel	number of release done
137	(89)	CHARACTER	4	doaaltws	alternate WS WLRA
141	(8D)	CHARACTER	1	doaClnfla	Clean up flag D90C
		`1... ....`		doaMoreRun	0 = First run D90C 1 = At least 1 run D90A set by AB3P event D90A
		`.1.. ....`		doaJLInfo	1 = JLInfo requested D90A 0 = JLInfo to be req. D90A set by JL info requestor D90A reset when resub () D90A
		`..1. ....`		doaOpInfo	0 = last OPerInfo not D90A available D90A 1 = last OPerInfo D90A available
		`...1 ....`		doaPSUdone	0 = PSU not compl. D90A 1 = PSU completed D90A
		`.... 1...`		doaUserSYS	1 = need user sysout D90A
		`.... .1..`		doaimmerr	1 = imm from error st D90A (set by A3P if error D90A status) D90A
		`.... ..1.`		doaCLmsg	1 = message issued D90C
		`.... ...1`		doaPSUwait	1 = wait for PSU done D90C set by dialog when apply logic needed but cleanup = none
142	(8E)	CHARACTER	1	doaClnStat	Clean Up status D90C see dclrccon D90A blank = none D90A S = started D90A C = completed D90A E = ended in error D90A
143	(8F)	BITSTRING	1	doaflag3	flag byte HOPA
		`1... ....`		doacmd_fail	op command fail flag HOPA
		`.1.. ....`		doaresub	resend jcl for oper
		`..1. ....`		doaosi	osi operation
		`...1 ....`		doasyssfail	jes sub fail
		`.... 1...`		doaevher	error in event handler
		`.... .1..`		doasrkep	keep on error
		`.... ..1.`		doasenq	second DLF enq done
		`.... ...1`		doaexpJCL	use expanded JCL D90C
144	(90)	CHARACTER	1	doaJRstat	joblog retrieval status ' ' = no action yet 'R' = requested Opinfo 'W' = waiting Opinfo 'O' = Opinfo available 'I' = initiated 'S' = started (j0-evt) 'C' = complete(j2-evt) 'E' = error (j2-evt)
145	(91)	BITSTRING	1	doaflag4	D63A
		`1... ....`		doaWLMr	WLM Already Request D63A
		`.1.. ....`		doacscr	on=has centralized script
		`..1. ....`		doasending	on=S-sending exstat
		`...1 ....`		doasuber	on=E-OSUF exstat
		`.... 1...`		doaerfail	on=E-FAIL exstat
		`.... .1..`		doarecprmp	on=E-prmpt exstat
		`.... ..1.`		doarecjob	on=E rec job running
		`.... ...1`		doarecrun	on=E(R,S,C) not restar
146	(92)	CHARACTER	2	doawlm	WLM fields D63A
146	(92)	CHARACTER	1	doajcrt	WLM critical indicat. D63A
147	(93)	CHARACTER	1	doajpol	WLM policy D63A
148	(94)	CHARACTER	2	*	reserved D63CLUC
150	(96)	CHARACTER	10	doadl	deadline for this opr TNSA
160	(A0)	CHARACTER	8	doatoken_full	operation full token
160	(A0)	CHARACTER	4	doatoken_pre	prefix
164	(A4)	UNSIGNED	4	doatoken	opctoken
168	(A8)	SIGNED	4	doamaxd	max duration in mins
172	(AC)	UNSIGNED	4	doadur	duration in 100th of sec
176	(B0)	ADDRESS	4	doaPSUjcl	pointer to JCL D90A

2 doaPSUtoken char4 PSU request token $BLBD


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
180	(B4)	ADDRESS	4	doaOldJCL	pointer to old JCL BLBA
184	(B8)	CHARACTER	1	doaClnTyp	Clean up Type= D90C A = automatic, D90A I = immediate, D90A M = manual, D90A N = none D90A
185	(B9)	BITSTRING	1	doaflag5	Bit battery
		`1... ....`		doaRecEnd	op completed by recovery
		`.1.. ....`		doaexpjclUSED	doaexpjcl contains BGDA really expanded jcl BGDA
		`..1. ....`		doafromPLC	job from PLC path CCUA
		`...1 ....`		doaWASUJ	job from WASUJ path CCUA
		`.... 1...`		doawaiTSE	job wait SE CCUA
		`.... .1..`		doawaitWQA	wait delay
		`.... ..1.`		doaURGmsg	on = URG msg sent
		`.... ...1`		doaFTSAnop	on = nopped on standard agent hosted by master
186	(BA)	BITSTRING	1	doaflag6	reserved 32CSJC22c
		`1... ....`		doaWLMprom	on = WLM promotion done
		`.1.. ....`		doaWLMmsg	on = WLM fail msg issued
		`..1. ....`		doaRdSent	reserved 34a
		`...1 ....`		doanoerr	CPWA
		`.... 1...`		DoaCond	On = COND exists
		`.... .1..`		doaTZONE	on = TZONE applied CRPA
		`.... ..1.`		doaNoEval	On = do not eval cond succ
		`.... ...1`		doastepsucc	mapped on CPLSTEPSUCC
187	(BB)	BITSTRING	1	doaflag7
		`1... ....`		doashadow	on = job is a shadow job
		`.1.. ....`		doacfbind	on = complete if bind fail
		`..1. ....`		doae113	e113 issued CZ1A
		`...1 ....`		doaUnexpRC	ON = Unexpected RC
		`.... 1...`		doadrecov	on=recovery in progress
		`.... .1..`		doashoseq	on=shadow in oseq
		`.... ..1.`		doaexit13rc	on=rc 12 from exit13 DGWA
		`.... ...1`		*	62CDGWC
188	(BC)	ADDRESS	4	doaseinfop	dseinfo ptr CCUA
192	(C0)	SIGNED	4	doaCRITpath	Critical path counter
196	(C4)	CHARACTER	8	doaWLMclass	WLM service class
204	(CC)	CHARACTER	4	doaCrtPthX	Critical Path Origin Key
204	(CC)	UNSIGNED	3	doaPthOc	Occ. Number
207	(CF)	UNSIGNED	1	doaPthOp	Operation Number
208	(D0)	ADDRESS	4	doasainfop	dsainfo ptr CHWA
212	(D4)	CHARACTER	8	doaVdest	last used submit dest COBA
220	(DC)	SIGNED	4	doaMaxdSec	max duration in sec CHWACVIA
224	(E0)	CHARACTER	4	doaErrCode	error code (ERRRES)
228	(E4)	CHARACTER	8	doasubtoken	zCentric submission token
236	(EC)	ADDRESS	4	doaSviewP	Sview ptr
240	(F0)	CHARACTER	1	doaTaskType	reserved
241	(F1)	CHARACTER	3	*	reserved
244	(F4)	CHARACTER	4	*	reserved
248	(F8)	CHARACTER		doaend	end of doa


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
0	(0)	STRUCTURE	4	*	layout of time in doa
0	(0)	CHARACTER	2	doahour	hour
2	(2)	CHARACTER	2	doaminut	minute


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
0	(0)	STRUCTURE	6	*	layout of date in doa
0	(0)	CHARACTER	2	doayear	year
2	(2)	CHARACTER	2	doamonth	month
4	(4)	CHARACTER	2	doaday	day

   SE NAME variable part $CCUA


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
0	(0)	STRUCTURE	30	dseinfo	CCUA
0	(0)	CHARACTER	4	dseEYE	DSEI CCUA
4	(4)	CHARACTER	2	dseVer	01 CCUA
6	(6)	CHARACTER	2	*	free CCUA
8	(8)	ADDRESS	4	dsenext	CCUA
12	(C)	CHARACTER	16	dseSEname	Scheduling Environment CCUA Name CCUA
28	(1C)	SIGNED	2	dseSysplexId	Sysplex Id CCUA

   $CHWA
   SAI System Automation Info variable part $CHWA
   $CHWA


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
0	(0)	STRUCTURE	348	dsainfo	CHWA
0	(0)	CHARACTER	4	dsaEYE	DSAI CHWA
4	(4)	CHARACTER	2	dsaVer	01 CHWA
6	(6)	CHARACTER	2	*	free CHWA
8	(8)	ADDRESS	4	dsanext	CHWA
12	(C)	CHARACTER	336	dsaAutoInfo	System Automation Info CHWA
12	(C)	CHARACTER	256	dsaCommText	SA op command text CHWA
12	(C)	CHARACTER	64	dsaCommText1	op com line 1 CHWA
76	(4C)	CHARACTER	64	dsaCommText2	op com line 2 CHWA
140	(8C)	CHARACTER	64	dsaCommText3	op com line 3 CHWA
204	(CC)	CHARACTER	64	dsaCommText4	op com line 4 CHWA
268	(10C)	CHARACTER	8	dsaAutoOper	SA automated operator CHWA
276	(114)	CHARACTER	8	dsaSecElem	SA security element CHWA
284	(11C)	CHARACTER	64	dsaCompInfo	SA completion info CHWA