PD ZD

PD TO ZD

simple one without .

  SORT FIELDS=(1,2,PD,A,3,2,PD,A)        
  OUTREC FIELDS=(1,2,PD,ZD,LENGTH=3,     
                 3,2,PD,ZD,LENGTH=3,     
                64,9,PD,ZD,LENGTH=16)    

 

with v99

I have PD field of length s9(14)v99 I got it converted to numeric using the code

SORT FIELDS=COPY 
OUTREC FIELDS=(1,558, 
559,9,PD,EDIT=(TTTTTTTTTTTTTTTTS),SIGNS=(,,+,-), 
568,33) 

But instead of getting the values with decimal like 17688.54 I am getting like this
1768854

Please give suggestions on how to get the decimal points.

You switched EDIT from a trailing sign to a leading sign, but you didn't fix SIGNS. For a leading sign, you need SIGNS=(+,-). If you don't want leading zeros, then use I instead of T. So you want something like this:
  559,9,PD,EDIT=(SIIIIIIIIIIIIIT.TT),SIGNS=(,,+,-),