Previous Topic: #PMDBGDSNext Topic: #PMHDRDS


#PMDBKDS

                        COPY #PMDBKDS
               *********************************************************************
               ***                                                               ***
               ***      #PMDBK - TASK DBKEY WAIT RECORD                          ***
               ***                                                               ***
               ***      COPYRIGHT (C) 2007 CA technologies. ALL RIGHTS RESERVED.              ***
               ***                                                               ***
               ***                                                               ***
               ***                                                               ***
               *********************************************************************
               *
               *
               *        UP TO MAX # SPECIFIED IN #PMOPT PER TASK
               *
               *--------------------------------------------------------------------
               *

Offset  Value

000000         #PMDBK   DSECT                            03:24:14 03/03/88   12/27/94
               *
               *--------------------------------------------------------------------
               *
000000         DBKHDR   DS   0H                   RECORD HEADER
               *
000000         DBKLEN   DS    H                   RECORD LENGTH         (INCLUSIVE)
000002         DBKRTYPE DS    X                   RECORD TYPE
        00012  DBK$TYPE EQU      18               ..PMAM TASK DBKEY WAIT RECORD
000003         DBKSEQ#  DS    X                   SEQUENCE NUMBER
000004         DBKVER#  DS    X                   RECORD VERSION
        00001  DBK$VER  EQU       1               ..CURRENT VERSION
000005                  DS    XL3                 ** RESERVED **
               *
000008         DBKTSKID DS    F                   TASK ID
00000C         DBKSDATE DS    PL4                 TASK START DATE       (00YYYDDF)
000010         DBKSTIME DS    F                   TASK START TIME       (10**-4 SEC)
000014         DBKEDATE DS    PL4                 TASK END DATE         (00YYYDDF)
000018         DBKETIME DS    F                   TASK END TIME         (10**-4 SEC)
               *
        0001C  DBKHDRLN EQU   *-DBKHDR            HEADER LENGTH
               *
               *--------------------------------------------------------------------
               *
        0001C  DBKDATA  EQU   *                   START OF TASK DBKEY WAIT DATA
               *
00001C         DBKDBKEY DS    F                   DBKEY BEING WAITED ON
000020         DBKAREA  DS    CL27                AREA CONTAINING DBKEY
00003B         DBKFILE  DS    CL27                FILE CONTAINING DBKEY
               *
000056         DBKOWNER DS    X                   DBKEY OWNER TYPE
        00080  DBKDCE   EQU   X'80'               ..DCE IS OWNER
        00040  DBKLTE   EQU   X'40'               ..LTE IS OWNER
        00020  DBKHTE   EQU   X'20'               ..HTE IS OWNER
000057                  DS    X                   **  RESERVED  **
               *
000058         DBKPGGRP DS    H                   AREA'S PAGE GROUP  (DPRPGRUP)
00005A                  DS    XL2                 **  RESERVED  **           PERF/116
00005C         DBKKYFMT DS    F                   DBKEY FORMAT       (DPRDBKFM)
               *
000060         DBKLTYPE DS    F                   LOCK TYPE          (FROM RLTH)
               *
               *--------------------------------
               *
Offset  Value

000064         DBKVDATA DS   0F                   VARIABLE HOLDER INFORMATION
               *
               *        HOLDER IS ANOTHER TASK
000064         DBKHDTID DS    F                   TASK ID OF HOLDER
000068         DBKHDPGM DS    CL8                 PROGRAM HOLDING DBKEY
000070         DBKHDTSK DS    CL8                 TASK NAME OF HOLDER
               *
000078                  ORG   DBKVDATA
               *        HOLDER IS ANOTHER LTERM (LONGTERM LOCKS)
000064                  DS    F                   ** RESERVED **
000068         DBKHDLTE DS    CL8                 LTERM OF HOLDER
               *
000070                  ORG   DBKVDATA
               *        HOLDER IS A DDS TASK
000064                  DS    F                   ** RESERVED **
000068         DBKHTLTE DS    CL8                 DDS FRONTEND LTERM OF HOLDER
000070         DBKHTNOD DS    CL8                 DDS FRONTEND NODENAME OF HOLDER
               *
000078                  ORG
        00014  DBKVLEN  EQU   *-DBKVDATA          LENGTH OF VARIABLE DATA
               *
               *--------------------------------
               *
000078         DBKWAIT  DS    F                   DBKEY WAIT TIME       (10**-4 SEC)
               *
               *--------------------------------------------------------------------
               *
        0007C  DBKDSLEN EQU   ((*-#PMDBK+3)/4)*4  LENGTH OF RECORD
               *
               *--------------------------------------------------------------------
               *
        00060  DBKDTLEN EQU   DBKDSLEN-DBKHDRLN   LENGTH OF RECORD DATA
               *
               *--------------------------------------------------------------------