JCL | Job Control Language | 07 | IBM Utility Programs

[@Muthu_Saravanan_S]

Sample IEBGENER Cards: IEBGENER- SYSIN CARD FOR CREATING THREE MEMBERS FROM INPUT PS FILE //SYSIN DD * GENERATE MAXNAME=3,MAXGPS=2 MEMBER NAME= MEMB1 RECORD IDENT=(8,'11111111'.1) MEMBER NAME=MEMB2 RECORD IDENT=(8,'22222222',1) MEMBER NAME=MEMB3 // IEBGENER creates three members. It reads input file writes into memb1 until it finds 11111111 in column 1. In the same way it reads and writes the records into memb2 until it finds 2 2222222 in column 1. The remaining records in the input dataset are copied into MEMB3. IEBGENER- SYSIN CARD FOR REFORMATTING DURING COPY //SYSIN DD * GENERATE MAXFLDS=5,MAXLITS=4 RECORD FIELD=(5,1,,1),FIELD=(20,21,,6),FIELD=(9,61,ZP,26), X FIELD=(9,70,ZP,31),FIELD=(4,'TEST',,36) /* Sample IEBCOPY Cards: IEBCOPY- CONTROL CARD FOR MERGING TWO LIBRARIES //SYSIN DD * COPY OUTDD=OUTPUT INDD=(INPUT01,(INPUT02,R),LIST=NO) /* It says DD statements INPUT01 and INPUT02 are input files. OUTPUT is the output file. Note the 'R' in (INPUT02,R). It instructs to IEBCOPY that like named members are to be replaced. LIST=NO indicates that the names of the members copied need not be listed in the SYSPRINT dataset. IEBCOPY-CONTROL CARD FOR SELECTIVE COPY/REPLACE COPY OUTDD=OUTPUT,INDD=INPUT01 SELECT MEMBER=((MEM1,NEWNAME,R),(MEM2,,R)) MEM1 is copied as NEWMEM in OUTPUT. If already NEWMEM exist, it will be replaced. IEBCOPY-CONTROL CARD FOR OMITTING SELECTED MEMBERS COPY OUTDD=OUTPUT,INDD=INPUT01 EXCLUDE MEMBER=(MEM1,MEM2) All the members except MEM1 and MEM2 are copied into OUTPUT from INPUT01. IEBCOPY-COMPLETE STEP FOR COMPRESSING PDS //COMPRESS EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //COMPFILE DD DSN=MM01.COPYLIB.COB,DISP=OLD //SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(1,1)) //SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(1,1)) //SYSIN DD * COPY OUTDD=COMPFILE,INDD=COMPFILE /*