IDENTIFICATION DIVISION.
PROGRAM-ID. editchar.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 num1 PIC 99v.
01 num2 PIC 99.
01 num3 PIC S99.
01 num4 PIC S99v99.
01 num5 PIC 99.99.
01 num6 PIC zz.zz.
* 01 num7 PIC zz.z9.
01 num8 PIC 999DB.
01 num9 PIC **.** BLANK WHEN ZERO.
01 num10 PIC ,,,99.
01 num11 PIC 99,,,9,99.
01 num12 PIC -$zz.
* 01 num13 PIC $-zz.
01 num14 PIC $$$.$$.
01 num15 PIC ++++99.
01 num16 PIC ----99.
01 num17 PIC +++.
01 num18 PIC $$$$ZZZ.
* 01 num19 PIC +++$$$$.
* 01 num20 PIC ++++$.
01 amt1 PIC $ZZ,ZZZ.99.
01 amt PIC 9(5)v99.
PROCEDURE DIVISION.
charedit.
MOVE 11 to num1.
DISPLAY num1.
MOVE -25 to num2.
DISPLAY num2.
MOVE 25 to num3.
DISPLAY num3.
MOVE -25 to num4.
DISPLAY num4.
MOVE 12.3 to num5.
DISPLAY num5.
ADD 3 to 6.3 giving num5.
DISPLAY num5.
MOVE 12.3 to num6.
DISPLAY num6.
ADD 3 to 6.3 giving num6.
DISPLAY num6.
MOVE -25 to num8.
DISPLAY num8.
MOVE 25 to num8.
DISPLAY num8.
MOVE 00.00 TO num9.
DISPLAY num9.
MOVE 12 TO num10.
DISPLAY num10.
MOVE 12 TO num11.
DISPLAY num11.
MOVE 1 TO num12
DISPLAY num12.
* MOVE 23 TO num13.
* DISPLAY num13.
MOVE 1 TO num14.
DISPLAY num14.
MOVE 123456 TO num15.
DISPLAY num15.
MOVE 123456 TO num16.
DISPLAY num16.
MOVE 0 TO num17.
DISPLAY num17.
MOVE 12 TO num18.
DISPLAY num18.
* move 12 TO num19.
* DISPlAY num19.
* MOVE 1 TO num20.
* DISPLAY num20.
MOVE 12345 TO amt1.
MOVE amt1 TO amt.
DISPLAY amt1.
DISPLAY amt.
STOP RUN.