DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  FICHERO            PIC X(255).
 01  DETALLES.
     02  TAMANO             PIC 9(18) BINARY.
     02  FECHA.
         03  DIA            PIC 9(4) BINARY.
         03  MES            PIC 9(4) BINARY.
         03  ANNO       PIC 9(4) BINARY.
     02  HORA.
         03  HH             PIC 9(4) BINARY.
         03  MM             PIC 9(4) BINARY.
         03  SS             PIC 9(4) BINARY.
         03  CC             PIC 9(4) BINARY.
 01  ESTADO             PIC S9(4) COMP-5.
 PROCEDURE       DIVISION.
*
* FICHERO = Nombre del fichero a comprobar, debe terminar en un carácter en blanco o null
* DETALLES = Detalles del fichero
*          TAMANO = Tamaño del fichero (en bytes)
*          FECHA/HORA = Fecha y Hora de creación del fichero
* ESTADO = Código de retorno de la función:
*            0  - Sin error
*           -1  - Algún error
*
 INICIO.
     MOVE SPACES TO FICHERO.
     MOVE "C:\Articulos\Datos\PRUEBA.TXT" & X"00" TO FICHERO.
     CALL "CBL_CHECK_FILE_EXIST2"
          USING FICHERO
                DETALLES
          RETURNING ESTADO
     END-CALL.
*
     IF ESTADO NOT = 0
        INVOKE POW-SELF "DisplayMessage"
               USING "Error en la llamada a la rutina CBL..."
                     ESTADO
                     POW-DMICONERROR
        END-INVOKE
        INVOKE POW-SELF "CloseForm"
        EXIT PROGRAM
     END-IF.
*