MVSFORUMS.com

ha.rajamohamed · Beginner Joined: 29 Jan 2006 Posts: 71 Topics: 22

Hi,
Is it possible to convert characters to Zoned Decimal in SORT or ICETOOL.
I am having a requirement where the LRECL is 100 and the content from 11 to 20 is a combinations of spaces and numbers. I need to sort based on 11 to 20 based on ZD.

For example:
12355BBBBB ---> Need to considered as 12355
BBBBBBBB1 ---> Need to considered as 1
Like so..
_________________
RAJA MOHAMED

ha.rajamohamed · Beginner Joined: 29 Jan 2006 Posts: 71 Topics: 22

Got the answer... Its UFF, SFF

//SORTP1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=Input file
//SORTOUT DD DSN=Output File
//SYSIN DD *
INREC FIELDS=(1,2,3:3,3,UFF,TO=ZD,LENGTH=3,6,45)
OPTION COPY
//ABNLTERM DD SYSOUT=(,)
//SYSPRINT DD SYSOUT=(,)
/*

Thanks
_________________
RAJA MOHAMED

ha.rajamohamed · Beginner Joined: 29 Jan 2006 Posts: 71 Topics: 22

Small corrections in the SORT CARD
Very Happy

Frank Yaeger · Posted: Tue Feb 20, 2007 11:07 am Post subject:

Note that if you just want to SORT on these type of values, you don't have to convert them to ZD to do that. You can just use DFSORT's UFF format in the SORT statement directly:

ha.rajamohamed · Beginner Joined: 29 Jan 2006 Posts: 71 Topics: 22

Thanks Frank ... yours first SORT card matches my requirement.