RE: Converting string containing packed decimal to numeric decimal

Here's something to get you started. If the packed field attributes are
different, change the PACKED_72 field to match you code, and of course,
the ALPHA field is representative of your own character field. Be sure
to set the Y variable to the offset (position) within ALPH were your
packed decimal value starts.

     D dataF1          DS
     D  Packed_72                     7P 2
     D Alpha           S             20A   Inz(X'0001234F')
     D X               S              5I 0
     D Y               S              5I 0

     C                   Eval      X = %Size(Packed_72)
     C                   Eval      Y = /* Offset to decimal value in
char var */
     C                   Eval      Y = 1
     C                   Eval      %Subst(DataF1 : 1 : X) = %subst(alha:
y : x)


Bob Cozzi