Example 2: Sample Batch Backout skeleton JCL
The following figure provides a sample of batch backout skeleton JCL.
//RCFBBO JOB . . . . . .
//*
//**************************
//** RCFBBO SAMPLE JCL **
//**************************
//*
//RCFBBO PROC PSB='?',BBODYTM='?',
// RCF2PRM='?',
// SOUT='?',IMSID='?',
// BBOLOGP='..........',
// BBOLOGS='..........',
// RGN=512K,BUF=8,SPIE=0,TEST=0,EXCPVR=0,RST=0,
// LOGT=TAPE,PRLD=,SRCH=0,CKPTID=,MON=N,LOGA=0,
// FMTO=T,SWAP=,DBRC=Y,IRLM=,IRLMNM=,BKO=N
//*
//BBO EXEC PGM=DFSRRC00,REGION=&RGN,
// PARM=(DBB,DFSBBO00,&PSB,&BUF,
// &SPIE&TEST&EXCPVR&RST,&PRLD,
// &SRCH,&CKPTID,&MON,&LOGA,&FMTO,
// &IMSID,&SWAP,&DBRC,&IRLM,&IRLMNM,&BKO)
//*********************************
//** EXECUTE BATCH BACKOUT **
//*********************************
//STEPLIB DD DSN=IMSVS.RESLIB,DISP=SHR
//DFSRESLB DD DSN=IMSVS.RESLIB,DISP=SHR
//IMSACB DD DSN=IMSVS.ACBLIB,DISP=SHR
//IMSACBA DD DSN=IMSVS.ACBLIBA,DISP=SHR
//IMSACBB DD DSN=IMSVS.ACBLIBB,DISP=SHR
//MODSTAT DD DSN=IMSVS.MODSTAT,DISP=SHR
//PROCLIB DD DSN=IMSVS.PROCLIB,DISP=SHR
//DFSVSAMP DD DSN=IMSVS.PROCLIB(DFSVSMxx),DISP=SHR
//IEFRDER DD DSN=&BBOLOGP..&PSB..&BBODYTM,
// DISP=(NEW,KEEP),VOL=(,,,99),UNIT=(&LOGT,,DEFER),
// DCB=(RECFM=VB,BLKSIZE=1920,LRECL=1916)
//IEFRDER2 DD DSN=&BBOLOGS..&PSB..&BBODYTM,
// DISP=(NEW,KEEP),VOL=(,,,99),UNIT=(&LOGT,,DEFER),
// DCB=(RECFM=VB,BLKSIZE=1920,LRECL=1916)
//IMSUDUMP DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//*
//**>> DD STATEMENTS FOR FULL-FUNCTION DATABASES
//**>> (IF USING IMS/VS 1.3)
//*
//TSSRCF2 EXEC PGM=TSSRCF2,COND=(0,NE,BBO),
// PARM='&RCF2PRM'
//*****************
//** NOTIFY RCF **
//*****************
//STEPLIB DD DSN=BMC.RCF.FPSLIB,DISP=SHR
//*
// PEND
//*
//*
//**************************
//** RCFBBO SAMPLE JCL **
//**************************
//*
//RCFBBO PROC PSB='?',BBODYTM='?',
// RCF2PRM='?',
// SOUT='?',IMSID='?',
// BBOLOGP='..........',
// BBOLOGS='..........',
// RGN=512K,BUF=8,SPIE=0,TEST=0,EXCPVR=0,RST=0,
// LOGT=TAPE,PRLD=,SRCH=0,CKPTID=,MON=N,LOGA=0,
// FMTO=T,SWAP=,DBRC=Y,IRLM=,IRLMNM=,BKO=N
//*
//BBO EXEC PGM=DFSRRC00,REGION=&RGN,
// PARM=(DBB,DFSBBO00,&PSB,&BUF,
// &SPIE&TEST&EXCPVR&RST,&PRLD,
// &SRCH,&CKPTID,&MON,&LOGA,&FMTO,
// &IMSID,&SWAP,&DBRC,&IRLM,&IRLMNM,&BKO)
//*********************************
//** EXECUTE BATCH BACKOUT **
//*********************************
//STEPLIB DD DSN=IMSVS.RESLIB,DISP=SHR
//DFSRESLB DD DSN=IMSVS.RESLIB,DISP=SHR
//IMSACB DD DSN=IMSVS.ACBLIB,DISP=SHR
//IMSACBA DD DSN=IMSVS.ACBLIBA,DISP=SHR
//IMSACBB DD DSN=IMSVS.ACBLIBB,DISP=SHR
//MODSTAT DD DSN=IMSVS.MODSTAT,DISP=SHR
//PROCLIB DD DSN=IMSVS.PROCLIB,DISP=SHR
//DFSVSAMP DD DSN=IMSVS.PROCLIB(DFSVSMxx),DISP=SHR
//IEFRDER DD DSN=&BBOLOGP..&PSB..&BBODYTM,
// DISP=(NEW,KEEP),VOL=(,,,99),UNIT=(&LOGT,,DEFER),
// DCB=(RECFM=VB,BLKSIZE=1920,LRECL=1916)
//IEFRDER2 DD DSN=&BBOLOGS..&PSB..&BBODYTM,
// DISP=(NEW,KEEP),VOL=(,,,99),UNIT=(&LOGT,,DEFER),
// DCB=(RECFM=VB,BLKSIZE=1920,LRECL=1916)
//IMSUDUMP DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//*
//**>> DD STATEMENTS FOR FULL-FUNCTION DATABASES
//**>> (IF USING IMS/VS 1.3)
//*
//TSSRCF2 EXEC PGM=TSSRCF2,COND=(0,NE,BBO),
// PARM='&RCF2PRM'
//*****************
//** NOTIFY RCF **
//*****************
//STEPLIB DD DSN=BMC.RCF.FPSLIB,DISP=SHR
//*
// PEND
//*
This section contains the following topic:
Related topic
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*