Lets say your packed data is at 10th column and is of length 6, S9(4)V99 You could try the following sample sort card SORT FIELDS=COPY OUTREC=(1,9,10,6,ZD,EDIT=(TTTTTT),LENGTH=6)
--
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(33,2,CH,NE,C'HD'),
BUILD=(1,34,
35,10,ZD,EDIT=(STTTTTTTTTT),SIGNS=(+,-),
45,56)),
IFTHEN=(WHEN=NONE,
BUILD=(1,101))