Previous Topic: #PMSVXDSNext Topic: #PMTAWDS


#PMTASDS

				COPY #PMTASDS
               *********************************************************************
               ***                                                               ***
               ***      #PMTAS - PMAM TASK RECORD                                ***
               ***                                                               ***
               ***      COPYRIGHT (C) 2010 CA. ALL RIGHTS RESERVED.              ***
               ***                                                               ***
               ***                                                               ***
               ***                                                               ***
               *********************************************************************
               *
 
Offset  Value
 
000000         #PMTAS   DSECT
               *
               *--------------------------------------------------------------------
               *
000000         TASHDR   DS   0H                   RECORD HEADER
               *
000000         TASLEN   DS    H                   RECORD LENGTH         (INCLUSIVE)
000002         TASRTYPE DS    X                   RECORD TYPE
        00010  TAS$TYPE EQU      16               ..PMAM TASK STATS RECORD
000003         TASSEQ#  DS    X                   SEQUENCE NUMBER
000004         TASVER#  DS    X                   RECORD VERSION
        00001  TAS$VER  EQU       1               ..CURRENT VERSION
000005                  DS    XL3                 ** RESERVED **
               *
000008         TASTSKID DS    F                   TASK ID
00000C         TASSDATE DS    PL4                 TASK START DATE       (00YYYDDF)
000010         TASSTIME DS    F                   TASK START TIME       (10**-4 SEC)
000014         TASEDATE DS    PL4                 TASK END DATE         (00YYYDDF)
000018         TASETIME DS    F                   TASK END TIME         (10**-4 SEC)
               *
        0001C  TASHDRLN EQU   *-TASHDR            HEADER LENGTH
               *
               *--------------------------------------------------------------------
               *
        0001C  TASDATA  EQU   *                   START OF TASK STATS DATA
               *
               *--------------------------------------------------------------------
               *
               *        PART1 - TASSEQ#=1
               *
               *--------------------------------------------------------------------
               *
               *        TASK IDENTIFICATION
               *
00001C         TASTCDID DS    CL8                 IDENTIFYING TASK CODE
               *                                  ..IF DC, DC TASKCODE
               *                                  ..IF ADSO, APPLICATION NAME
               *                                  ..IF CICS ERUS, TRANS ID
               *                                  ..IF BATCH ERUS, JOBNAME
               *                                  ..ANY OTHER ERUS, INTX LRELID1
               *
000024         TASTRMID DS    CL8                 IDENTIFYING TERMINAL ID
               *                                  ..IF DC, DC LTERM ID OR OPTIONALLY
               *                                      ACCESS METHOD SPECIFIC
               *                                      TERMINAL IDENTIFICATION
               *                                      (TASAMNAM)
               *                                  ..IF CICS ERUS, TERMINAL ID
               *                                  ..ELSE NOT USED
               *
00002C         TASPGMID DS    CL8                 IDENTIFYING PROGRAM NAME
               *                                  ..IF DC, DC PROGRAM NAME
               *                                  ..IF ADSO, DIALOG NAME
               *                                  ..IF ANY ERUS, PROGRAM NAME
               *                                         FROM BIND RUNUNIT
               *
000034         TASUSRID DS    CL8                 IDENTIFYING USER ID
               *                                  ..IF DC, USER ID (FIRST 8 BYTES)
               *                                  ..IF CICS ERUS, OPERATOR ID
               *                                  ..ELSE NOT USED
               *
               *--------------------------------------------------------------------
               *
00003C         TASTTYPE DS    X                   TASK TYPE FLAG
        00080  TAS$ONLN EQU   X'80'               ..ONLINE
        00040  TAS$BATC EQU   X'40'               ..BATCH ERUS
        00020  TAS$CICS EQU   X'20'               ..CICS ERUS
        00010  TAS$ERUS EQU   X'10'               ..UNIDENTIFIED ERUS
        00008  TAS$SYST EQU   X'08'               ..SYSTEM TASK OR DRIVER
        00004  TAS$TPMN EQU   X'04'               ..UNIDENTIFIED TPMONITOR
        00002  TAS$IDMS EQU   X'02'               ..IDMS/DC ERUS
               *
