EX2 - z/OS Agent Event record

   Name : DCLEX2

   Function:
   This record ....


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
0	(0)	STRUCTURE	80	EX2	zAgent event record
0	(0)	CHARACTER	1	EX2SYST	'2' event
1	(1)	CHARACTER	1	EX2TYPE	type event
2	(2)	UNSIGNED	1	EX2FLAGS	flags
		`1... ....`		EX2SUSPD	event suspended
		`.1.. ....`		EX2NUMERR	on: err code is numeric
		`..1. ....`		EX2DUMMY	on: dummy start date
		`...1 1111`		*	reserved
3	(3)	CHARACTER	1	*	reserved
4	(4)	CHARACTER	16	EX2TOKENS
4	(4)	CHARACTER	8	EX2OCCTOKEN	occurrence token
12	(C)	CHARACTER	8	EX2SUBTOKEN	submission token
20	(14)	CHARACTER	8	EX2JOBNUM	job number
28	(1C)	CHARACTER	1	EX2JCLI	parse error Y/N
29	(1D)	CHARACTER	1	EX2UNKNOWN	unknown result Y/N
30	(1E)	SIGNED	2	EX2OPNUM	oper num
32	(20)	CHARACTER	4	EX2WSNAME	WS name
36	(24)	CHARACTER	8	EX2JOB	job name
44	(2C)	SIGNED	4	EX2DAT2	date 2
48	(30)	SIGNED	4	EX2CDAT	creation date (00yydddf)
52	(34)	SIGNED	4	EX2CTIM	creation time (sec*100)
56	(38)	SIGNED	4	EX2TIM2	time 2
60	(3C)	SIGNED	4	EX2ERRN	error code (integer)
60	(3C)	CHARACTER	4	EX2ERRC	used by Z remote engine
64	(40)	CHARACTER	4	EX2SUBSYS	Controller subsystem name
68	(44)	SIGNED	4	EX2ADUR	actual duration
72	(48)	CHARACTER	4	*	free
76	(4C)	CHARACTER	4	EX2OPCID	event id 'EQQx'


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
0	(0)	STRUCTURE	80	EX2XD	XD actions layout ('X')
0	(0)	CHARACTER	1	EX2XDSYST	'2' event
1	(1)	CHARACTER	1	EX2XDTYPE	type event ('X')
2	(2)	UNSIGNED	1	EX2XDFLAGS	flags
		1... ....		EX2XDSUSPD	event suspended
		.1.. ....		EX2XDPCP	ON: req for waitcp
		..1. ....		EX2XDPLT	ON: req for waitlt
		...1 ....		EX2XDDPSET	ON: req for waitlt
		.... 1111		*	reserved
3	(3)	CHARACTER	1	EX2XDSUBT	D-notif. ended/remove XD F-failed to notify F-manage pending XD
4	(4)	CHARACTER	8	EX2XDTOKEN	xd99 key !_ keys used
12	(C)	CHARACTER	56	EX2XDALIAS	xd02 key ! alternatively
68	(44)	CHARACTER	8	*	free
76	(4C)	CHARACTER	4	EX2XDOPCID	event id 'EQQx'


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
0	(0)	STRUCTURE	80	EX2JOBINFO	2I and 2B layout
0	(0)	CHARACTER	1	EX2ISYST	'2' event
1	(1)	CHARACTER	1	EX2ITYPE	type event
2	(2)	UNSIGNED	1	EX2IFLAGS	flags
		1... ....		EX2ISUSPD	event suspended
		.111 1111		*	reserved
3	(3)	CHARACTER	1	*	reserved
4	(4)	CHARACTER	16	EX2ITOKENS
4	(4)	CHARACTER	8	EX2IOCCTOKEN	occurrence token
12	(C)	CHARACTER	8	EX2ISUBTOKEN	submission token
20	(14)	CHARACTER	8	EX2IJOBNAME	matched job name
28	(1C)	SIGNED	2	EX2IOPNUM	oper num
30	(1E)	CHARACTER	2	*	free
32	(20)	CHARACTER	4	EX2IWSNAME	matched WS name
36	(24)	CHARACTER	4	EX2ISUBSYS	Controller subsystem name
40	(28)	SIGNED	4	EX2IIAD	matched ia date
44	(2C)	SIGNED	4	EX2IIAT	matched ia time
48	(30)	CHARACTER	28	*	free
76	(4C)	CHARACTER	4	EX2IOPCID	event id 'EQQx'


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
0	(0)	STRUCTURE	80	EX2AGENTINFO	agent info event record
0	(0)	CHARACTER	1	EX2AISYST	'2' event
1	(1)	CHARACTER	1	EX2AITYPE	type event
2	(2)	UNSIGNED	1	EX2AIFLAGS	flags
		1... ....		EX2AISUSPD	event suspended
		.111 1111		*	reserved
