I'm getting the distinct impression that DFSORT is becoming a Swiss Army knife for the systems programmer, much like a SAS DATA step is.
On Wed, Nov 8, 2023 at 9:04 AM Sri h Kolusu <skol...@us.ibm.com> wrote: > >> Here is my code...can someone help me to get rid of the spaces in the > name, before the (#### value? > > > Don, > > You are complicating a simple request. First build Only the fields you > need, and you can add the static characters using LEAD on the SQZ operator. > > Also, you don't have to get a seqnum in zd format and then convert that > into a Alphabet, you can directly use a BINARY format with sequence > starting at 193 and it would be the EBCDIC characters. > > //STEP0100 EXEC PGM=SORT > //SYSOUT DD SYSOUT=* > //SORTIN DD DISP=SHR,DSN=Your.Input.FB.file > //SORTOUT DD SYSOUT=* > //SYSIN DD * > OPTION COPY > INCLUDE COND=(1,1,CH,EQ,C'>') > > INREC BUILD=(55,32,SQZ=(SHIFT=LEFT), > 88,06, > C',', > 49,03, > 04,04,UFF,EDIT=(TTTT), > SEQNUM,1,BI,START=193,RESTART=(55,32), > 80:X) > > OUTREC BUILD=(01,80,SQZ=(SHIFT=LEFT, > LEAD=C'-UTL COPY,TABLE,')) > /* > > The output from this is > > -UTL COPY,TABLE,B400-BRANCH-BLDG(1001),BRN0400A > -UTL COPY,TABLE,B400-TRANHIST(0003),HST0400A > -UTL COPY,TABLE,B400-TRANHIST(0004),HST0400B > -UTL COPY,TABLE,B400-TRANHIST(0005),HST0400C > > > Thanks, > Kolusu > DFSORT Development > IBM Corporation > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Jay Maynard ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