00003D         TASTTYP2 DS    X                   TASK TYPE FLAG 2
               *                                  IF SYSTEM TASK:
        00080  TAS$LDRV EQU   X'80'               ..LINE DRIVER
        00040  TAS$SDRV EQU   X'40'               ..SERVICE DRIVER
        00020  TAS$PRTK EQU   X'20'               ..PRINT TASK
        00010  TAS$HLT  EQU   X'10'               ..HELOT TASK
        00008  TAS$JNLD EQU   X'08'               ..JOURNAL DRIVER
        00004  TAS$IODR EQU   X'04'               ..DB I/O WRITE DRIVER
        00002  TAS$RDDR EQU   X'02'               ..DB I/O READ DRIVER
        00001  TAS$IOT  EQU   X'01'               ..DB I/O TASK
               *                                  IF ONLINE TASK:  N.B.:MORE THAN
        00080  TAS$ADSO EQU   X'80'               ..ADSO                ONE FLAG MAY
        00040  TAS$FACT EQU   X'40'               ..FACTOTUM            BE SET
        00020  TAS$UCF  EQU   X'20'               ..UCF
               *
               *--------------------------------------------------------------------
               *
00003E         TASPTYPE DS    X                   PROGRAM TYPE FLAG
        00080  TAS$COBL EQU   X'80'               ..COBOL
        00040  TAS$ASM  EQU   X'40'               ..ASSEMBLER (BAL)
        00020  TAS$PLI  EQU   X'20'               ..PL/I
        00010  TAS$DLG  EQU   X'10'               ..DIALOG
        00008  TAS$SUBS EQU   X'08'               ..SUBSCHEMA
        00004  TAS$MAP  EQU   X'04'               ..MAP
        00002  TAS$TBL  EQU   X'02'               ..TABLE
        00001  TAS$UNDF EQU   X'01'               ..UNDEFINED
               *
00003F         TASPRTY  DS    X                   TASK PRIORITY
000040         TASPGVER DS    H                   PROGRAM VERSION NUMBER
000042                  DS    H                   ** RESERVED **
               *
               *--------------------------------------------------------------------
               *--------------------------------------------------------------------
               *
               *        TASK VARIABLE DATA
               *
000044         TASVDATA DS   0F
               *
               *---------------------------------
               *
               *        DC TASK DATA
               *
        00044  TASDC    EQU   *
000044         TASTSKCD DS    CL8                 ..TASK CODE
00004C         TASPGMNM DS    CL8                 ..PROGRAM NAME
000054         TASLTEID DS    CL8                 ..LTERM ID
00005C         TASPTEID DS    CL8                 ..PTERM ID
000064         TASUSER  DS    CL32                ..USER ID
               *
000084         TASPGDBN DS    CL8                 ..PROGRAM DICTNAME
00008C         TASPGNOD DS    CL8                 ..PROGRAM DICTNODE
000094         TASLDLST DS    CL8                 ..LTERM LOADLIST
               *
00009C         TASVNODE DS   0CL8                 ..VTAM NODENAME
00009C         TASFEID  DS   0CL8                 ..UCF FRONTEND ID
00009C         TASAMNAM DS    CL8                 ACCESS METHOD TERMINAL IDENTIFIER
               *                                  ..VTAM NODENAME
               *                                  ..UCF FRONTEND ID
               *                                  ..SNA TERMINAL NAME
               *                                  ..TCAM TERMINAL NAME
               *
0000A4         TASFACCD DS    X                   ..FACTOTUM CODE
0000A5                  DS    X                   ....UNUSED
        00062  TASDVLEN EQU   *-TASDC             DC TASK DATA LENGTH
               *
               *---------------------------------
               *
               *        CICS OR IDMS/DC ERUS TASK DATA
               *
0000A6                  ORG   TASVDATA
        00044  TASCICS  EQU   *
000044         TASCTI   DS    CL8                 ..TRANSACTION ID/TASK CODE
00004C         TASCPGNM DS    CL8                 ..PROGRAM NAME (FROM BIND RUNUNIT)
000054         TASCTETI DS    CL8                 ..FRONT END TERMINAL NAME
00005C         TASCLID  DS   0CL8                 ..LOCAL ID FROM LRE
00005C         TASCLID1 DS    CL4                 ....LRELID1 - IDMSINTC TPNAME or
               *                                                Dnnn where nnn is
               *                                                IDMS FE CV NUMBER.
