IDENTIFICATION DIVISION.
       PROGRAM-ID. CERIO002.
       AUTHOR. CERIONI.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. IBM-AS400.
       OBJECT-COMPUTER. IBM-AS400.

       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT F002
                  ASSIGN TO DATABASE-F002
                  ORGANIZATION IS INDEXED
                  ACCESS MODE IS DYNAMIC
                  RECORD KEY IS EXTERNALLY-DESCRIBED-KEY.

           SELECT F002L1
                  ASSIGN TO DATABASE-F002L1
                  ORGANIZATION IS INDEXED
                  ACCESS MODE IS DYNAMIC
                  RECORD KEY IS EXTERNALLY-DESCRIBED-KEY
                  WITH DUPLICATES.
       DATA DIVISION.

       FILE SECTION.

       FD F002 LABEL RECORD IS STANDARD.
       01 REG001.
           COPY DDS-ALL-FORMAT OF F002.
       FD F002L1 LABEL RECORD IS STANDARD.
       01 REGL001.
           COPY DDS-ALL-FORMAT OF F002L1.

       WORKING-STORAGE SECTION.





       PROCEDURE DIVISION.

       INICIO-PRCESOS.
           OPEN I-O F002.
           OPEN I-O F002L1.


      * QUITAR EL ASTERISCO EN SOLO UNO DE LOS PERFORM
      *BUSQUEDA DE UN DATO POR LA CLAVE (KEY)
           PERFORM BUSCO-DATO THRU F-BUSCO-DATO.

      *AGREGA REGISTRO A LA TABLA. NOTA: LA KEY DEBE SER UNICA
      *    PERFORM AGREGA-REG THRU F-AGREGA-REG.

      *BORRO REGISTRO
      *    PERFORM BORRA-REG THRU F-BORRA-REG.



      *ACTUALIZO REGISTRO
      *    PERFORM MODIFIC-REG THRU F-MODIFIC-REG.



           GO TO FIN.
       F-INICIO-PROCESOS.
      ****************************************************************
       BUSCO-DATO.
      *BUSCO EL DATO CON CODIGO 00000001 OTRO CODIGO NO LO ENCUENTRA
      *    MOVE 00000001 TO F1CODI OF REG001.
           MOVE "EMMA" TO F1TXT1 OF REGL001.

      *VAMOS A LEER LA TABLA Y BUSCAR EL REGISTRO 00000001
      *
      *    READ F002 INVALID KEY
      *           DISPLAY "NO EXISTE EL REGISTRO"
      *
      *           NOT INVALID KEY
      *              DISPLAY "REGISTRO ENCONTRADO"
      *
      *    END-READ.
           READ F002L1 INVALID KEY
                  DISPLAY "NO EXISTE EL REGISTRO"

                  NOT INVALID KEY
                     DISPLAY "REGISTRO ENCONTRADO"

           END-READ.

       F-BUSCO-DATO. EXIT.
      *********************************************************
       AGREGA-REG.
           DISPLAY "AGREGANDO REGISTRO3".
      *    MOVE 00000003 TO F1CODI OF REG001.
           MOVE "REGISTRO NUMERO 3" TO F1TXT1 OF REG001.
      *ESCRIBIMOS LOS VALORES EN LA TABLA
           WRITE REG001
           END-WRITE.

           DISPLAY "REGISTRO AGREGADO".




       F-AGREGA-REG. EXIT.
      *********************************************************
      *MODIFIC-REG.
           MOVE 00000002 TO F1CODI OF REG001.
           MOVE "REGISTRO 2 CAMBIADO" TO F1TXT1 OF REG001.

           REWRITE REG001
           END-REWRITE.

           DISPLAY "REGISTRO 2 MODIFICADO".

       F-MODIFIC-REG. EXIT.
      *********************************************************
       BORRA-REG.
           MOVE 00000002 TO F1CODI OF REG001.
      *SOLO FUNCIONA BUSCANDO EL REGISTRO POR EL KEY
      *PARA BUSCAR POR EL TEXTO USARIAMOS EL REGL001 Y F002L1
      *EN EL MOVE REGL001
      *EN EL DELETE F002L1

           DELETE F002
           END-DELETE.






       F-BORRA-REG. EXIT.
      *********************************************************
      *RECUPERO DATOS DESDE EL ARCHIVO A LA PANTALLA
      *DATOS-ARCH-PANT.

      *    MOVE F1CODI OF REG001 TO FLD001.
      *    MOVE F1TEXT1 OF REG001 TO FLD002.
      *LOS FLD001 Y 2 SON LAS VARIABLES DE LOS CAMPOS DE LA
      *PANTALLA QUE CREAMOS COM STRSDA (SCREEN DESIGN AID)

      *LLAMAMOS CON PERFORM AL PARRAFO DE ACTUALIZAR/MOSTRAR
      *PANTALLA
      *F-DATOS-ARCH-PANT. EXIT.
      *********************************************************
       FIN.
           CLOSE F002.
           CLOSE F002L1.
           STOP RUN.