Creating Backup

IEBGENER is used to create a backup copy of a sequential data set or PDS or PDSE member. It can copy the data set or member to any output device (disk, tape etc.).

Practical Example -

Scenario - Create flat (PS) file backup.

Input PS File - MATEPK.IEBGENER.INPUTPS

----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
********************************* Top of Data **********************************
E0001    EMPLOYEE1           DIR                 LOC1      0000100000    
E0002    EMPLOYEE2           MGR       DEPT1     LOC1      0000080000    
E0003    EMPLOYEE3           MGR       DEPT2     LOC2      0000075000    
E0004    EMPLOYEE4           TL        DEPT1     LOC1      0000050000    
E0005    EMPLOYEE5           SSE       DEPT1     LOC1      0000045000    
E0006    EMPLOYEE6           SE        DEPT1     LOC1      0000034000    
E0007    EMPLOYEE7           SSE       DEPT2     LOC2      0000046000    
******************************** Bottom of Data ********************************

Code -

----+----1----+----2----+----3----+----4----+----5----+----6
//MATEPKC  JOB (123),'MTH',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
//             NOTIFY=&SYSUID 
//***********************************************************
//* CREATE A BACKUP OF FLAT FILE 
//***********************************************************
//STEP10   EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=MATEPK.IEBGENER.INPUTPS,DISP=SHR
//SYSUT2   DD DSN=MATEPK.IEBGENER.BACKUPPS,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(10,10),RLSE),
//            UNIT=3390,VOL=SER=DEVHD4,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSIN    DD  DUMMY

Output - MATEPK.IEBGENER.BACKUPPS

VIEW       MATEPK.IEBGENER.BACKUPPS                        Columns 00001 00072 
Command ===>                                                  Scroll ===> CSR  
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000100 E0001    EMPLOYEE1           DIR                 LOC1      0000100000   
000200 E0002    EMPLOYEE2           MGR       DEPT1     LOC1      0000080000   
000300 E0003    EMPLOYEE3           MGR       DEPT2     LOC2      0000075000   
000400 E0004    EMPLOYEE4           TL        DEPT1     LOC1      0000050000   
000500 E0005    EMPLOYEE5           SSE       DEPT1     LOC1      0000045000   
000600 E0006    EMPLOYEE6           SE        DEPT1     LOC1      0000034000   
000700 E0007    EMPLOYEE7           SSE       DEPT2     LOC2      0000046000   
****** **************************** Bottom of Data ****************************

Explaining Example -

• SYSUT1 DD maps the input data set (MATEPK.IEBGENER.INPUTPS).
• SYSUT2 DD defines the output flat file (MATEPK.IEBGENER.BACKUPPS).
• SYSIN DD defines the control data set as DUMMY to specify no control statements are using.