Como renombrar archivo

[JuanJuan77]

hola, tengo un directorio con unas imagenes jpg, necesito saber si se puede desde powercobol renombrarlas según nuevo nombre que tengo en la base de datos

gracias

[Josber]

A ver, extraído del manual que escribí y que subí al foro en Éste enlace (https://www.cobolforo.es/showthread.php?t=831)

​ CBL_RENAME_FILE/CBL_RENAME_FILE2

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


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