IDENTIFICATION DIVISION.
       PROGRAM-ID. CERIO001.
       AUTHOR. CERIONI.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. IBM-AS400.
       OBJECT-COMPUTER. IBM-AS400.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.

      *EL OBJETO V001 ES DE TIPO WORKSTATION(PANTALLA)
      *CON ESTAS LINEAS LE INDICAMOS AL COBOL QUE LEVANTE
      *EL ARCH V001 Y LO SELECCIONE CON NOMBRE V001
           SELECT V001
               ASSIGN TO WORKSTATION-V001
               ORGANIZATION IS TRANSACTION.


       DATA DIVISION.

       FILE SECTION.

      *FD->FILE DESCRIPTION. ASOCIA EL OBJETO V001 DEL SELECT
      *CON LAS VARIABLES DE ESCRITURA RV001.
       FD V001 LABEL RECORD IS OMITTED.
       01 RV001.
           COPY DDS-ALL-FORMAT OF V001.




       WORKING-STORAGE SECTION.


      *LOS INDICADORES SON LAS TECLAS DE CONTROL QUE
      *VOY A ESTAR COMPROBANDO TODO EL TIEMPO. EJ
      *F3, ENTER...
       01 WAREA-INDIC.
           COPY DDS-ALL-FORMAT-INDIC OF V001.

       01 WP1.
           03 WFLD001 PIC X(21).
           03 WFLD002 PIC X(39).
           03 WFLD003 PIC 9(9).





       PROCEDURE DIVISION.
       PROCESOS.
           OPEN I-O V001.
           INITIALIZE WP1.
           MOVE "MAG TITULO" TO WFLD001.
           MOVE "DEMO DE PANTALLA" TO WFLD002.
      * LA B ES DE BOOLEANO Y EL 0 DE FALSO
      * EL IN25 CONTROLA EL ENABLE/DISABLE DEL CAMPO WFLDOO2
           MOVE B"0" TO IN25.
       INGRESO-DAT.
      *    MOVE B"0" TO IN25.
      *
      *    EXIT.
           PERFORM ACTUALIZ-PANT THRU F-ACTUALIZ-PANT.

           IF IN03 OF P1-I-INDIC = B"1" GO TO FIN.
           IF IN06 OF P1-I-INDIC = B"1"
              MOVE "NORA RULES" TO WFLD001
           END-IF.
      *AL APRETAR F4 COMPROBAMOS EL ESTADO DE EDICION
      *DEL CAMPO WFLD002 Y LO CAMBIAMOS AL OTRO ESTADO
      *ALTERNANDO ENTRE BLOQUEO Y DESBLOQUEO
           IF IN04 OF P1-I-INDIC = B"1"
                 IF IN25 OF P1-O-INDIC = B"1"
                    MOVE B"0" TO IN25
                 ELSE

                    MOVE B"1" TO IN25
                 END-IF
           END-IF.
           GO TO INGRESO-DAT.
       F-INGRESO-DAT.
       ACTUALIZ-PANT.
           WRITE RV001 FROM WP1 FORMAT "P1"
                   INDICATORS ARE P1-O-INDIC.
           READ V001 INTO WP1 FORMAT "P1"
                   INDICATORS ARE P1-I-INDIC.


       F-ACTUALIZ-PANT. EXIT.

       FIN.
           CLOSE V001.
           STOP RUN.