* corpus charka — nivel 19: PICTURE de edición (Z, coma, punto)
IDENTIFICATION DIVISION.
PROGRAM-ID. REPORTE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-A      PIC 9(5)V99 VALUE 1234.5.
01 WS-B      PIC 9(5)V99 VALUE 7.
01 WS-EDIT   PIC Z,ZZZ,ZZ9.99.
01 WS-CONT   PIC ZZZ,ZZ9.
PROCEDURE DIVISION.
MAIN.
    MOVE WS-A TO WS-EDIT.
    DISPLAY '[' WS-EDIT ']'.
    MOVE WS-B TO WS-EDIT.
    DISPLAY '[' WS-EDIT ']'.
    MOVE 0 TO WS-EDIT.
    DISPLAY '[' WS-EDIT ']'.
    MOVE 234567 TO WS-CONT.
    DISPLAY '[' WS-CONT ']'.
    MOVE 89 TO WS-CONT.
    DISPLAY '[' WS-CONT ']'.
    STOP RUN.
