I a ZD number which needs to be converted into PD but should have 'C' instead of 'F' in the last nibble . Basically I have to join the above number with a packed signed number .
//SYSIN DD * SORT FIELDS=COPY INREC OVERLAY=(P1:P,M,ZD,PDC,LENGTH=n) //* //* P1 = Position of the output PD field //* P = Position of the INPUT ZD field //* M = Length of INPUT ZD field //* n = Length of OUTPUT PD field