000060         TASCLID2 DS    XL4                 ....LRELID2 - CICS OR IDMS TASK ID
000064         TASCTEOI DS    CL8                 ..OPERATOR ID            (TCTTEOI)
00006C         TASCJBNM DS    CL8                 ..FRONT-END CICS OR IDMS JOBNAME
        00030  TASCVLEN EQU   *-TASCICS           CICS OR ERUS DATA LENGTH
               *
               *---------------------------------
               *
               *        BATCH ERUS TASK DATA
               *
000074                  ORG   TASVDATA
        00044  TASBATCH EQU   *
000044         TASBJBNM DS    CL8                 ..JOBNAME
00004C         TASBPGNM DS    CL8                 ..PROGRAM NAME (FROM BIND RUNUNIT)
               * ACCOUNTING INFORMATION
000054         TASB#FLD DS    X                   ..NUMBER OF ACCOUNTING FIELDS
        00055  TASBACFD EQU   *                   ..START OF ACCOUNTING FIELDS
000055         TASBBALN DS    X                   ..TOTAL LENGTH OF BATCH ACCT DATA
000056         TASBFLDS DS   0CL30                ..ACCT FIELD 1 THRU N LEN/DATA
000056         TASBF1LN DS    X                   ....FIRST ACCOUNTING FIELD LENGTH
000057         TASBF1FN DS    CL29                ....FIRST FIELD + THE REST OF DATA
        00030  TASBVLEN EQU   *-TASBATCH          BATCH ERUS DATA LENGTH
               *
               *---------------------------------
               *
               *        TPMON ERUS TASK DATA
               *
000074                  ORG   TASVDATA
        00044  TASTPMON EQU   *
000044                  DS    CL8                 ....UNUSED
00004C         TASTPGNM DS    CL8                 ..PROGRAM NAME
000054                  DS    CL8                 ....UNUSED
00005C                  DS    CL8                 ....UNUSED
000064         TASTLID  DS   0CL8                 ..LOCAL ID FROM LRE
000064         TASTLID1 DS    CL4                 ....LRELID1 - IDMSINTX TPNAME
000068         TASTLID2 DS    XL4                 ....LRELID2
        00028  TASTVLEN EQU   *-TASTPMON          TPMON ERUS DATA LENGTH
               *
               *---------------------------------
               *
00006C                  ORG   ,
        00062  TASVLEN  EQU   *-TASVDATA          VARIABLE DATA LENGTH
               *
               *--------------------------------------------------------------------
               *--------------------------------------------------------------------
               *
               *        TASK COMPLETION DATA
               *
        00080  TASABND  EQU   X'80'               ..TASK ABEND
        00040  TASABRT  EQU   X'40'               ..ADS DIALOG ABORT
        00020  TASTOUT  EQU   X'20'               ..TASK TIMED OUT (SINGLE ECB)
        00010  TASTOUL  EQU   X'10'               ..TASK TIMED OUT (ECB LIST)
0000A6         TASTABND DS    X                   TASK ABEND FLAG
0000A7                  DS    X                   ** RESERVED **
0000A8         TASABMSG DS    PL4                 ABEND MESSAGE NUMBER
0000AC         TASABCDE DS    CL4                 ABEND CODE
               *
               *--------------------------------------------------------------------
               *
               *        TASK ACCOUNTING DATA
               *
0000B0         TASBLGRP DS    CL12                BILLING GROUP (FROM SON)
               *
0000BC         TASUFLD1 DS    CL8                 USER FIELDS
0000C4         TASUFLD2 DS    CL8                 ..AVAILABLE FOR USER
0000CC         TASUFLD3 DS    CL8                 ..PERFMON DOES NOT MODIFY
               *
               *--------------------------------------------------------------------
               *
               *        ADSO DATA
               *
