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
