Issue RxDB2I2 against the following lines:


-- ================================================================= --
-- Generate DSNJU003 Conditional Restart Job                         --
--     Use  last Archieve RBA + 1 as the Conditional Restart RBA     --
-- ================================================================= --
--                                                                     
-- DSNJU004                                                            
--                                                                     
db2i2rex "DSNJU004 odsn=t1"                                            
--                                                                     
-- Get RBA from dsnju004 first Archieve Log line with ED macro from idd=getrba               
--                                                                     
LINEOBJ ddname=getrba                                                  
F 'AR' 1 first                                                         
cline                                                                  
REXX Parse var cline junk1 junk2 setrba junk3 junk4 archln2            
REXX archln1 = junk1 junk2 setrba junk3 junk4                          
REXX Address Ispexec "vput (archln1 archln2 setrba) shared"            
END_LINEOBJ                                                            
db2i2rex "ED t1 Macro(Idd=getrba)"                                     
Address Ispexec "vget (setrba) shared"                                 
--                                                                     
-- SETRBA Last Archieve Ending Log RBA + 1                             
--                                                                     
db2i2rex "SETRBA" setrba "+1"                                          
db2cat = 'dsn810'                                                      
Address Ispexec "vput (db2cat) shared"                                 
--                                                                     
-- Edit Macro to generate DSNJU003                                     
--                                                                     
LINEOBJ ddname=genju003                                                
delete * *                                                             
rexx address ispexec "vget (db2cat setrba archln1 archln2) shared"     
caps off                                                               
INSERTA 1 IDSN=pds.cntl(ju003)                                         
Reset                                                                  
END_LINEOBJ                                                                                                                           
db2i2rex "ED pds.cntl(myju003) Macro(Idd=genju003)"                    



*** DSNJU003 Skelten JCL in pds.cntl(ju003)

//DB2ADM01 JOB (ACCT),'DB2I2 AD',                                       
//             NOTIFY=&SYSUID,COND=(0,NE),REGION=4M,                    
//             CLASS=A,MSGCLASS=H                                       
//* ================================================================== *
//* Generated                                                           
//*   On {date(u)}                                                      
//*   At {time()}                                                       
//*   By {userid()}                                                     
//* From Archive Log Information                                        
//* {ARCHLN1}                                                           
//*    {ARCHLN2}                                                        
//* ================================================================== *
//STEP01   EXEC PGM=DSNJU003,COND=EVEN                                  
//SYSUT1   DD DSN={DB2CAT}.BSDS01,DISP=SHR                              
//SYSUT2   DD DSN={DB2CAT}.BSDS02,DISP=SHR                              
//SYSPRINT DD SYSOUT=A                                                  
//SYSIN    DD *                                                         
CRESTART CREATE,BACKOUT=NO,FORWARD=NO,ENDRBA={SETRBA}                   
/*