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.-