*---------------------------------------------------------------------- * Name: ANRUSRXA COPY * Description: DSECT of the data structure passed by the USEREXIT * receiver to the installations USEREXIT module. *---------------------------------------------------------------------- PUSH PRINT AIF ('&SYSPARM' NE 'SUP').AR001 PRINT OFF .AR001 ANOP ANRUSRXA DSECT
* ANREVNT# DS F Event number ANRSEVCD DS H Event severity code ANRSEVIN EQU 2 ... Informational message ANRSEVWA EQU 3 ... Warning message ANRSEVER EQU 4 ... Error message ANRSEVSV EQU 5 ... Sever message message ANRSEVDI EQU 6 ... Diagnostic message ANRSEVTX EQU 7 ... Text message * ANRAPTYP DS H Application type ANRAPTBA EQU 1 ... Backup or Archive client ANRAPTHS EQU 2 ... Space management client ANRAPTAP EQU 3 ... API client ANRAPTSR EQU 4 ... Server (e.g. server to server) * ANRSESID DS F Session ID ANRVERSN DS F Version of this structure ANREVTYP DS F Event type ANREVTSR EQU 3 ... Server event ANREVTCL EQU 5 ... Client event * ANRSTAMP DS 0CL6 Time stamp of event data ANRYEAR DS X ... Years since base year ANRBASYR EQU 1900 ... (base year) ANRMONTH DS X ... Month (x'01' - x'0C') ANRDAY DS X ... Day (x'01' - x'1F') ANRHOUR DS X ... Hour (x'00' - x'18') ANRMINUT DS X ... Minutes (x'00' - x'3B') ANRSECND DS X ... Seconds (x'00' - x'3B') ANRSRVRN DS CL65 Server name ANRNODEN DS CL65 Node name ANRCOMMM DS CL17 Communications Method ANROWNER DS CL65 Owner name ANRHLADR DS CL65 High-level address ANRLLADR DS CL33 Low-level address ANRSCHDN DS CL31 Schedule name ANRDOMNN DS CL31 Domain name of node ANREVDAT DS CL1600 Event text DS 0D
*---------------------------------------------------------------------- * The actual length of the data in each of the character fields is * provided; only the maximum lengths. The end of the data string * string is indicated by a x'00' in each of the character fields. * Since no lengths are being provided, you must determine the length * of the data in each of the character fields. ANRSRVLN EQU 64 Server name max length ANRNODLN EQU 64 Node name max length ANRCOMLN EQU 16 Communications Method max length ANROWNLN EQU 64 Owner name max length ANRHLALN EQU 64 High-level address max length ANRLLALN EQU 32 Low-level address max length ANRSCHLN EQU 30 Schedule name max length ANRDOMLN EQU 30 Domain name of node max length ANREVDLN EQU 1600 Event text max length *---------------------------------------------------------------------- ANRUSXSZ EQU *-ANRUSRXA Size of structure in bytes ANRUSXDW EQU ((*-ANRUSRXA)+7)/8 Size of structure in doublewords * EJECT POP PRINT