Previous Topic: #PMSMHDSNext Topic: #PMS30DS


#PMSM4DS

				COPY #PMSM4DS
               *********************************************************************
               ***                                                               ***
               ***      #PMSM4 - APPLICATION MONITOR SMF TYPE 4 RECORDS          ***
               ***                                                               ***
               ***      COPYRIGHT (C) 2010 CA. ALL RIGHTS RESERVED.              ***
               ***                                                               ***
               ***                                                               ***
               ***                                                               ***
               *********************************************************************
               *
               *        SMF TYPE 4 RECORDS - JOB STEP COMPLETION.
               *
               *        THE PERFORMANCE MONITOR WILL WRITE ONE SMF TYPE 4 RECORD
               *              FOR EACH TASK AT TASK TERMINATION IF DESIRED
               *
               *        FIELD NAMES USED ARE THE SAME AS THOSE SHOWN IN
               *              THE IBM SPL:SMF MANUAL
               *
               *--------------------------------------------------------------------
               *
 
Offset  Value
 
000000         #PMSM4   DSECT                                            05/17/88
               *
               *--------------------------------------------------------------------
               *
000000         SMF4LEN  DS    H                   RECORD LENGTH
000002         SMF4SEG  DS    H                   SEGMENT DESCRIPTOR - UNUSED
               *
000004         SMF4FLG  DS    X                   SYSTEM INDICATOR
        00002  SMF4MVS  EQU   X'02'               ..MVS
        00006  SMF4XA   EQU   X'06'               ..MVS/XA
               *
000005         SMF4RTY  DS    X                   SMF RECORD TYPE
        00004  SMF4$RTY EQU   X'04'               ..STEP TERMINATION RECORD TYPE
               *
000006         SMF4TME  DS    XL4                 TIME RECORD WRITTEN   (10**-2 SEC)
00000A         SMF4DTE  DS    PL4                 DATE RECORD WRITTEN   (00YYDDDF)
00000E         SMF4SID  DS    CL4                 SYSTEM IDENTIFIER FROM CVT
               *
               *--------------------------------------------------------------------
               *
000012         SMF4JBN  DS    CL8                 JOBNAME OF CV JOB
00001A         SMF4RST  DS    XL4                 DC TASK INIT TIME     (10**-2 SEC)
00001E         SMF4RSD  DS    PL4                 DC TASK INIT DATE     (00YYDDDF)
               *
000022         SMF4UIF  DS    CL8                 USER IDENTIFICATION
               *                                  ..DC/UCF = USERID (FIRST 8 BYTES)
               *                                  ..CICS   = OPERATOR ID
               *                                  ..BATCH  = BATCH JOBNAME
               *
00002A 0       SMF4STN  DC    X'01'               STEP NUMBER - ALWAYS 01
00002B         SMF4SIT  DS    XL4                 SAME AS SMF4RST-SEE ABOVE
00002F         SMF4STID DS    PL4                 SAME AS SMF4RSD-SEE ABOVE
000033         SMF4NCI  DS    XL4                 UNUSED
               *
000037         SMF4SCC  DS    XL2                 COMPLETION INDICATOR
               *                                  ..NORMAL COMPLETION = X'0000'
               *                                  ..ABEND COMPLETION  = X'FFFF'
               *
000039         SMF4PRTY DS    XL1                 IDMS-DC/UCF TASK PRIORITY
               *
00003A         SMF4PGMN DS    CL8                 PROGRAM NAME IDENTIFIER
               *                                  ..DC/UCF = PROGRAM NAME
               *                                  ..ADSO   = DIALOG NAME
               *                                  ..ERUS   = PROGRAM NAME FROM
               *                                             BIND RUNUNIT
               *
000042         SMF4STMN DS    CL8                 STEP NAME  (TASK CODE IDENTIFIER)
               *                                  ..DC/UCF = TASK CODE
               *                                  ..ADSO   = APPLICATION NAME
               *                                  ..BATCH  = BATCH JOBNAME
               *                                  ..CICS   = TRANSACTION ID
               *
00004A         SMF4RSV5 DS    XL2                 UNUSED
00004C         SMF4SYST DS    XL2                 IDMS PGMPOOL HI WATERMARK IN KBYTES
00004E         SMF4H0ST DS    XL2                 IDMS STGPOOL HI WATERMARK IN KBYTES
000050         SMF4RV1  DS    XL2                 UNUSED
000052         SMF4RSHO DS    XL4                 UNUSED
000056         SMF4SPK  DS    XL1                 STORAGE PROTECT KEY OF CV
000057         SMF4STI  DS    XL1                 STEP TERMINATION INDICATOR
        00000  SMF4$NRM EQU   X'00'               ..NORMAL COMPLETION
        00002  SMF4$ABD EQU   X'02'               ..ABEND
