Slight correction. Please read it as " When you use UFF format , any NON- numeric character" instead of "When you use UFF format , any numeric character"
Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation Email: [email protected] Phone: 408-463-2403 Tie Line 543-2403 IBM Mainframe Discussion List <[email protected]> wrote on 08/16/2012 08:44:29 AM: > From: Sri h Kolusu/Silicon Valley/IBM@IBMUS > To: [email protected], > Date: 08/16/2012 08:45 AM > Subject: Re: sort jcl > Sent by: IBM Mainframe Discussion List <[email protected]> > > Ron Thomas, > > When you use UFF format , any numeric character will be treated as zero > and M10 edit mask suppresses leading zeroes from the output and hence your > alphabetic/alphanumeric records are converted to spaces. Since you have > mix of alpha and numerics we have to process them separately. Use the > following DFSORT JCL which will give you the desired results > > //STEP0100 EXEC PGM=SORT > //SYSOUT DD SYSOUT=* > //SORTIN DD * > WWWWWWWWWWWWWWWWWW > 000000001 > 000000002 > 03 > 000000004 > 05 > 000000006 > 000000049 > 000000052 > 000000060 > AHZPP0062F > 000000063 > 000000072 > 00000000075 > 000000076 > //SORTOUT DD SYSOUT=* > //SYSIN DD * > OPTION COPY > INREC IFOUTLEN=80, > IFTHEN=(WHEN=INIT,OVERLAY=(81:1,40,JFY=(SHIFT=RIGHT))), > IFTHEN=(WHEN=INIT,FINDREP=(STARTPOS=81,INOUT=(C' ',C'0'))), > IFTHEN=(WHEN=(81,40,FS,EQ,NUM), > OVERLAY=(81:1,40,UFF,M10,LENGTH=40,01:81,40,JFY=(SHIFT=LEFT))) > //* > > The output from this job is > > WWWWWWWWWWWWWWWWWW > 1 > 2 > 3 > 4 > 5 > 6 > 49 > 52 > 60 > AHZPP0062F > 63 > 72 > 75 > 76 > > Hope this helps. > > Thanks, > Sri Hari Kolusu > DFSORT Development > IBM Corporation > Email: [email protected] > Phone: 408-463-2403 Tie Line 543-2403 > > IBM Mainframe Discussion List <[email protected]> wrote on > 08/16/2012 08:05:53 AM: > > > From: Ron Thomas <[email protected]> > > To: [email protected], > > Date: 08/16/2012 08:07 AM > > Subject: sort jcl > > Sent by: IBM Mainframe Discussion List <[email protected]> > > > > Hi, > > > > I have a input file of lrecl =80 and below is the data > > > > wwwwwwwwwwwwwwwwww > > 000000001 > > 000000002 > > 03 > > 000000004 > > 05 > > 000000006 > > 000000049 > > 000000052 > > 000000060 > > AHZPP0062F > > 000000063 > > 000000072 > > 00000000075 > > 000000076 > > > > when i justify left with the below control card , i am seeing the > > o/p file the value AHZPP0062F & wwwwwwwwwwwwwwwwww got removed. > > could some one pls let me know why this is dropped? > > > > I need to keep that value in o/p file ie alphabetic values has to be > > retained? any idea? > > > > > > > > SORT FIELDS=COPY > > OUTREC OVERLAY=(1,40,UFF,M10,LENGTH=40, > > 1:1,40,JFY=(SHIFT=LEFT)) > > > > Thanks, > > Ron T > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
