Cobol Foro - [Sintaxis] Renombrar fichero con fecha

Cobol Foro (https://www.cobolforo.es/index.php)

- JCL y utilidades (https://www.cobolforo.es/forumdisplay.php?f=25)

- - [Sintaxis] Renombrar fichero con fecha (https://www.cobolforo.es/showthread.php?t=959)

Renombrar fichero con fecha

Muy buenas a todos,

Necesito ayuda con lo siguiente:

En una posición concreta de un fichero, hay una fecha. Lo que necesito es renombrar dicho fichero con dicha fecha.

¿Sabéis si es posible hacerlo ya sea por jcl o por un programa cobol?

Muchas gracias de antemano.

Saludos

Buenas

Yo tengo la misma duda que dhitar, y mirando en [Sintaxis] Informar variable JCL con contenido de fichero. - COBOL Foro no he conseguido solucionarla, porque lo que necesito es poner la fecha que viene dentro de un fichero como parte del nombre de otro.

Si hago:

Código JCL:

//SORT001  EXEC PROC=EXPRP23I                   
//P23.SORTIN  DD DSN=Fichero1,  (contiene una fecha)     
//            DISP=SHR                                           
//P23.SORTOUT DD DSN=&FICHA,                                     
//            DISP=(,CATLG,DELETE),                              
//            SPACE=(CYL,(1,1),RLSE),                       
//            DCB=(RECFM=FB,LRECL=10,BLKSIZE=0)                   
//P23.SYSIN   DD *                                               
   SORT FIELDS=(1,10,CH,A)                     
   SUM FIELDS=NONE                                                                          
/*

Luego quiero usar la variable &FICHA , para nombrar un fichero, pero si hago para crear el fichero

Código JCL:

//FIC2   EXEC PROC=EXPRP27I                          
//SYSPRINT DD SYSOUT=*                                 
//ALLOCAT1 DD DSN=Prefijos.&FICHA.,  
//            DISP=(NEW,CATLG,DELETE),                 
//            SPACE=(CYL,(500,50),RLSE),               
//            RECFM=FB,LRECL=30                       
/*

me da error en el uso del & ¿como puedo hacer para usar esa variable?

Muchas gracias

Igual no he entendido bien lo que quieres, pero si es lo que pienso:

Abres el fichero
Lees la fecha
Cierras el fichero
haces CBL_RENAME_FILE2

Y listo

@Nitzer, estamos bajo z/OS, Cobol no tiene acceso directo a ficheros ;)

---------- Post añadido el 5 de enero de 2022 a las 23:00 ----------

@ALF, has mirado el siguiente post en concreto? [Sintaxis] Informar variable JCL con contenido de fichero. - COBOL Foro #Post 4075

Ya me parecía muy fácil jajajajajaj, perdonad, por no haber leido.