I am trying to produce a PARAGRAPH EXECUTION TIME SUMMARY report (which appears within the CAIPRNT2 DD statement). I have the JCL for a Enterprise COBOL program to create the output, but I try the same JCL for a IMS COBOL program I receive an IMS U0476 error (PCB address is incorrect). Could someone provide the Compile, Link, and Run JCL for an IMS COBOL program. Also any other features of the optimizer for analyzing a IMS program would be great.
compile jcl
//$64159C3 JOB (NASSCO,141800,NAS,00),'C. CRIBBS', JOB17706
// REGION=4M,MSGCLASS=X,
// TIME=60,NOTIFY=$64159,
// COND=(8,LE)
//JOBLIB DD DISP=SHR,DSN=NASSCO.SYS3.LINKLIB
// DD DISP=SHR,DSN=NASSCO.SYS3.MACPACP.MSGLOAD
//* DD DISP=SHR,DSN=NASSCO.SYS2.TESTLIB
//* DD DISP=SHR,DSN=NASSCO.SYS3.CAI.CAILIB
//* DD DISP=SHR,DSN=NASSCO.SYS3.CAI.CAILPA
//* DD DISP=SHR,DSN=SYSNZR.VISIONRS.RESOLIB
//PROCS JCLLIB ORDER=NASSCO.SYS3.PROCLIB
/*JOBPARM LINES=200,S=*,LINECT=0
/*ROUTE PRINT NASLOCAL
//*
//*
//*
//PAN EXEC PGM=PAN#1,TIME=60,PARM='OPEN=INP'
//PANDD1 DD DSN=NASSCO.TESTPAN,DISP=SHR
//PANDD2 DD DSN=&&SOURCE,
// DISP=(NEW,PASS),
// UNIT=SYSDA,
// SPACE=(CYL,(2,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=9040)
//PANDD11 DD DSN=NASSCO.PRODPAN,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DUMMY,DCB=BLKSIZE=80
//*
//*
//SYSIN DD *
++WRITE WORK,SF0012CB
//COB3 EXEC PGM=CAOTSMON,REGION=4M,
// PARM='XCOUNT,XTIME,SUBRNGCK,MXREF,MMAP,LIB,RENT,DYNAM',
//* PARM=(NOTERM,MAP,OFF,'FLAG(I,W)',APOST,XREF,LIB,RENT,
//* 'DYNAM,DATA(31),OPT,SOURCE,'),
// TIME=60
//STEPLIB DD DISP=SHR,DSN=SYSNZR.OPTII.CARXLOAD
// DD DISP=SHR,DSN=SYSNZR.OPTII.CAILIB
// DD DSN=IGY.SIGYCOMP,DISP=SHR
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=0)
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=NASSCO.TSTCPYLB,DISP=SHR
// DD DSN=NASSCO.COBOL.COPYLIB,DISP=SHR
// DD DSN=MACPACT.SOURCLIB,DISP=SHR
// DD DSN=MACPACP.SOURCLIB,DISP=SHR
// DD DSN=MACPACD.SOURCLIB,DISP=SHR
//CAIUT1 DD UNIT=(SYSDA,SEP=SYSUT2),SPACE=(TRK,(25,25))
//CAIUT2 DD UNIT=(SYSDA,SEP=CAIUT1),SPACE=(TRK,(10,10))
//SYSLIN DD DSN=&&OBJPGM, OBJECT MODULE
// DISP=(MOD,PASS),
// UNIT=SYSDA,
// SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=2480)
//SYSIN DD DSN=&&SOURCE, SOURCE PGM
// DISP=(OLD,PASS,DELETE)
//CAISTATS DD DISP=SHR,DSN=SYSNZ.OPTII.STATSDSN
//PROTSYM DD DISP=SHR,DSN=SYSNZ.OPTII.PROTSYM
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPUNCH DD SYSOUT=B
//*
//* LINK EDIT
//*
//LKED EXEC PGM=IEWL,
// PARM=(LIST,XREF,LET,MAP,'SIZE=(1500K,900K)','',
// 'AMODE=31','RMODE=ANY'),
// COND=(5,LT),
// REGION=512K,
// TIME=60
//RESLIB DD DSN=SYSNZ.IMS.TIMS.SDFSRESL,DISP=SHR
//SYSLIN DD DSN=&&OBJPGM,
// DISP=(OLD,DELETE,DELETE)
// DD DDNAME=SYSIN
//SYSLMOD DD DISP=(SHR,PASS),DSN=NASSCO.TESTLIB(SF0012CB)
//SYSLMOD DD DSN=NASSCO.TESTLIB(SF0012CB),DISP=SHR
//SYSLIB DD DSN=SYSNZR.OPTII.CARXLOAD,DISP=SHR
// DD DSN=CEE.SCEELKED,DISP=SHR
// DD DSN=SYSNZ.IMS.TIMS.SDFSRESL,DISP=SHR
// DD DSN=NASSCO.SYS3.LINKLIB,DISP=SHR
// DD DSN=NASSCO.TESTLIB,DISP=SHR
// DD DSN=NASSCO.PRODLIB,DISP=SHR
// DD DSN=NASSCO.SYS3.MACPACP.MSGLOAD,DISP=SHR
//** DD DSN=SYSNZ.GTS.IVORYSTE.LOADLIB,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSPRINT DD SYSOUT=X
//*
//* END COB3PANT
//*
//* RMODE=24 MODULE MUST RESIDE BELOW 16MEG LINE
//* USE FOR 31-BIT PGMS WITH 24-BIT DEPENDENCIES
//*
//**COB3.SYSPRINT DD SYSOUT=(L,T112B,),CHARS=(GT13),DEST=U4161,
//*KED.SYSLMOD DD DISP=(SHR,PASS),DSN=$64159.TEST.LOADLIB(SF0012CB)
//SYSIN DD *
SETSSI 00651242
NAME SF0012CB(R)
Run JCL
//$64159TS JOB (NASSCO,141800,NAS,00), :ACCOUNTING
// '** CRIBBS **',REGION=6M, :ACCOUNTING NAME
// TIME=1440,MSGCLASS=X, :JCL & MESSAGES OUTPUT
//* TYPRUN=SCAN,
//* RESTART=S070,
// NOTIFY=$64159 :JOB CLASS
//*
//JOBLIB DD DSN=NASSCO.SYS3.LINKLIB,DISP=SHR
// DD DSN=NASSCO.SYS3.MACPACP.MSGLOAD,DISP=SHR
//* JCLLIB ORDER=NASSCO.TESTPROC
//*
//GO EXEC PGM=CLEANUP
//STEPLIB DD DSN=$64159.TEST.LOADLIB(CLEANUP),DISP=SHR
//SYSDEBUG DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* PARM='R,S010,,CC=00,RE=/1/'
//*
//*
//*********************************************************************
//* CHECK FOR MULTIPLE ORDERS FOR THE SAME PALLET/UNIT
//*********************************************************************
//S030 EXEC PGM=DFSRRC00,
// PARM='DLI,SF0012CB,SF0012CB,,,,,,,,,,,N,N',
// REGION=6M,COND=(0,NE),TIME=60
//STEPLIB DD DSN=CEE.SCEERUN,DISP=SHR
// DD DSN=SYSNZ.IMS.NIMSP.SDFSRESL,DISP=SHR
// DD DSN=NASSCO.TESTLIB,DISP=SHR
// DD DSN=NASSCO.PRODLIB,DISP=SHR
// DD DSN=SYSNZR.OPTII.CARXLOAD,DISP=SHR
// DD DISP=SHR,DSN=NASSCO.SYS3.LINKLIB
// DD DISP=SHR,DSN=NASSCO.SYS3.MACPACP.MSGLOAD
//* DD DISP=SHR,DSN=NASSCO.SYS2.TESTLIB
//* DD DISP=SHR,DSN=NASSCO.SYS3.CAI.CAILIB
//* DD DISP=SHR,DSN=NASSCO.SYS3.CAI.CAILPA
//* DD DISP=SHR,DSN=SYSNZR.VISIONRS.RESOLIB
// DD DISP=SHR,DSN=SYSNZ.IMS.NIMSP.DYNAMIC
//DFSRESLB DD DISP=SHR,DSN=SYSNZ.IMS.NIMSP.SDFSRESL
//IMS DD DSN=SYSNZ.IMS.NIMSP.PSBLIB,DISP=SHR
// DD DSN=SYSNZ.IMS.NIMSP.DBDLIB,DISP=SHR
//*
//* MACPAC PART MASTER (MP001960/MP001993)
//TBDR1DO0 DD DSN=MACPACP.TBDR1DO0,DISP=SHR
//TBDR1DO1 DD DSN=MACPACP.TBDR1DO1,DISP=SHR
//TBDR1DO2 DD DSN=MACPACP.TBDR1DO2,DISP=SHR
//TBDR1DO3 DD DSN=MACPACP.TBDR1DO3,DISP=SHR
//TBDR1DO4 DD DSN=MACPACP.TBDR1DO4,DISP=SHR
//TBDR1IDX DD DSN=MACPACP.TBDR1IDX,DISP=SHR
//MPSX1960 DD DSN=MACPACP.MPSX1960,DISP=SHR
//*
//* MACPAC ORDER DB (MP001970)
//TBDR3DO0 DD DSN=MACPACP.TBDR3DO0,DISP=SHR
//TBDR3DO1 DD DSN=MACPACP.TBDR3DO1,DISP=SHR
//TBDR3DO2 DD DSN=MACPACP.TBDR3DO2,DISP=SHR
//TBDR3IDX DD DSN=MACPACP.TBDR3IDX,DISP=SHR
//MP00197X DD DSN=MACPACP.MPSX197X,DISP=SHR
//*
//* MACPAC CONTROL DB (MP001984)
//MPCTLDO0 DD DSN=MACPACP.XT.MPCTLDO0,DISP=SHR
//*
//IEFRDER DD DUMMY
//DFSVSAMP DD DSN=MACPACP.PARMLIB(INITVSAM),DISP=SHR
//DFSCTL DD DSN=NASSCO.PARMLIB(DFSBPARM),DISP=SHR
//DFSTROUT DD SYSOUT=*
//*MACIN DD DSN=MACPACP.R2838.DSPCHMAC.S020,DISP=SHR
//MACIN DD DUMMY,
// DCB=(RECFM=FB,LRECL=140,BLKSIZE=23380)
//LMSIN DD DSN=MACPACT.R2099DN.DSPCHLMS.TEST,DISP=SHR
//* DD DSN=MACPACP.R2099DR.DSPCHLMS,DISP=SHR
//PARMIN DD DUMMY,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//MACOUT DD DSN=MACPACT.R2838.DSPCHMAC.S030.TEST,
// DISP=(,CATLG,DELETE),
// UNIT=SYSPROD,SPACE=(CYL,(50,20),RLSE),
// DCB=(RECFM=FB,LRECL=140,BLKSIZE=23380)
//LMSOUT DD DSN=MACPACT.R2838.DSPCHLMS.S030.TEST,
// DISP=(,CATLG,DELETE),
// UNIT=SYSPROD,SPACE=(CYL,(25,5),RLSE),
//* UNIT=VTS,
// DCB=(RECFM=FB,BLKSIZE=23370,LRECL=190)
//DSPCHDT DD DSN=MACPACT.R2838.DSPCHDT.TEST,
// DISP=(,CATLG,DELETE),
// UNIT=NASDA,SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=40,BLKSIZE=23440)
//ERRORS DD DSN=MACPACT.R2838.ERRORS.S030.TEST,
// DISP=(,CATLG,DELETE),
// UNIT=SYSPROD,SPACE=(CYL,(25,5),RLSE),
//* UNIT=VTS,
// DCB=(RECFM=FB,LRECL=350,BLKSIZE=23450)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//NASABEND DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//SYSABOUT DD SYSOUT=X
//SYSDBOUT DD SYSOUT=X
//CAIPRINT DD SYSOUT=*
//CAITIMSV DD DSN=&&TIMSV,DISP=(MOD,PASS),
// UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE),
// DCB=(LRECL=20,BLKSIZE=4320,RECFM=FB)
//CAIOPTS DD *
XCOUNT ON
XTIME FIRST
XREPORT ON
CAIOPTS
/*
//*CAISYM DD DSN=SYSNZ.OPTII.PROTSYM,DISP=SHR
//*CAISYM DD DSN=$64159.OPTII.PROTSYM,DISP=SHR
//CAIPRNT1 DD SYSOUT=*
//CAIPRNT2 DD SYSOUT=*
//*CAISTATS DD DSN=YOUR.OPTII.STATISTICS-FILE,DISP=SHR