Copy file from Disk to Tape Example

Scenario - Copy a dataset from disk to tape.

Input PS File on disk - MATEPK.IEBGENER.INPUTPS

Code -

----+----1----+----2----+----3----+----4----+----5----+
//MATEPKE  JOB (123),'MTH',CLASS=A,MSGCLASS=A,
//             MSGLEVEL=(1,1),NOTIFY=&SYSUID
//******************************************************
//* Copy PS file from Disk to Tape
//******************************************************
//STEP10   EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=MATEPK.IEBGENER.INPUTPS,DISP=SHR
//SYSUT2   DD DSN=MATEPK.IEBGENER.OUTTAPE,
//            DISP=(,KEEP),VOL=SER=012376,
//            UNIT=TAPE,LABEL=(,SL),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSIN    DD DUMMY

Output - MATEPK.IEBGENER.OUTTAPE

Explaining Example -

• SYSUT1 DD specifies the input file which is on the disk (MATEPK.IEBGENER.INPUTPS).
• SYSUT2 DD specifies the output PS file on table (MATEPK.IEBGENER.OUTTAPE).
• SYSIN DD DUMMY defines the control card as DUMMY.