Sample JCL for PRSTRN10, PRSTRNFP, and PRSTRND2
The following figure provides an example of JCL for PRSTRNFP:
//JOBNAME JOB ...............
//STEP1 EXEC PGM=PRSTRNFP,REGION=192K,
// PARM='07105,0800,07105,1600,*,090000'
//STEPLIB DD DSN=IMF.LOAD,DISP=SHR
//RESUTIL DD DSN=IRUF.MONTHS,DISP=SHR,
// DCB=(RECFM=VBS,LRECL=30970,BLKSIZE=30974)
//TRNLIST DD SYSOUT=A,DCB=BLKSIZE=133
//TRNLIST2 DD SYSOUT=A,DCB=BLKSIZE=133
//TEMPFILE DD UNIT=SYSDA,SPACE=(CYL,(20,4)),
// DCB=(RECFM=FB,LRECL=275,BLKSIZE=6050)
//TRNSELEC DD *
TRN 03 00030
TRN 08 00030
TRN 11 00050
TRN 10 00010 POTENTIAL HIGH DEDB CONTENTION
/*
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSOUT DD SYSOUT=A
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20))
//
//STEP1 EXEC PGM=PRSTRNFP,REGION=192K,
// PARM='07105,0800,07105,1600,*,090000'
//STEPLIB DD DSN=IMF.LOAD,DISP=SHR
//RESUTIL DD DSN=IRUF.MONTHS,DISP=SHR,
// DCB=(RECFM=VBS,LRECL=30970,BLKSIZE=30974)
//TRNLIST DD SYSOUT=A,DCB=BLKSIZE=133
//TRNLIST2 DD SYSOUT=A,DCB=BLKSIZE=133
//TEMPFILE DD UNIT=SYSDA,SPACE=(CYL,(20,4)),
// DCB=(RECFM=FB,LRECL=275,BLKSIZE=6050)
//TRNSELEC DD *
TRN 03 00030
TRN 08 00030
TRN 11 00050
TRN 10 00010 POTENTIAL HIGH DEDB CONTENTION
/*
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSOUT DD SYSOUT=A
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20))
//
Related topic
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*