Eliminate zeroes

How do I move 123 from a numeric variable having value 12300000000 to a comp 3 variable

Mainframeguy
Profile Answers by Mainframeguy Questions by Mainframeguy
Mar 27th, 2008
2
2173

Questions by Mainframeguy answers by Mainframeguy

Showing Answers 1 - 2 of 2 Answers

guraddiv
Profile Answers by guraddiv

Apr 25th, 2008

u may use reference modification technique.

jitenpatra
Profile Answers by jitenpatra Questions by jitenpatra

Nov 27th, 2008

Numeric data always right justification and alphanumeric data left justification. Please correct me if i am wrong.

working stroage section

          01   X   PIC X(3)    VALUE    '12300000000'.
P.D.

      DISPLAY X.                ( X=123)
      MOVE X   TO   Y.