General Format
The figure contains a pictorial representation of the data area.
X'000' EVELENG DC XL1'00' Length of total element - 1
EVEFLAGM DS 0XL3 Three byte flag for messages
X'001' EVETYPE DC XL1'00' Function code
X'002' EVEQUAL DC XL1'00' Function qualifiers
X'003' EVEMOD DC XL1'00' Function modifiers
*
* Bits defined in EVETYPE
*
EVECMDEX EQU X'80' Command execution event
EVERCALL EQU X'40' Internal module call
EVEENQUE EQU X'20' Internal call to DMTCOMNQ
EVEPOST EQU X'10' Internal POST of an ECB
EVEMIDKT EQU X'08' This is the event Midnight
EVEALTER EQU X'04' Element to do internal alter
*
* Bits defined in EVEQUAL
*
EVEFILE EQU X'80' Source of event was EVENT file
EVESCHED EQU X'40' Source of event was SCHEDULE cmd
* * Bits defined in EVEMOD for command elements
*
EVESUSPN EQU X'80' This event is in suspense
EVEREQUE EQU X'40' This event is repetitive
EVEIMMED EQU X'20' This event to occur immediately
EVEDAILY EQU X'10' This event to occur daily
*
* Bits defined in EVEMOD for alter elements
*
EVEALTDE EQU X'80' Delete event
EVEALTSU EQU X'40' Suspend event
EVEALTRE EQU X'20' Resume event
EVEALTDL EQU X'10' Perform DISKLOAD
EVEALTID EQU X'08' Alter is for a particular task
*
* Bits defined in EVEFLAGM for messages
*
E4RCALL EQU EVERCALL*65536 3 byte version of EVERCALL
E4MIDN EQU EVEMIDKT*65536 3 byte version of EVEMIDKT
E4FILE EQU EVEFILE*256 3 byte version of EVEFILE
E4SCHED EQU EVESCHED*256 3 byte version of EVESCHED
E4SUSPN EQU EVESUSPN 3 byte version of EVESUSPN
X'004' EVENEXT DC A(0) Pointer to next EVEBLOK
X'008' EVEDATE DC CL8' ' Date associated with event
EVEYEAR EQU EVEDATE+0,2 Year sub-field
EVEMONTH EQU EVEDATE+3,2 Month sub-field
EVEDAY EQU EVEDATE+6,2 Day sub-field
X'010' EVETIME DC CL8' ' Time associated with event
EVEHOUR EQU EVETIME+0,2 Hour sub-field
EVEMIN EQU EVETIME+3,2 Minute sub-field
X'018' EVEDOFW DC CL8' ' Days of week associated with event
EVERANGE DS 0CL16 Label for following two fields
X'020' EVERNGLO DC CL8' ' Start of time range
X'028' EVERNGHI DC CL8' ' End of time range
X'030' EVETASK DC CL8' ' Event task name
X'038' EVETASKN DC F'0' Event task ID
X'03C' DS 4X Reserved
X'040' EVELRTU DC F'0' Event low range in STIMER units
X'044' EVEHRTU DC F'0' Event high range in STIMER units
X'048' EVEDELTU DC F'0' Cycle time for repetitive events
* ... in STIMER units
X'04C' EVEGOTU DC F'0' Next execution time for event
* ... today in STIMER units
X'050' EVEGOTOD DC D'0' Next execution time for event
* ... today in TOD clock units
X'058' EVEINLID DC CL8' ' Link ID
X'060' EVEINLNK DC A(0) Pointer to incoming LINKTABL,
* ... -1 if local SMSG, 0 if console
EVEC CMORIG DSECT=NO Command origin info
X'064' EVECQUAL DC AL1(0) Origin qualifier
X'065' EVECFLAG DC X'00' Flags (bits as MSGBFLAG)
X'066' EVECRSPC DC H'0' Response counter
X'068' EVECNODE DC CL8' ' Origin node
X'070' EVECUSER DC CL8' ' And user ID
X'078' EVECSIG DC CL6' ' Response signature
X'07E' DS XL2 Reserved slack bytes
EVEHDRL EQU *-&LABEL Length of fixed part of EVEBLOK
X'080' EVEPROTO DS 0D Beginning of variable format area