000058         SMF4RV2  DS    XL2                 UNUSED
00005A         SMF4AST  DS    XL4                 SAME AS SMF4RST
00005E         SMF4PPST DS    XL4                 SAME AS SMF4RST
000062         SMF4RV3  DS    XL1                 UNUSED
000063         SMF4SRBT DS    XL3                 SRB (zIIP on CP + zIIP) (10**-2 SEC)
000066         SMF4RIN  DS    XL2                 UNUSED
000068         SMF4RLCT DS    XL2                 OFFSET TO RELOCATE SECTION
               *
00006A 0       SMF4LENN DC    XL2'000A'           LENGTH OF DEVICE ENTRY PORTION
00006C 2       SMF4DEVC DC    XL1'20'             DEVICE CLASS = DASD
00006D 0       SMF4UTYP DC    XL1'0E'             DEVICE TYPE  = 3380
00006E 0       SMF4CUAD DC    XL2'0FFF'           DEVICE ADDRESS
000070         SMF4EXCP DS    XL4                 # OF IDMS PAGES READ AND WRITTEN
               *
000074         SMF4LNTH DS    XL1                 LENGTH OF ACCOUNTING SECTION
               *                                  ..DC/UCF      = X'28'
               *                                  ..CICS ERUS   = X'24'
               *                                  ..BATCH ERUS  = LENGTH OF FIELDS
               *                                                  X'22' MAX
               *
000075         SMF4SETM DS    XL3                 TASK TOTAL CPU TIME    (10**-2 SEC)
               *
000078         SMF4NAF  DS    XL1                 # OF ACCOUNTING FIELDS
               *                                  ..DC/UCF      = X'04'
               *                                  ..CICS ERUS   = X'04'
               *                                  ..BATCH ERUS  = # OF FIELDS CAPTURED
               *                                                     BY SVC EXIT
000079         SMF4ACTF DS    CL36                ACCOUNTING FIELDS
               *
00009D                  ORG   SMF4ACTF
000079         SM4DACTF DS   0X                   DC/UCF ACCOUNTING FIELDS
000079 0       SM4DTSKL DC    XL1'08'             ..TASK CODE LENGTH
00007A         SM4DTSK  DS    CL8                 ..TASK CODE
000082 0       SM4DLTEL DC    XL1'08'             ..LTERM LENGTH
000083         SM4DLTE  DS    CL8                 ..LTERM
00008B 0       SM4DBLGL DC    XL1'0C'             ..BILLING GROUP LENGTH
00008C         SM4DBLG  DS    CL12                ..BILLING GROUP
000098 0       SM4DTIDL DC    XL1'04'             ..DC TASK ID LENGTH
000099         SM4DTID  DS    XL4                 ..DC TASK ID (TASK NUMBER)
        00024  SM4DACTL EQU   *-SM4DACTF          DC/UCF ACCOUNTING FIELDS LENGTH
               *
00009D                  ORG   SMF4ACTF
000079         SM4CACTF DS   0X                   CICS ERUS ACCOUNTING FIELDS
000079 0       SM4CTRNL DC    XL1'08'             ..TRANSACTION ID LENGTH
00007A         SM4CTRN  DS    CL8                 ..TRANSACTION ID
000082 0       SM4CTRML DC    XL1'08'             ..TERMINAL ID LENGTH
000083         SM4CTRM  DS    CL8                 ..TERMINAL ID
00008B 0       SM4COPRL DC    XL1'08'             ..OPERATOR ID LENGTH
00008C         SM4COPR  DS    CL8                 ..OPERATOR ID
000094 0       SM4CTIDL DC    XL1'04'             ..CICS TASK ID LENGTH
000095         SM4CTID  DS    XL4                 ..CICS TASK ID (TASK NUMBER)
        00020  SM4CACTL EQU   *-SM4CACTF          CICS ERUS ACCOUNTING FIELDS LENGTH
               *
000099                  ORG   SMF4ACTF
000079         SM4BACTF DS    CL30                BATCH ERUS = JOBCARD ACCOUNTING INFO
               *                                               (30 BYTES MAX)
000097                  ORG   ,
00009D         SMF4PGIN DS    CL102               RELOCATE SECTION - UNUSED
               *
               *--------------------------------------------------------------------
               *
        00103  SM4DSLEN EQU   *-#PMSM4            LENGTH OF SMF4 RECORD
               *
               *--------------------------------------------------------------------