0000D4         TASDLGNM DS    CL8                 DIALOG NAME      (FDB)
0000DC         TASAPLNM DS    CL8                 APPLICATION NAME (ADB)
0000E4         TASMXLVL DS    X                   MAX # DIALOG LEVELS
0000E5         TASMXRBB DS    X                   MAX # RBBS
0000E6         TAS#DBLV DS    X                   # LEVELS DOING DB WORK AT TASKTERM
0000E7                  DS    XL3                 **  RESERVED  **
               *
               *--------------------------------------------------------------------
               *
0000EC                  DS   0F
               *
        000EC  TAS1DSLN EQU   *-#PMTAS            PART1 - LENGTH OF RECORD
               *
               *
        000D0  TAS1DTLN EQU   TAS1DSLN-TASHDRLN   PART1 - LENGTH OF RECORD DATA
               *
               *--------------------------------------------------------------------
               *--------------------------------------------------------------------
               *
0000EC                  ORG   TASDATA
               *
               *--------------------------------------------------------------------
               *
               *        PART2 - TAWSEQ#=2
               *
               *---------------------------------
               *
00001C         TASDCTRL DS    H     ????          TERMINAL READ LENGTH
00001E         TASDCTWL DS    H     ????          TERMINAL WRITE LENGTH
               *
000020         TASSTGKP DS    F                   STG KEPT AT TASK TERMINATION
000024         TASSTGRL DS    F                   STG RELOCATED (TO SCRATCH)
000028         TASPGMUS DS    F                   PGMPOOL IN USE AT TASK TERMINATION
00002C         TASPGMHW DS    F                   PGMPOOL HIGH WATER MARK
               *---------------------------------
               *
               *        TASK DC STATISTICS
               *
000030         TASPGMCL DS    F                   # OF PROGRAMS CALLED
000034         TASPGMLD DS    F                   # OF PGMS LOADED
000038         TASTRMRD DS    F                   # OF TERMINAL READS
00003C         TASTRMWR DS    F                   # OF TERMINAL WRITES
000040         TASTRMER DS    F                   # OF TERMINAL ERRORS
000044         TASSTGGT DS    F                   # OF GET STORAGE REQUESTS
000048         TASSCRGT DS    F                   # OF SCRATCH GETS
00004C         TASSCRPT DS    F                   # OF SCRATCH PUTS
000050         TASSCRDL DS    F                   # OF SCRATCH DELETES
000054         TASQUEGT DS    F                   # OF QUEUE GETS
000058         TASQUEPT DS    F                   # OF QUEUE PUTS
00005C         TASQUEDL DS    F                   # OF QUEUE DELETES
000060         TASGETIM DS    F                   # OF GETTIME REQUESTS
000064         TASSETIM DS    F                   # OF SETTIME REQUESTS
000068         TASDBRQS DS    F                   # OF DB SERVICE RQSTS   (STCDBRQS)
00006C         TASHISTK DS    F                   MAX WORDS USED IN STACK
000070         TASTIMUS DS    F                   USER MODE TIME   (10**-4 SECONDS)
000074         TASTIMSY DS    F                   SYSTEM MODE TIME (10**-4 SECONDS)
000078         TASTIMWT DS    F                   WAIT TIME        (10**-4 SECONDS)
00007C         TASHIRCE DS    F                   MAXIMUM NUMBER OF RCE'S USED
000080         TASHIRLE DS    F                   MAXIMUM NUMBER OF RLE'S USED
000084         TASHIDPE DS    F                   MAXIMUM NUMBER OF DPE'S USED
000088         TASSTGHW DS    F                   STORAGE HIGH WATER MARK
00008C         TASSTGFR DS    F                   # OF FREE STORAGE REQUESTS
000090         TASSVRQS DS    F                   # OF DCSYSTEM SERVICE RQSTS
000094         TASDCEND DS   0F                   END OF TASK DC STATS
               *
               *---------------------------------
               *
               *        TASK DB STATISTICS
               *
               *---------------------------------
               *
