@LisAndKp,, como no pones qué versión de COBOL usas, (PowerCobol, MicroFocus ...), te lo pongo para un COBOL genérico
Código COBOL:
WORKING-STORAGE SECTION.
01 FECHA.
03 AA PIC 99.
03 MM PIC 99.
03 DD PIC 99.
01 FECHA1.
03 DD1 PIC 99.
03 MM1 PIC 99.
03 AA1 PIC 9999.
01 NOMBRE_FICHERO PIC X(19).
PROCEDURE DIVISION.
*
INITIALIZE FECHA FECHA1 NOMBRE_FICHERO.
ACCEPT FECHA FROM DATE.
MOVE DD TO DD1.
MOVE MM TO MM1.
COMPUTE AA1 = AA + 2000.
STRING FECHA1
"_LISTAS.txt" DELIMITED BY SIZE INTO NOMBRE_FICHERO
END-STRING.
Un salu2.-