END-EVALUATEWHEN CURR-CHA-AAA02 IS NUMERICEVALUATE TRUEWHEN LAST-CHA-AAA02 = ' 'WHEN LAST-CHA-AAA02 = '+'WHEN LAST-CHA-AAA02 = '-'WHEN LAST-CHA-AAA02 = ','WHEN LAST-CHA-AAA02 IS NUMERICEV...
END-EVALUATE
WHEN CURR-CHA-AAA02 IS NUMERIC
EVALUATE TRUE
WHEN LAST-CHA-AAA02 = ' '
WHEN LAST-CHA-AAA02 = '+'
WHEN LAST-CHA-AAA02 = '-'
WHEN LAST-CHA-AAA02 = ','
WHEN LAST-CHA-AAA02 IS NUMERIC
EVALUATE TRUE
WHEN DECIMAL-OFF-AAA02 = 0
EVALUATE TRUE
WHEN INTEGER-LEN-AAA02 = INT-DIGITS-AAA02
MOVE 2 TO RT-CODE-AAA02
GO TO 599-END-AAA02
WHEN OTHER
ADD 1 TO INTEGER-LEN-AAA02
MOVE CURR-CHA-AAA02 TO LAST-CHA-AAA02
INTEGER-STR-AAA02(INTEGER-LEN-AAA02:1)
MOVE 12 TO POINTER-AAA02
MOVE INTEGER-LEN-AAA02 TO DECIMAL-OFF-AAA02.
599-PROC-AAA02-2.
MOVE INTEGER-STR-AAA02(DECIMAL-OFF-AAA02:1) TO
INTEGER-STR-AAA02(POINTER-AAA02:1)
IF DECIMAL-OFF-AAA02 > 1
SUBTRACT 1 FROM DECIMAL-OFF-AAA02
最低0.47元/天 解锁文章
1408
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
