Previous Topic: #PMSTLDSNext Topic: #PMTASDS


#PMSVXDS

                        COPY #PMSVXDS
               *********************************************************************
               ***                                                               ***
               ***      #PMSVX - PERFORMANCE MONITOR ERE EXTENSION               ***
               ***                                                               ***
               ***      COPYRIGHT (C) 2007 CA technologies. ALL RIGHTS RESERVED.              ***
               ***                                                               ***
               ***                                                               ***
               ***                                                               ***
               *********************************************************************
               *
               *        REPLACES PERFMON 10.1 RTSDS DSECT
               *              (#PMRTSDM MACRO)
               *
               *

Offset  Value

        0C3F0  PMXSVXID EQU   C'C0'               SVXITMID FOR PERFMON
               *
               *
000000         #PMSVX   DSECT
               *
000000         PMXTYPE  DS    C                   ERUS TYPE INDENTIFIER
        000C2  PMX$BATC EQU   C'B'                ..BATCH ERUS
        000C3  PMX$CICS EQU   C'C'                ..CICS ERUS
        000E3  PMX$TPMN EQU   C'T'                ..OTHER TP MONITOR
        000C4  PMX$IDMS EQU   C'D'                ..IDMS/DC TP MONITOR
        00040  PMX$UNKN EQU   C' '                ..UNKNOWN
               *
        00001  PMXDATA  EQU   *                   BEGIN ACCOUNTING FIELDS AREA
               *
               *
        00001  PMXBATCH EQU   *                   BATCH ERUS FIELDS
               *
000001         PMXBJBNM DS    CL8                 BATCH JOB NAME
000009         PMXB#FLD DS    X                   NUMBER OF ACCOUNTING FIELDS
00000A         PMXBACFD DS   0CL30                BATCH ACCOUNTING FIELDS
00000A         PMXBF1LN DS    X                   ..FIRST ACCOUNTING FIELD LENGTH
00000B         PMXBF1FN DS    CL29                ..FIRST FIELD + THE REST OF DATA
        0001E  PMXBACLN EQU   *-PMXBACFD          LENGTH OF ACCOUNTING FIELDS
               *
000028                  ORG   PMXDATA
               *
        00001  PMXCICS  EQU   *                   CICS ERUS FIELDS
               *
000001         PMXCJBNM DS    CL8                 CICS REGION JOB NAME
000009         PMXCTI   DS    CL4                 CICS TRANSACTION ID      (PCTTI)
00000D         PMXCTETI DS    CL4                 CICS TERMINAL NAME       (TCTTETI)
000011         PMXCLID1 DS    CL4                 TPMON LREID1 - IDMSINTC TPNAME
000018         PMXCLID2 DS    F                   TPMON LREID2 - CICS TASK ID
00001C         PMXCTEOI DS    CL8                 CICS OPERATOR ID         (TCTTEOI)
               *
000024                  ORG   PMXDATA
               *
        00001  PMXIDMS  EQU   *                   ERUS FIELDS FOR IDMS/DC FRONT END
               *
000001         PMXDJBNM DS    CL8                 FRONT END IDMS REGION JOB NAME
000009         PMXDTI   DS    CL8                 IDMS F.E. TASK CODE
000011         PMXDTETI DS    CL8                 IDMS F.E. PTERM NAME
000019         PMXDCVN  DS    X                   IDMS FRONT END CVNUMBER
00001A                  DS    CL2                 FILLER
00001C         PMXDLID2 DS    F                   IDMS F.E. LREID2: IDMS TASK ID
Offset  Value

000020         PMXDTEOI DS    CL8                 IDMS F.E. USER ID
               *
000028                  ORG   PMXDATA
               *                                                                     *
        00001  PMXTPMON EQU   *                   TP MONITOR ERUS FIELDS
               *                                                                    **
000001                  DS    CL8                 ** RESERVED **
000009                  DS    CL4                 ** RESERVED **
00000D                  DS    CL4                 ** RESERVED **
000011         PMXTLID1 DS    CL4                 TPMON LREID1 -- IDMSINTX TPNAME
000018         PMXTLID2 DS    F                   TPMON LREID2
00001C                  DS    CL8                 ** RESERVED **
               *                                                                    **
000024                  ORG
        00028  PMXDSLEN EQU ((*-#PMSVX+1)/2)*2    LENGTH (ROUNDED TO HALFWORD)