Ron, if I well understood, the task was to remove duplicate records maintaning the initial order. Maybe it could be done with a single instruction, anyway the following should work:
//ST010 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //TEMP DD DSN=&&TEMP,DISP=(,PASS),SPACE=(TRK,(10,10),RLSE) //OUT DD SYSOUT=* //CTL1CNTL DD * INREC FIELDS=(1,80,SEQNUM,4,BI) SORT FIELDS=(1,80,BI,A),EQUALS SUM FIELDS=NONE /* //CTL2CNTL DD * SORT FIELDS=(81,4,BI,A) OUTREC FIELDS=(1,80) /* //TOOLIN DD * SORT FROM(SORTIN) TO(TEMP) USING(CTL1) SORT FROM(TEMP) TO(OUT) USING(CTL2) /* //SORTIN DD * your data /* Best regards. Il giorno gio 11 nov 2021 alle ore 12:28 Ron Thomas <ron5...@gmail.com> ha scritto: > Hi - > > We have a Input file of LRECL =80 as below > > 105_1_10893_1_28 1_10893_1_28 FAMILY SHARE CRISPS > 1_10893_1_28 10893_1_28 SHARING CRISPS > 10893_1_28 1_28 SHARING CRISPS > 1_28 28 SNACKS > 28 EDIBLE > GROCERY > 105_1_10893_1_28 1_10893_1_28 FAMILY SHARE CRISPS > 1_10893_1_28 10893_1_28 SHARING CRISPS > 10893_1_28 1_28 SHARING CRISPS > 1_28 28 SNACKS > 28 EDIBLE > GROCERY > 105_1_10893_1_29 1_10893_1_29 FAMILY SHARE CRISPS-NEW > 1_10893_1_29 10893_1_29 SHARING CRISPS > 10893_1_29 1_29 SHARING CRISPS > 1_29 29 SNACKS > 29 EDIBLE > GROCERY > 105_1_10893_1_28 1_10893_1_28 FAMILY SHARE CRISPS > 1_10893_1_28 10893_1_28 SHARING CRISPS > 10893_1_28 1_28 SHARING CRISPS > 1_28 28 SNACKS > 28 EDIBLE > GROCERY > 105_1_10893_1_29 1_10893_1_29 FAMILY SHARE CRISPS-NEW > 1_10893_1_29 10893_1_29 SHARING CRISPS > 10893_1_29 1_29 SHARING CRISPS > 1_29 29 SNACKS > 29 EDIBLE > GROCERY > > Expected output > > 105_1_10893_1_28 1_10893_1_28 FAMILY SHARE CRISPS > 1_10893_1_28 10893_1_28 SHARING CRISPS > 10893_1_28 1_28 SHARING CRISPS > 1_28 28 SNACKS > 28 EDIBLE > GROCERY > 105_1_10893_1_29 1_10893_1_29 FAMILY SHARE CRISPS-NEW > 1_10893_1_29 10893_1_29 SHARING CRISPS > 10893_1_29 1_29 SHARING CRISPS > 1_29 29 SNACKS > 29 EDIBLE > GROCERY > > Output Received ** This output disturbed the data sequence . > > 1_10893_1_28 10893_1_28 SHARING CRISPS > 1_10893_1_29 10893_1_29 SHARING CRISPS > 1_28 28 SNACKS > 1_29 29 SNACKS > 105_1_10893_1_28 1_10893_1_28 FAMILY SHARE CRISPS > 105_1_10893_1_29 1_10893_1_29 FAMILY SHARE CRISPS-NEW > 10893_1_28 1_28 SHARING CRISPS > 10893_1_29 1_29 SHARING CRISPS > 28 EDIBLE > GROCERY > 29 EDIBLE > GROCERY > > > i have used the below ICETOOL sort card > > //TOOLIN DD * > SELECT FROM(IN) TO(OUT) ON(1,80,CH) FIRST > /* > //CTL1CNTL DD * > SORT FIELDS=COPY > /* > > The above sort card is not working as expected. Could someone let me know > how the sort card to be corrected . > > Thanks > Ron T > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
