Validar si un archivo existe

[dandarc]

Se puede por medio de un JCL validar si un archivo existe ???

Gracias.

[polet]

Utilizando un listcat se puede verificar si el archivo existe

[jjrodriguezg]

Tal vez te sirva lo siguiente:

//LSTSDENT EXEC PGM=IDCAMS,COND=(4,LT)
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
LISTCAT ENT('THE CREATED FILE')
/*
// IF LSTSDENT.RC NE 0 THEN
//***************USE A DUMMY INPUT FILE****************
//EXCI EXEC PGM=THE COBOL CODE
//STEPLIB DD DSN=ZX.PROD.COB2LOAD,DISP=SHR
//DCFILE DD DSN=DUMMY FILE,DISP=SHR,
// AMP=('ACCBIAS=SYSTEM')
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
.
.
.
// ENDIF
// IF LSTSDENT.RC = 0 THEN
//***************USE THE ORIGINAL INPUT FILE************
//EXCI EXEC PGM=THE COBOL CODE
//STEPLIB DD DSN=ZX.PROD.COB2LOAD,DISP=SHR
//DCFILE DD DSN=LIVE FILE,DISP=SHR,
// AMP=('ACCBIAS=SYSTEM')
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
.
.
.
// ENDIF

Saludos

[elmag0]

Buen dia !!! Te paso un ejemplo de como lo resolví alguna vez.

El step010 chequea la existencia del file, si existe manda un RC=00 y si no existe manda un RC=04.
Los siguientes pasos (step010A y step010B) chequean en RC del step010 y se ejecutan solamente si el step010 termina con RC=00 o sea si el file existe.

Espero te sirva.

saludos.

//STEP010 EXEC PGM=IDCAMS
//SYSIN DD *
LISTC ENTRIES(APDMS.MARCA.RCHI.STEP0010)
/*
//*-------------------------------------------------
//STEP010A EXEC PGM=IDCAMS,
// COND=(0,NE,STEP010)
//SYSIN DD *
xxxxxxxxxxxxxxxxxxxxxxxxxxx
//*
//*-------------------------------------------------
//STEP010B EXEC PGM=ZZZZZ,
// COND=(0,NE,STEP010),