IDENTIFICATION DIVISION.
       PROGRAM-ID. PRBAJA.
      ******************************************************************
      *  
      *================================================================*
      *            E N V I R O N M E N T    D I V I S I O N            *
      *================================================================*
      *
       ENVIRONMENT DIVISION.
      *
      *=====================
       CONFIGURATION SECTION.
      *=====================
      *
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
      *
      *================================================================*
      *                   D A T A    D I V I S I O N                   *
      *================================================================*
      *
       DATA DIVISION.
      *
      *=======================
       WORKING-STORAGE SECTION.
      *=======================
      *
      *    -------------------------
      *    AREAS PARA COMUNICACIONES
      *    -------------------------
           EXEC SQL
               INCLUDE SQLCA
           END-EXEC.
      *
      *
      *->  Tabla DB2 : TBPRU01 - 
           COPY CON LA DECLARE DE LA TABLA
      *===============
       LINKAGE SECTION.
      *===============
      *
       01 ENTRADA.
          05 CLAVE-SELECT PIC X(10).
      *
      *================================================================*
      *              P R O C E D U R E    D I V I S I O N              *
      *================================================================*
      *
       PROCEDURE DIVISION              USING ENTRADA.

      *
      ******************************************************************
      *  |                      0000 - PRINCIPAL                       *
      *--|------------------+----------><----------+-------------------*
      * 1| EJECUTA EL INICIO DEL PROGRAMA                              *
      * 2| EJECUTA EL PROCESO DEL PROGRAMA                             *
      * 3| EJECUTA EL FINAL DEL PROGRAMA                               *
      ******************************************************************
       00000-PRINCIPAL.
      *
      *->  <1>
      *
           PERFORM 10000-INICIO
      *
      *->  <2>
      *
           PERFORM 20000-PROCESO
      *
      *->  <3>
      *
           PERFORM 90000-FINAL
           .
      ******************************************************************
      *  |                      10000 - INICIO                         *
      *--|------------------+----------><----------+-------------------*
      *  | SE REALIZA EL TRATAMIENTO DE INICIO:                        *
      * 1| Inicialización de Áreas de Trabajo                          *
      * 2| Validacion datos de entrada                                 *
      * 3| Apertura del cursor, lectura y cierre de la tabla           *
      * 4| Validacion del Stamp recibido                               *
      ******************************************************************
       10000-INICIO.
      *
      * Añadir las validaciones necesarias de los campos de entrada
      *
           IF CLAVE-SELECT EQUAL SPACES OR LOW-VALUES
              DISPLAY 'LA CLAVE ESTA VACIA'
              PERFORM 90000-FINAL
           END-IF
      *
           .
      *
      ******************************************************************
      *  |                      20000 - PROCESO                        *
      *--|------------------+----------><----------+-------------------*
      *  | SE REALIZA EL TRATAMIENTO DE LOS DATOS:                     *
      * 1| DELETE DEL REGISTRO                                         *
      ******************************************************************
       20000-PROCESO.
      *
      *->  <1>
      *
           EXEC SQL
              DELETE FROM TBPRU01
               WHERE CAMPO1 = :CAMPO-CLAVE
           END-EXEC
      *
           EVALUATE TRUE
              WHEN SQLCODE         EQUAL ZERO
                   CONTINUE
              WHEN SQLCODE         EQUAL +100
      *             No Existe
                   DISPLAY 'NO SE ENCONTRO NINGUN REGISTRO'
                   PERFORM 90000-FINAL
              WHEN OTHER
      *             Error al Seleccionar Un Registro
                   DISPLAY 'ERROR AL HACER EL DELETE. SQLCODE: 'SQLCODE
                   PERFORM 90000-FINAL
           END-EVALUATE
      *
           .
      *
      ******************************************************************
      *  |                       90000 - FINAL                         *
      *--|------------------+----------><----------+-------------------*
      *  | FINALIZA LA EJECUCION DEL PROGRAMA                          *
      * 1| Cierra el cursor                                            *
      * 2| Finalización del Programa                                   *
      ******************************************************************
       90000-FINAL.
      *
      *
           GOBACK
           .
      *================  Fin  del  Programa  PRBAJA    ================*