Update Include Membre



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

Update Include Membre

Postby samb01 » Mon Dec 16, 2019 3:53 pm

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 ?
samb01
 
Posts: 427
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 1 time
Been thanked: 0 time

Re: Update Include Membre

Postby NicC » Mon Dec 16, 2019 4:31 pm

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.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 3025
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 136 times

Re: Update Include Membre

Postby samb01 » Mon Dec 16, 2019 5:40 pm

Thank you NicC !
samb01
 
Posts: 427
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 1 time
Been thanked: 0 time


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post