ICETOOL - Simple programs to complex programs

In this video, I have shared the list of ICETOOL programs requested for learning and managing during the interview Some programs, input, and output are manually typed for the demonstration purpose. So it is recommended to try the code once. If you like the video, please subscribe and like the video. Share our channel IIWOWIIS with your friends and colleagues. Feel free to post your comments, and support us for more videos. For more details, please refer the below link. https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.4.0/com.ibm.zos.v2r4.icea100/icet.htm To handle duplicate records: SELECT FROM(IN1) TO(OUTDD) ON(1,20,CH) ALLDUPS - DISCARD(OTHERDD) ICETOOL program to prepare header, detail and trailer records. //*********DATEFL - FB, INFL - VB, OUTPUT - VB ********** //******************************************************** //STEP010 EXEC PGM=ICETOOL //DATEFL DD DSN=User id.DATEFL,DISP=SHR //INFL DD DSN=user id.ICETOOL.JOB1.INP,DISP=SHR //TEMP1 DD DSN=&&TEMP1,DISP=(,PASS), // RECFM=VB,LRECL=72, // DATACLAS=DEFAULT,DSORG=PS //TEMP2 DD DSN=&&TEMP2,DISP=(,PASS), // RECFM=VB,LRECL=72, // DATACLAS=DEFAULT,DSORG=PS //TOOLIN DD * COPY FROM(DATEFL) TO(TEMP1) USING(CTL1) SUBSET FROM(INFL) TO(TEMP2) REMOVE INPUT HEADER TRAILER USING(CTL2) /* //CTL1CNTL DD * OUTFIL FNAMES=TEMP1,FTOV, BUILD=(1:C'H#',3:C'HEADER ',11:2X,13:1,8,21:47X,72:C'X') /* //CTL2CNTL DD * OUTFIL FNAMES=TEMP2, IFTHEN=(WHEN=(72,1,CH,EQ,C' '),OVERLAY=(72:C'X')), TRAILER1=(1:C'T#',3:C'TRAILER ', 11:2X,13:COUNT=(EDIT=(TTTTTTTT)),72:C'X'), REMOVECC /* //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYMNOUT DD SYSOUT=* //* //CHECK020 IF (STEP010.RC EQ 0) THEN //STEP020 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&&TEMP1,DISP=(OLD,DELETE) // DD DSN=&&TEMP2,DISP=(OLD,DELETE) //SYSUT2 DD DSN=user id.ICETOOL.JOB.OUT,DISP=(NEW,CATLG,DELETE), // LRECL=72,DATACLAS=DEFAULT,SPACE=(TRK,(1,1)),RECFM=VB //CHECK020 ENDIF //*