Cobol Foro - [Sintaxis] Como renombrar archivo

A ver, extraído del manual que escribí y que subí al foro en Éste enlace

 CBL_RENAME_FILE/CBL_RENAME_FILE2

Cambia el nombre de un fichero. Si el nuevo nombre ya existe, nos devolverá error. (-1).

Código COBOL:

 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  FICHERO            PIC X(255).
 01  FICHERO2           PIC X(255).
 01  ESTADO             PIC S9(4) COMP-5.
 PROCEDURE       DIVISION.
*
* FICHERO = Nombre antiguo del fichero
* FICHERO2 = Nombre nuevo del fichero
* ESTADO = Código de retorno de la función:
*            0  - Sin error
*           -1  - Algún error
*
 INICIO.
     MOVE SPACES TO FICHERO FICHERO2
     MOVE "C:\Articulos\Datos\PRUEBA.TXT" & X"00" TO FICHERO.
     MOVE "C:\Articulos\Datos\Nueva PRUEBA.TXT" & X"00" TO FICHERO2.
     CALL "CBL_RENAME_FILE2"
          USING FICHERO
                FICHERO2
          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.
*

Ahí lo tienes, bájate el manual porque para utilizar esa función, has de incluir una librería y en él, indico como se hace.

En el manual, verás funciones y utilidades, para eso y mucho más

Un salu2.-