======================================================================= Step 4: JCL to Restore the CXX File z/OS: job card goes here //your // EXEC PGM=DBUTLTY,REGION=2M datacom.CUSLIB //STEPLIB DD DISP=SHR,DSN=your // DD DISP=SHR,DSN=your datacom.CAILIB //* cxx.data.set //CXX DD DISP=SHR,DSN=your Directory data set //CXXBKP DD DSN=cxx.bkup,DISP=SHR Backup data //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSPUNCH DD DUMMY //SYSIN DD * Command Input LOAD AREA=CXX,DDNAME=CXXBKP /* // VSE: * $$ JOB ... * $$ LST ... name // JOB // EXEC PROC=procname PROC or LIBDEFs // ASSGN SYSnnn,devicetype,VOL=volser,SHR // DLBL CXX,'your cxx.data.set',9999,DA Directory data set // EXTENT SYSnnn,volser // ASSGN SYSnnn,devicetype,VOL=volser,SHR // DLBL CXXBKP,'cxx.bkup',9999,DA Backup data // EXTENT SYSnnn,volser // EXEC DBUTLTY,SIZE=750K LOAD AREA=CXX,DEVICE=DISK,DTFNAME=CXXBKP /* /& * $$ EOJ
======================================================================= Step 4: JCL to Restore the CXX File z/OS: //your job card goes here // EXEC PGM=DBUTLTY,REGION=2M //STEPLIB DD DISP=SHR,DSN=your datacom.CUSLIB // DD DISP=SHR,DSN=your datacom.CAILIB //* //CXX DD DISP=SHR,DSN=your cxx.data.set Directory data set //CXXBKP DD DSN=cxx.bkup,DISP=SHR Backup data //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSPUNCH DD DUMMY //SYSIN DD * Command Input LOAD AREA=CXX,DDNAME=CXXBKP /* // VSE: * $$ JOB ... * $$ LST ... // JOB name // EXEC PROC=procname PROC or LIBDEFs // ASSGN SYSnnn,devicetype,VOL=volser,SHR // DLBL CXX,'your cxx.data.set',9999,DA Directory data set // EXTENT SYSnnn,volser // ASSGN SYSnnn,devicetype,VOL=volser,SHR // DLBL CXXBKP,'cxx.bkup',9999,DA Backup data // EXTENT SYSnnn,volser // EXEC DBUTLTY,SIZE=750K LOAD AREA=CXX,DEVICE=DISK,DTFNAME=CXXBKP /* /& * $$ EOJ
Sample%20JCL%20for%20TEC467804.docx