Page 1 of 1

How to convert ZD to PD signed

PostPosted: Fri Feb 17, 2012 2:38 pm
by SMain
Hi,

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 .

Re: How to convert ZD to PD signed

PostPosted: Fri Feb 17, 2012 10:41 pm
by skolusu
Smain,

Use the following control cards
//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