Converting comp-3 with decimals to alphanumeric?
Posted: Thu Jul 26, 2012 9:04 am
It is related to my previous question. I think the problem is that I am trying to output comp-3 field as an alphanumeric field (qsysprt) without converting first. So, if I have this:
Say, MY-COMP3 contains 123.88. How do I move MY-COMP3 to MY-ALPHA and MY-DECIMAL?
01 MY-COMP3 PIC 9(3)V99 COMP-3.
01 MY-ALPHA PIC X(3).
01 MY-DOT PIC X VALUE '.'.
01 MY-DECIMAL PIC X(2).
01 MY-ALPHA PIC X(3).
01 MY-DOT PIC X VALUE '.'.
01 MY-DECIMAL PIC X(2).
Say, MY-COMP3 contains 123.88. How do I move MY-COMP3 to MY-ALPHA and MY-DECIMAL?