IBM Mainframe Forum

Hello,

How to sort Unsigned pack field?

Input file is fixed block, recl=80
record key is pos 1 thru 6, unsigned pack.

Output file needs to have record sorted by key, in ascending order

Sort fields=(1,6,PD,A)

PD is packed decimal, I'm not sure if this will work correct or not?

Thanks.

First thing to do - try it and see

What do you mean by "unsigned packed field". Show an example of what the input values look like in hex.

I would think an unsigned pack field looks like this:
x'02013325'
and I would want to display that as not yet Y10K compliant 2013.325 and be able to later treat it as a REXX-like Date("J") format.

And who would create a field like that? IBM CICS DFH$MOLS UNLOAD does exactly that. Not exactly the friendliest field to work with. Now if I could Substring(TRAN=HEX,2,7) then I might be able to make better sense of it as year and day-in-year.