Previous Topic: #PMTAWDSNext Topic: #PMXLKDS


#PMXLIDS

                        COPY #PMXLIDS
               *********************************************************************
               ***                                                               ***
               ***      #PMXLI - PMIM DSG XESList wait record                    ***
               ***                                                               ***
               ***      COPYRIGHT (C) 2007 CA technologies. ALL RIGHTS RESERVED.              ***
               ***                                                               ***
               ***                                                               ***
               ***                                                               ***
               *********************************************************************
               *
               *-

Offset  Value

000000         XLILN    DSECT
               * To simplify coding, the 3 wait fullwords are to be first
000000         XLILNTWT DS    F                   ....SUM OF WAIT TIMES (10**-4 sec)
000004         XLILNHWT DS    F                   ....HIGHEST WAIT TIME (10**-4 sec)
000008         XLILN#WT DS    F                   ....# WAITS
00000C         XLILN#R  DS    F                   # Reads
000010         XLILN#W  DS    F                   # Writes
000014         XLILN#D  DS    F                   # Deletes
        00018  XLILNLEN EQU   *-XLILN             Sizeof(resource type info)
               *
000000         #PMXLI   DSECT
               *
               *--------------------------------------------------------------------
               *
000000         XLIHDR   DS   0H                   Record header
               *
000000         XLILEN   DS    H                   Record length         (inclusive)
000002         XLIRTYPE DS    X                   Record type
        0000E  XLI$TYPE EQU      14               ..PMIM DSG XESList wait record
000003         XLISEQ#  DS    X                   Sequence number
000004         XLIVER#  DS    X                   Record version
        00001  XLI$VER  EQU       1               ..Current version
000005                  DS    XL3                 ** RESERVED **
               *
000008                  DS    F                   ** RESERVED **
00000C         XLISDATE DS    PL4                 Interval start date   (0CYYYDDF)
000010         XLISTIME DS    F                   Interval start time   (10**-4 sec)
000014         XLIEDATE DS    PL4                 Interval end date     (0CYYYDDF)
000018         XLIETIME DS    F                   Interval end time     (10**-4 sec)
               *
        0001C  XLIHDRLN EQU   *-XLIHDR            Header length
               *
               *--------------------------------------------------------------------
               *
        00004  XLILIST# EQU   4                   Number of lists in record
        0001C  XLIDATA  EQU   *                   Start of data
00001C         XLISTRNM DS    CL16                Structure name
00002C         XLIDTAIL DS    (XLILIST#)XL(XLILNLEN)
        0008C  XLIDSLEN EQU   *-#PMXLI            Length of record
               *
        00070  XLIDTLEN EQU   XLIDSLEN-XLIHDRLN   Length of record data
               *
               *--------------------------------------------------------------------