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.