Page 1 of 1

Update Include Membre

PostPosted: Mon Dec 16, 2019 3:53 pm
by samb01
Hello,
my goal is to create a defrag sysin frome a storage group
i have a step1 where i update a proclib member (LISTVOL)

and in the following step 2, i use this member to read it.
But in the step2, there not the same thing in the member than in the step on. I suppose, the step 2 is running too fast (before the step one update the member...) :


//**************************************************          
//* CREATION DE LA SYSIN VOLPREP                   *          
//**************************************************          
//REXX2    EXEC PGM=IRXJCL,PARM=('REX5')                  
//SYSEXEC  DD DISP=SHR,DSN=DATA.PARAM                    
//SYSTSPRT DD SYSOUT=*                                        
//SYSTSIN  DD SYSOUT=*                                        
//IN       DD DSN=DATA.LISTVOL,DISP=SHR              
//OUT      DD DSN=DATA.PROCLIB(LISTVOL),DISP=SHR          
//**************************************************          
//*   JCL DE DEFRAG DES DISKS        
//**************************************************          
//DEFRA    EXEC PGM=ADRDSSU,PARM='UTILMSG=YES'                
//SYSPRINT DD SYSOUT=*                                        
//         INCLUDE MEMBER=LISTVOL                              
//FILTERD1 DD DSN=DATA.PARAM(DFRA1),DISP=SHR          
//SYSIN    DD DSN=DATA.PARAM(DFRA2),DISP=SHR          
**************************** Bottom of Data *******************

 


the member LISTVOL contain the DASD Volume list froml a storage group

The member LISTVOL contain that :


********************************* Top of Data ****
//A1  DD DISP=SHR,UNIT=DISK,VOL=SER=DASD01
//A2  DD DISP=SHR,UNIT=DISK,VOL=SER=DASD02
//A3  DD DISP=SHR,UNIT=DISK,VOL=SER=DASD03
//A4  DD DISP=SHR,UNIT=DISK,VOL=SER=DASD04        
//A5  DD DISP=SHR,UNIT=DISK,VOL=SER=DASD05        
//A6  DD DISP=SHR,UNIT=DISK,VOL=SER=DASD06        
//A7  DD DISP=SHR,UNIT=DISK,VOL=SER=DASD07        
//A8  DD DISP=SHR,UNIT=DISK,VOL=SER=DASD08        
//A9  DD DISP=SHR,UNIT=DISK,VOL=SER=DASD09        
...
 


The SYSIN contain //SYSIN DD DSN=DATA.PARAM(DFRA2),DISP=SHR that :


********************************* To
      DEFRAG  DDN(A1)  -            
        EXCL(DDN(FILTERD1))  -      
            WAIT(1,1)              
      DEFRAG  DDN(A2)  -            
        EXCL(DDN(FILTERD1))  -      
            WAIT(1,1)              
...
 


May be i have to ad a wait step ?

Re: Update Include Membre

PostPosted: Mon Dec 16, 2019 4:31 pm
by NicC
You cannot dynamically update JCL. The code in the INCLUDE statement is included at the time that the job is read by the reader/interpreter. You hve to crete your INCLUDE member in a previous job.

Re: Update Include Membre

PostPosted: Mon Dec 16, 2019 5:40 pm
by samb01
Thank you NicC !