Compress a PDS/Dataset

This JCL will compress a PDS/Dataset.

//*******************************************       //* COMPRESS A DATA SET USING IEBCOPY       *       //*******************************************       //STEP1 EXEC PGM=IEBCOPY                            //SYSPRINT DD SYSOUT=*                              //INPUT  DD DSNAME=<DSN_NAME>,DISP=SHR //OUTPUT DD DSNAME=<DSN_NAME>,DISP=SHR <= SAME DSN AS IN INPUT DD //SYSIN DD *                                        COPY INDD=INPUT,OUTDD=OUTPUT                        /*

Count Number of Records in a Dataset

This JCL will count the number of records in a dataset. It is assumed you have ICETOOL in your shop.

//**************************************************** //**COUNT NUMBER OF RECORDS IN A DATASET            ** //**************************************************** //S1 EXEC PGM=ICETOOL                                 //TOOLMSG DD SYSOUT=*                                 //DFSMSG DD SYSOUT=*                                  //IN DD DSN=<DSN Name>,DISP=SHR            //TOOLIN DD *                                           COUNT FROM(IN)

Count of records can be checked in spool under “TOOLMSG”.

Eg: NUMBER OF RECORDS PROCESSED: 000000000009640

JCL to Copy Dataset

This JCL will copy a dataset (SYSYUT1) to new dataset (SYSUT2)

 

//**************************************************** //**                COPY DATASET                    ** //**************************************************** //STEP01 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=<INPUT DSN>,DISP=SHR //SYSUT2 DD DSN=<OUTPUT DSN>, // DISP=(NEW,CATLG,DELETE),UNIT=SYSDA, // SPACE=(CYL,(50,10),RLSE),AVGREC=K, // DCB=*.SYSUT1 //SYSIN DD DUMMY