EMP - event manager parameters

   Name : DCLEMP

   Function:
   This segment declares an Event Manager Parameter area.  This control block is built, initialized,
   and freed by the Event Manager subtask and by callers of the event handler subroutine.


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
0	(0)	STRUCTURE	432	EMP	event manager parameters
0	(0)	CHARACTER	4	EMPDESC	block descriptor = 'EMP '
4	(4)	CHARACTER	2	EMPVER	block mapping version
6	(6)	BITSTRING	2	EMPFLAGS	event manager flags
6	(6)	BITSTRING	1	EMPFLAG1	event manager flag1
		`1... ....`		EMPJNTW	jnt will be replaced
		`.1.. ....`		EMPJNTC	jnt will be reset
		`..1. ....`		EMPLATE	no more delay for cur evt
		`...1 ....`		EMPMANR	a manual request
		`.... 1...`		EMPMCP	mcp built this block
		`.... .1..`		EMPDELOP	corresp oper deleted
		`.... ..1.`		EMPRSTRT	job has been restarted
		`.... ...1`		EMPB5SKP	b5 event skipped
7	(7)	BITSTRING	1	EMPFLAG2	event manager flag2
		`1... ....`		EMPJRPFL	JNR=Y triggert
		`.1.. ....`		EMP3PREP	3P event reprocessed
		`..1. ....`		EMPSRASC	sr avail status change
		`...1 ....`		EMPJRNFL	JNR=N trigger
		`.... 1...`		EMPUSEV	user event flag
		`.... .1..`		EMPSRAVA	sr avail is yes
		`.... ..1.`		EMPNOLOG	don't log
		`.... ...1`		EMP3P	3P event
8	(8)	BITSTRING	4	EMPTMECB	timer ecb
12	(C)	ADDRESS	4	EMPMCAP	mca address
16	(10)	ADDRESS	4	EMPDTOP	1st delayed exit record
20	(14)	ADDRESS	4	EMPJNTP	jnt buffer address
24	(18)	ADDRESS	4	EMPOPRP	cp oper record address
28	(1C)	ADDRESS	4	EMPOCCP	cp occ record address
32	(20)	ADDRESS	4	EMPWRKP	cp work record address
36	(24)	ADDRESS	4	EMPDOAP	current doa ptr or 0
40	(28)	ADDRESS	4	EMPNMMB	normal mode mgr params
44	(2C)	ADDRESS	4	EMPPERF	ev mgr performance
48	(30)	ADDRESS	4	EMPEDATA	address of ext data
52	(34)	CHARACTER	4	EMPSTIM	timer ID
56	(38)	UNSIGNED	4	EMPDUR	event duration (sec)
60	(3C)	CHARACTER	8	EMPSTAMP	event time stamp
60	(3C)	SIGNED	4	EMPDATE	event date (00yydddf)
64	(40)	SIGNED	4	EMPTIME	event time (secs*100)
68	(44)	SIGNED	4	EMPBSIZE	current plan buffer size
72	(48)	SIGNED	4	EMPESIZE	ext data size
76	(4C)	ADDRESS	4	EMPDQEP	address of curr DQE
80	(50)	ADDRESS	4	EMPEQEP	address of eqe
84	(54)	ADDRESS	4	EMPEXRP	ptr to exit record
88	(58)	CHARACTER	10	EMPCLOCK	event time (yymmddhhmm)
88	(58)	CHARACTER	6	EMPYYMMDD	event date (yymmdd)
94	(5E)	CHARACTER	4	EMPHHMM	event time (hhmm)
98	(62)	CHARACTER	4	EMPINDEX	operation index
98	(62)	UNSIGNED	3	EMPOCCN	occurrence number
101	(65)	UNSIGNED	1	EMPOPRN	operation number
102	(66)	SIGNED	2	EMPNETID	current net number
104	(68)	CHARACTER	8	EMPUSER	dialog user name
112	(70)	CHARACTER	1	EMPSIGN	return code sign
113	(71)	BITSTRING	1	EMPFLAG3	event manager flag3
		`1... ....`		EMP23PSUS	A2\|A3P susp ETT
		`.1.. ....`		EMPOPCSUB	submitted by OPC
		`..1. ....`		EMPZTWE	call ztwe from EM
		`...1 ....`		EMPFLUSH0EVE	flush '0' events
		`.... 1...`		EMPTWSNORELEASEOCC	NO release OCC in IWS
		`.... .1..`		EMPJ4RECEIVED	IJ4 processing
		`.... ..1.`		EMPDOAURG	to be used by MCP ON old DOA was URGENT
		`.... ...1`		EMPEMUSR8	ON emusr RC=8