000094         TASPAGRD DS    F                   # OF PAGES READ
000098         TASPAGWR DS    F                   # OF PAGES WRITTEN
00009C         TASPAGRQ DS    F                   # OF PAGES REQUESTED
0000A0         TASCALNO DS    F                   # OF CALC RECS WITH NO OFLOW
0000A4         TASCALOF DS    F                   # OF CALC RECS WITH OFLOW
0000A8         TASVIANO DS    F                   # OF VIA RECS WITH NO OFLOW
0000AC         TASVIAOF DS    F                   # OF VIA RECS WITH OFLOW
0000B0         TASRECRQ DS    F                   # OF RECORDS REQUESTED
0000B4         TASRECCU DS    F                   # OF RECS CURRENT OF RUNUNIT
0000B8         TASDBCLS DS    F                   # OF DBMS CALLS         (STBDBRQS)
0000BC         TASFRAGS DS    F                   # OF FRAGMENTS STORED
0000C0         TASRELO  DS    F                   # OF RECORDS RELOCATED
0000C4         TASTLOCK DS    F                   # OF LOCKS        FOR RU
0000C8         TASSLOCK DS    F                   # OF SELECT LOCKS FOR RU
0000CC         TASULOCK DS    F                   # OF UPDATE LOCKS FOR RU
0000D0         TASDBEND DS   0F                   END OF TASK DB STATS
0000D0         TASUPCNT DS    F                   # OF RECORDS UPDATED
0000D4         TASCACHE DS    F                   # OF RECORDS FOUND IN CACHE
0000D8         TASPRFET DS    F                   # OF RECORDS FOUND IN PREFETCH
0000DC         TASDBEN2 DS   0F                   END OF TASK DB STATS
               *
0000DC                  DS   0F
               *
        000DC  TAS2DSLN EQU   *-#PMTAS            PART2 - LENGTH OF RECORD
               *
               *
        000C0  TAS2DTLN EQU   TAS2DSLN-TASHDRLN   PART2 - LENGTH OF RECORD DATA
               *
               *--------------------------------------------------------------------
               *--------------------------------------------------------------------
               *
0000DC                  ORG   TASDATA
               *
               *--------------------------------------------------------------------
               *
               *        PART3 - TAWSEQ#=3
               *
               *---------------------------------
               *
               *        TASK SQL STATISTICS
               *
               *---------------------------------
               *
00001C         TAS#CMD  DS    F                   # OF SQL COMMANDS EXECUTED
000020         TAS#FET  DS    F                   # OF ROWS FETCHED
000024         TAS#INS  DS    F                   # OF ROWS INSERTED
000028         TAS#UPD  DS    F                   # OF ROWS UPDATED
00002C         TAS#DEL  DS    F                   # OF ROWS DELETED
000030         TAS#SRT  DS    F                   # OF SORTS PERFORMED
000034         TAS#SRR  DS    F                   # OF ROWS SORTED
000038         TAS#SMI  DS    F                   # OF MINIMUM ROWS SORTED
00003C         TAS#SMX  DS    F                   # OF MAXIMUM ROWS SORTED
000040         TAS#AMC  DS    F                   # OF AM RECOMPILES
000044         TASSQEND DS   0F                   END OF TASK SQL STATS
               *
               *--------------------------------------------------------------------
               *
               *        Extended DC Statistics                                  R180
               *
               *--------------------------------------------------------------------
000048         TASXBEG  DS    0D                  Beginning of Extended statistics
000048         TASSYTI  DS    D                   CPU time in TOD
000050         TASCPTI  DS    D                   SRB CPU time on CP in TOD
000058         TASZPTI  DS    D                   SRB CPU time on zIIP in TOD
000060         TASUSTI  DS    D                   User mode time in TOD
000068         TASTTTI  DS    D                   TCB CPU time in TOD
000070         TASENTI  DS    D                   Total enclave SRB CPU time in TOD
000078                  DS    14D                 Reserved
0000E8         TASXEND  DS    0D                  End of Extended statistics
               *
               *--------------------------------------------------------------------
               *
0000E8                  DS   0F
        000E8  TAS3DSLN EQU   *-#PMTAS            PART3 - LENGTH OF RECORD
               *
        000CC  TAS3DTLN EQU   TAS3DSLN-TASHDRLN   PART3 - LENGTH OF RECORD DATA
               *
               *--------------------------------------------------------------------
               *
0000E8                  ORG   ,
               *
        000F0  TASMXLEN EQU   ((*-#PMTAS+7)/8)*8  LENGTH OF LONGEST PART
               *
               *--------------------------------------------------------------------