Administrator's Guide


Sample Assembler User Exit DSECT (ANRUSRXA)

Figure 90. ANRUSRXA

*----------------------------------------------------------------------
*  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 


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]