Assembling the data set ENQ contention monitor source module

In the JCL below, underscores indicate values that you can replace with information specific to your installation.

The numbers are not part of the JCL statements but correspond to notes that follow the example. Do not code these as part of the JCL.

First, assemble the module. Example JCL is shown below.

1.  //ASSEMBLE JOB
    //* INVOKING ASSEMBLER
2.  //ASMSTEP EXEC PGM=ASMBLR,REGION=1024K,
3.  //        PARM='RENT,LOAD,NODECK'
4.  //SYSLIB DD DSN=SYS1.MODGEN,DISP=(SHR,PASS)
    //       DD DSN=SYS1.MACLIB,DISP=(SHR,PASS)
    //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(NEW,DELETE)
    //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(NEW,DELETE)
    //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(NEW,DELETE)
5.  //SYSLIN DD DSN=USERID.MY.OBJ(ISGECMON),DISP=OLD
6.  //SYSPRINT DD SYSOUT=A,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=3509),
    //         COPIES=1
    //SYSPUNCH DD SYSOUT=A,DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200),COPIES=1
7.  //SYSIN DD DSN=SYS1.SAMPLIB(ISGECMON),DISP=OLD,UNIT=SYSDA
    //SYSUDUMP DD SYSOUT=A
    //SYSABEND DD SYSOUT=A
    //