ADRDSSU DUMP algún fichero no existe

Todo lo relacionado con JCL, manejo de jobs, etc.
Responder
man010

ADRDSSU DUMP algún fichero no existe

Mensaje por man010 »

Hola a todos,

En la instalación en la que trabajo se hacen salvados DUMP de dataset vía ADRDSSU definiendo cada fichero.

//SALVA DD DSN=fichero.generacional(+1),DISP=(,PASS),
// UNIT=SYSDA,SPACE=(TRK,(100,10),RLSE)
//SYSIN DD *
DUMP OUTDD(SALVA) OPT(4) SHR -
DATASET(INCLUDE(fichero.uno, -
fichero.dos, -
fichero.tres))
//SYSPRINT DD SYSOUT=*
//*

Si "fichero.dos" no existe, el JCL devuelve un RC=08 y la ejecución del salvado no se realiza. ¿Podéis ayudarme con alguna configuración o forma de hacer para que el job salve los ficheros que existan y no de error por que alguno no exista?

Muchas gracias
man010

Re: ADRDSSU DUMP algún fichero no existe

Mensaje por man010 »

Estoy intentando probar con TOL(ENQF)... No tengo permisos RACF... a ver como avanza.
alexglezquin

Re: ADRDSSU DUMP algún fichero no existe

Mensaje por alexglezquin »

Antes de este paso comprueba si cada fichero existe y si no existe crearle en vacío:

Código: Seleccionar todo

//**********************************************************************
//*        COMPROBAMOS QUE EL FICHERO EXISTE                            
//**********************************************************************
//VERI000  EXEC  PGM=IDCAMS                                             
//SYSPRINT DD  SYSOUT=*                                                 
//SYSIN    DD  *                                                        
   LISTCAT ENTRIES(fichero1)                             
/*                                                                      
//**********************************************************************
//         IF  (VERI000.RC > 0) THEN           
//**********************************************************************
//*        SI EL FICHERO NO EXISTE LO CREAMOS EN VACÍO                     
//**********************************************************************
//PASO002  EXEC   PGM=IEFBR14                                           
//SYSPRINT DD  SYSOUT=*                                                 
//SYSOUT   DD  SYSOUT=*                                                 
//SYSUDUMP DD  SYSOUT=*                                                 
//SYSDBOUT DD  SYSOUT=*                                                 
//TRANOMS1 DD DSN=fichero1,                           
//            DISP=(,CATLG,DELETE),                   
//            SPACE=(xxx,(1,1),RLSE),AVGREC=K,                          
//            RECFM=FB,LRECL=xxx                                        
/*                                                                      
//**********************************************************************
//         ENDIF                                                        
//**********************************************************************
Vicente

Re: ADRDSSU DUMP algún fichero no existe

Mensaje por Vicente »

Hola
ADRDSSU tiene mandatos IF THEN ELSE y tambien SET
Puedes escribir cosas como IF LASTCC = 8 THEN SET LASTCC = 0
Para saber más hay que leer el manual DFSMSdss Storage Administration en:
http://publibfp.dhe.ibm.com/cgi-bin/boo ... 0802140629

Un saludo
Responder