MVSFORUMS.com

[doubt_man]

hi all,
i wanted to convert a packed decimal field to charecter. so i used the following sort card fot that

SORT FIELDS=(1,03,BI,A),EQUALS
OUTREC FIELDS=(1:1,107,108:108,5,PD,EDIT=(IIIIIIIII),
117:113,49,166:C'1100')

now the converted field is appearing in the file as follows

MD---21212
NC---28105
LA---70130
LS---70130

the one showed in bold is converted field.
but i want it to be left justified. ie if we take the first one as example , it should be like MD21212---
is there any way to do this??
I went thru the editting characters to see wether we can do this. but i couldnt find it.
thanks
doubt_man

[kolusu]

Doubt_man,

[doubt_man]

hi kolsu,
thanks for the response. but the problem is that if we use EDIT=(TTTTTTTTT) the output will be (if we take the first record) MD00021212 . but i dont want that. The real problem is that i want to load the ouptput of this step to the database. so if the field is ---21212 , we cannot give a querry based on that.( This happens to be the zip code). so if in a querry we give WHERE ZIP='21212', it would not get me the row. thats why i am trying to put the number first followed by the spaces(in this case 21212---). i think you understand the requirement.
And regarding the error in the sort card, i wonder how it worked earlier. Actually the first and third line of the sort card ie

SORT FIELDS=(1,03,BI,A),EQUALS
117:113,49,166:C'1100')

where originally in the sortcard which was in the production version. i will clarify that.
thanks.
doubt_man.

[kolusu]

doubtman,

If your max value is only 5 bytes , then code 5 T's for the edit mask and code 4x to put 4 space afterwards.

i.e

[doubt_man]

hi kolusu,
sorry. that was a typo.
The problem is that the max value is not always 5 bytes. sometimes a zip extension will come. so we cannot put 5T's. is there any other way??
thanks
doubt_man

[Frank Yaeger]

Kolusu said

[Frank Yaeger]

doubt man,

You're not making it clear what you want to do. You showed xx---ddddd and asked how to make it xxddddd. Kolusu showed you how to do that. Then you said the max value is not always 5 bytes. It's unclear what that means. Please show an example of your input and what you want the output to look like that tells us what exactly you want to do that Kolusu's response doesn't cover.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

[doubt_man]

hi frank,
i wil make it more clear. if i change it like what kolsu has said, it will work fine only if we are recieving a 5 byte zipcode in the input. But that is not the case always . sometimes we will have a zip extension which will increase the no of bytes of the field to 6 or 7. so if we give it

SORT FIELDS=(1,03,CH,A)
OUTREC FIELDS=(1,107,
108,5,PD,EDIT=(TTTTT),
4X,
113,49,
C'1100')
if the input field is comming as 1121212, then according to this we will get only
21212.
sample input of special case(in which zip extension is included)

This is the input when i gave a hex on(as input is in pd)
MD
DC01222
440111F

The field following 'MD' is the zip which is in discussion.
REQUIRED OUTPUT
MD1121212
PRESENT OUTPUT
MD21212

i think it is clear now.
please get back to me if something more is to be clarified.
thanks
doubt_man.

[kolusu]

Doubtman,

The following JCl will give you the desired results. A brief explanation of the JOb. We first reformat the zip field to 9 bytes using the outrec fields. Using Outfil fnames we split the file into 2 seperate files. One files will have all the records which have an extension for the zip and the other which does not have extension. The no extension records are now aligned to remove the leading zeroes and pad spaces to right of zip code using outrec.

The second step concatenates these 2 files together and sorts on the key.