Initialise a 3390 volume...
//INIT EXEC PGM=ICKDSF
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
INIT UNIT(99D2) VOLID(DB2T01) VTOC(0,8,21) INDEX(0,1,7) NPRG NVFY
Simple jobstep to VARY online...
//vARY EXEC PGM=IEFBR14
// V 997E,ONLINE
Example FDR restore job...
//RESTORE EXEC PGM=FDR,REGION=4M
//STEPLIB DD DSN=IBMUSER.FDR.LOADLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DISK1 DD UNIT=SYSDA,DISP=OLD,VOL=SER=TMP002
//TAPE1 DD DSN=BACKUP.OFFSITE.DAILY.LOGXS3.D2007243,
// UNIT=3590-1,LABEL=(22,SL),VOL=(,RETAIN,SER=NT0032)
//SYSIN DD *
RESTORE TYPE=FDR,CPYVOLID=NO,VOLRESET=NO,CONFMESS=NO,SMSPROT=NONE
Job to CLIP the volser...
//CLIP EXEC PGM=ICKDSF
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REFORMAT VERIFY(SAVE01) UNIT(9C9F) VOLID(ZZVE01)
0 comments on Initialising and "CLIPPING" a disk (aide-memoire)