The Herb Garden

Here is a quick reference for creating IPL-able cartridges containing the standalone versions of the disk initialisation program ICKDSF and the DFDSS RESTORE program.

ICKDSF

//STEPNAME EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY,DCB=BLKSIZE=80
//SYSUT1 DD DSNAME=SYS1.SAMPLIB(ICKSADSF),UNIT=SYSDA,
// DISP=SHR,VOLUME=SER=XXXXXX
//SYSUT2 DD DSNAME=ICKDSF,UNIT=3490,LABEL=(,NL),
// DISP=(,KEEP),VOLUME=SER=YYYYYY,
// DCB=(RECFM=F,LRECL=80,BLKSIZE=80)

DFDSS

//STEP1 EXEC PGM=ADRDSSU,PARM='UTILMSG=YES'
//SAMODS DD DSN=SYS1.SADRYLIB,DISP=SHR
//TAPEDD DD DSN=ADRSA.IPLT,UNIT=3480,LABEL=(,NL),
// DISP=(NEW,KEEP),VOL=SER=TAPE01,
// DCB=(DSORG=PS,RECFM=U,BLKSIZE=32760,LRECL=32760)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
BUILDSA -
INDD(SAMODS) -
OUTDD(TAPEDD) -
IPL(TAPE)
/*

• z/OS