3	(3)	CHARACTER	1	EX2AINEWSTAT	A \| O (active or offline)
4	(4)	SIGNED	4	EX2AIFPLEVEL	fix pack level
8	(8)	CHARACTER	8	EX2AIDEST	destination name
16	(10)	CHARACTER	8	EX2AIVERSION	agent version
24	(18)	CHARACTER	16	EX2AIOSNAME	op. system
40	(28)	CHARACTER	16	EX2AIOSLEVEL	op. system level
56	(38)	SIGNED	2	EX2AIDUMMYCHG	first active
58	(3A)	SIGNED	2	*	reserved
60	(3C)	CHARACTER	16	*	reserved
76	(4C)	CHARACTER	4	EX2AIOPCID	event id 'EQQx'


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
0	(0)	STRUCTURE	80	EX2JOBLOG	agent info event record
0	(0)	CHARACTER	1	EX2JLSYST	'2' event
1	(1)	CHARACTER	1	EX2JLTYPE	type event
2	(2)	UNSIGNED	1	EX2JLFLAGS	flags
		1... ....		EX2JLSUSPD	event suspended
		.111 1111		*	reserved
3	(3)	CHARACTER	1	EX2JLSTATUS	job log req status C\|E
4	(4)	CHARACTER	8	EX2JLOCCTOKEN	occurrence token
12	(C)	CHARACTER	8	EX2JLUSER	job request user
20	(14)	ADDRESS	4	EX2JLBUFPTR	job log buffer
24	(18)	ADDRESS	4	EX2JLBUFLEN	job log buffer length
28	(1C)	SIGNED	2	EX2JLOPNUM	operation number
30	(1E)	CHARACTER	2	*	reserved
32	(20)	SIGNED	4	EX2JLLENGTH	joblog length
36	(24)	CHARACTER	40	*	reserved
76	(4C)	CHARACTER	4	EX2JLOPCID	event id 'EQQx'


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
0	(0)	STRUCTURE	100	EX2BIND	subscription (bind) req
0	(0)	CHARACTER	1	EX2BSYST	'2' event
1	(1)	CHARACTER	1	EX2BTYPE	'Y' type event
2	(2)	UNSIGNED	1	EX2BFLAGS	flags
		1... ....		EX2BSUSPD	event suspended
		.111 1111		*	reserved
3	(3)	CHARACTER	1	*	free
4	(4)	CHARACTER	18	EX2BTOMATCH
4	(4)	CHARACTER	16	EX2BADID	application id
20	(14)	SIGNED	2	EX2BOPNUM	operation number
22	(16)	SIGNED	2	EX2BDESTNUM	number of backup dests
24	(18)	CHARACTER	8	EX2BIA	input arrival for match
24	(18)	SIGNED	4	EX2BIAD	date (00yydddf)
28	(1C)	SIGNED	4	EX2BIAT	time (sec*100)
32	(20)	CHARACTER	56	EX2BALIAS	alias
88	(58)	CHARACTER	8	EX2BDEST1	first destination name
96	(60)	ADDRESS	4	EX2BXPTR	ptr to extended part

C code allocates only one buffer: the extended part always follows the fixed part. Used ptr instead of char(0) for an easier addition of new fields in the event.


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
0	(0)	STRUCTURE	*	EX2BEXT	subscription ext part
0	(0)	CHARACTER	8	EX2BDESTS(*)	backup destinations
0	(0)	CHARACTER	8	EX2DESTNM	dest name

Events constants


Offsets
Dec	Hex	Type	Len	Name (Dim)	Description
1		CHARACTER	2	EX2EVENT	z-Centric Event Type
1		CHARACTER	P	EX2SPEVE	submit - post executed
1		CHARACTER	T	EX2STEVE	submit - post failed
1		CHARACTER	s	EX2SBEVE	submitted
1		CHARACTER	S	EX2SEEVE	start execution
1		CHARACTER	C	EX2JCEVE	job completed successfully
1		CHARACTER	K	EX2JKEVE	job killed
1		CHARACTER	E	EX2EEEVE	job ended in error (exec)
1		CHARACTER	e	EX2EREVE	recovery in progress
1		CHARACTER	F	EX2EFEVE	submission failed
1		CHARACTER	U	EX2UUEVE	job status unknown
1		CHARACTER	R	EX2RREVE	reset job status to ready
1		CHARACTER	B	EX2BFEVE	bind failed event
1		CHARACTER	I	EX2BIEVE	bind ok event
1		CHARACTER	Y	EX2BREVE	bind request
1		CHARACTER	O	EX2OOEVE	online/offline event
1		CHARACTER	L	EX2JLEVE	joblog retrieval
1		CHARACTER	X	EX2XDEVE	manage XD
1		CHARACTER	C	EX2JLCOM	joblog retrieval complete
1		CHARACTER	E	EX2JLERR	joblog retrieval error
1		CHARACTER	S	EX2JLSUS	joblog retrieval suspend
1		CHARACTER	P	EX2XDPND	check pending
1		CHARACTER	K	EX2XDKLL	kill bind request
1		CHARACTER	F	EX2XDERR	failed to notify mark XD failed
1		CHARACTER	D	EX2XDDEL	notification completed remove XD
1		CHARACTER	A	EX2_DESTACT	destination status active
1		CHARACTER	O	EX2_DESTOFF	destination status offline
1		CHARACTER	P	EX2BRPRE	matching criteria closest preceding
1		CHARACTER	I	EX2BRINT	matching criteria interval