Previous Topic: #PMXLIDSNext Topic: #PMXMSDS


#PMXLKDS

                        COPY #PMXLKDS
               *********************************************************************
               ***                                                               ***
               ***      #PMXLK - PMIM DSG XESLOck wait record                    ***
               ***                                                               ***
               ***      COPYRIGHT (C) 2007 CA technologies. ALL RIGHTS RESERVED.              ***
               ***                                                               ***
               ***                                                               ***
               ***                                                               ***
               *********************************************************************
               *
               *-

Offset  Value

000000         XLKRT    DSECT
               * To simplify coding, the 3 wait fullwords are to be first
000000         XLKRTTWT DS    F                   ....SUM OF WAIT TIMES (10**-4 sec)
000004         XLKRTHWT DS    F                   ....HIGHEST WAIT TIME (10**-4 sec)
000008         XLKRT#WT DS    F                   ....# WAITS
00000C         XLKRT#O  DS    F                   # Obtains
000010         XLKRT#A  DS    F                   # Alters
000014         XLKRT#R  DS    F                   # Releases
000018         XLKRT#CX DS    F                   # Contention exit runs
00001C         XLKRT#NX DS    F                   # Notify exit runs
        00020  XLKRTLEN EQU   *-XLKRT             Sizeof(resource type info)
               *
000000         #PMXLK   DSECT
               *
               *--------------------------------------------------------------------
               *
000000         XLKHDR   DS   0H                   Record header
               *
000000         XLKLEN   DS    H                   Record length         (inclusive)
000002         XLKRTYPE DS    X                   Record type
        0000D  XLK$TYPE EQU      13               ..PMIM DSG XESLock wait record
000003         XLKSEQ#  DS    X                   Sequence number
000004         XLKVER#  DS    X                   Record version
        00001  XLK$VER  EQU       1               ..Current version
000005                  DS    XL3                 ** RESERVED **
               *
000008                  DS    F                   ** RESERVED **
00000C         XLKSDATE DS    PL4                 Interval start date   (0CYYYDDF)
000010         XLKSTIME DS    F                   Interval start time   (10**-4 sec)
000014         XLKEDATE DS    PL4                 Interval end date     (0CYYYDDF)
000018         XLKETIME DS    F                   Interval end time     (10**-4 sec)
               *
        0001C  XLKHDRLN EQU   *-XLKHDR            Header length
               *
               *--------------------------------------------------------------------
               *
        0001C  XLKDATA  EQU   *                   Start of data
00001C         XLKSTRNM DS    CL16                Structure name
               *
        00006  XLKRTYP1 EQU   6                   Number of resource types in part 1
00002C         XLKDATA1 DS    (XLKRTYP1)XL(XLKRTLEN)   Space for first 6 res. types
        000EC  XLKDSLN1 EQU   *-#PMXLK            Length of record part 1
0000EC                  ORG   XLKDATA
        00002  XLKRTYP2 EQU   2                   Number of resource types in part 2
00001C         XLKDATA2 DS    (XLKRTYP2)XL(XLKRTLEN)   Space for last 2 res. types
        0005C  XLKDSLN2 EQU   *-#PMXLK            Length of record part 2
00005C                  ORG
               *
Offset  Value

        000EC  XLKDSLEN EQU   *-#PMXLK            Length of record
               *
        000D0  XLKDTLEN EQU   XLKDSLEN-XLKHDRLN   Length of record data
               *
               *--------------------------------------------------------------------