114	(72)	CHARACTER	4	EMPCODE	operation error code
118	(76)	CHARACTER	1	EMPSTAT	new operation status
119	(77)	CHARACTER	1	EMPCOM	jes command character
120	(78)	CHARACTER	8	EMPJOBN	current job name
128	(80)	CHARACTER	8	EMPJNUM	current job number
136	(88)	CHARACTER	64	EMPEXIT	timer exit
200	(C8)	BITSTRING	1	EMPFLAG4	event manager flag4
		`1... ....`		EMPNOETT	NO add a new ETT
		`.1.. ....`		EMPWTO
		`..1. ....`		EMPLOGGED
		`...1 ....`		EMPSHADOWB	on=ready bind requested
		`.... 1...`		EMPPARALLELOPER	Paralle Operation
		`.... .1..`		EMPZCE2EJOB
		`.... ..1.`		*
		`.... ...1`		*
201	(C9)	BITSTRING	1	EMPFLAG5	event manager flag5
		`1... ....`		EMPEMUSR	caller is emusr

STEP AWARENESS flags


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
		`.1.. ....`		EMPRELONLY
		`..1. ....`		EMPA1OA2LOG	A1 or A2 logged
		`...1 ....`		EMPA3SLOG	A3S logged


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
		`.... 1111`		*
202	(CA)	CHARACTER	10	EMPDTTM	date and time
202	(CA)	CHARACTER	6	EMPDT	date yymmdd
208	(D0)	SIGNED	4	EMPTM	time 100th of sec
212	(D4)	SIGNED	4	EMPCODEFIX	IWS numeric errc
216	(D8)	ADDRESS	4	EMPCNDP	addr work cond
220	(DC)	CHARACTER	2	*	free
222	(DE)	CHARACTER	8	EMPETTJOBN	ETT job name
230	(E6)	CHARACTER	1	EMPETTTYP	ETT type (J or R)
231	(E7)	CHARACTER	44	EMPETTCRIT	ETT criteria
275	(113)	CHARACTER	44	EMPETTEVNAM	ETT full event name
319	(13F)	UNSIGNED	1	EMPETTGDGL	Length of GDG DS root
320	(140)	CHARACTER	8	EMPSTRTIME	Start time for delay
328	(148)	ADDRESS	4	EMPMCPTRLP	ptr to cond trl chain-MCP
332	(14C)	ADDRESS	4	EMPCNDLP	ptr to cond id chain
336	(150)	ADDRESS	4	EMPCODPTR	MSG E031I
340	(154)	ADDRESS	4	EMPEMTRLP	ptr to cond trl chain(EM)
344	(158)	ADDRESS	4	EMPUSRFP	addr work usrf
348	(15C)	ADDRESS	4	EMPXD02P	addr work xd02
352	(160)	ADDRESS	4	EMPOUCP	ptr to OUC comm area

STEP AWARENESS info


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
356	(164)	CHARACTER	4	EMPLOGKEY
356	(164)	UNSIGNED	3	EMPLOGOCC
359	(167)	UNSIGNED	1	EMPLOGOPR
360	(168)	CHARACTER	1	EMPLOGTYP	trltyp29


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
361	(169)	CHARACTER	71	*	free
432	(1B0)	CHARACTER		EMPEND	end of emp