* corpus charka — nivel 6: INITIALIZE (resetear datos y grupos)
IDENTIFICATION DIVISION.
PROGRAM-ID. RESETEAR.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-REGISTRO.
   05 WS-NOMBRE PIC X(6) VALUE 'PEDRO'.
   05 WS-EDAD   PIC 9(3) VALUE 42.
01 WS-CONTADOR PIC 9(3) VALUE 77.
PROCEDURE DIVISION.
MAIN.
    DISPLAY 'ANTES NOMBRE=' WS-NOMBRE.
    DISPLAY 'ANTES EDAD=' WS-EDAD.
    DISPLAY 'ANTES CONT=' WS-CONTADOR.
    INITIALIZE WS-REGISTRO.
    INITIALIZE WS-CONTADOR.
    DISPLAY 'DESP NOMBRE=' WS-NOMBRE.
    DISPLAY 'DESP EDAD=' WS-EDAD.
    DISPLAY 'DESP CONT=' WS-CONTADOR.
    STOP RUN.
