Get things done : Using JCL (Job Control Language)

Sunday, May 5, 2013

Delete a Member from Partitioned Dataset / PDS

This JCL will delete a member from a PDS.

//*******************************************
//* DELETE A MEMBER FROM PDS               *
//*******************************************
//DELPMEM EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PDS      DD DSN=<YOUR PDS NAME>,
//            DISP=SHR
//SYSIN DD *
DELETE '<YOUR PDS NAME>(MEMBERNAME)' FILE(PDS)
/*

Friday, April 5, 2013

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
/*

Thursday, April 4, 2013

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