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
PD is packed decimal, I'm not sure if this will work correct or not?