ISPT036 Table in use



IBM's Command List programming language & Restructured Extended Executor

ISPT036 Table in use

Postby samb01 » Mon Feb 10, 2020 1:15 pm

Hello,

i used to run a rexx by batch (by using TWS) and edach time it works.
But yestdeday, we had for the firt time that


-IEFACTRT          VERIFSMS   998
 



READY                    
PROFILE NOPREFIX        
READY                    
ISPSTART CMD(MYREXX)  
ISPT036 Table in use            -/-TBOPEN issued for table ISPSPROF that is in use, ENQUEUE failed.
 


My step is below :


//REXXSTEP   EXEC PGM=IKJEFT1B,DYNAMNBR=100,REGION=4M,COND=(4,LE)  
//SYSTSIN  DD *                                                      
PROFILE NOPREFIX                                                    
ISPSTART CMD(MYREXX)                                              
//SYSPROC  DD DSN=ISP.&VISPF..SISPCLIB,DISP=SHR                      
//SYSEXEC  DD  DISP=SHR,DSN=PDS.PARAM                          
//SYSTSPRT DD  SYSOUT=*                                              
//ISPLOG   DD  DUMMY                                                
//ISPPROF  DD  DSN=&&PROF,DISP=(NEW,PASS),                          
//     DCB=(LRECL=80,BLKSIZE=6160,RECFM=FB),                        
//     SPACE=(TRK,(2,1,2)),UNIT=VIO                                  
//ISPMLIB  DD  DSN=ISP.&VISPF..SISPMENU,DISP=SHR                    
//ISPSLIB  DD  DSN=ISP.&VISPF..SISPSENU,DISP=SHR
//ISPPLIB  DD  DSN=ISP.&VISPF..SISPPENU,DISP=SHR    
//ISPTLIB  DD  DSN=ISP.&VISPF..SISPTENU,DISP=SHR    
//SYSTSPRT DD  SYSOUT=*                            
//SYSTERM  DD  SYSOUT=*                            
//SYSABEND DD  SYSOUT=*                            
//ISPLOG DD SYSOUT=*,                              
// LRECL=120,BLKSIZE=2400,DSORG=PS,RECFM=FB        
//IN  DD DISP=SHR,DSN=FICIN.DATA.SET          
//OUT1 DD DISP=OLD,DSN=FICOUT1.DATA.SET
//OUT2 DD DISP=OLD,DSN=FICOUT2.DATA.SET
//*                  
 


Is there a way to prevent that Abend ?

Thank's for tour help.
samb01
 
Posts: 427
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 1 time
Been thanked: 0 time

Re: ISPT036 Table in use

Postby prino » Mon Feb 10, 2020 6:24 pm

Allow more time between submitting jobs, to get different temporary names for your profile dataset, been there done that.
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
User avatar
prino
 
Posts: 635
Joined: Wed Mar 11, 2009 12:22 am
Location: Vilnius, Lithuania
Has thanked: 3 times
Been thanked: 28 times

Re: ISPT036 Table in use

Postby samb01 » Tue Feb 11, 2020 1:52 pm

Hello, finally, i added an IEBCOPY in a temporay file before executing the rexx in batch :


//COPYPROF EXEC PGM=IEBCOPY                                        
//SYSPRINT DD SYSOUT=*                                              
//SYSUT3   DD UNIT=SYSALLDA,SPACE=(TRK,(1))                        
//SYSUT4   DD UNIT=SYSALLDA,SPACE=(TRK,(1))                        
//IN       DD DSN=&PREFISP..V2R3M0.SISPTENU,DISP=SHR                
//OUT      DD DSN=&TEMPPROF,DISP=(NEW,PASS,DELETE),                
//         UNIT=SYSALLDA,SPACE=(TRK,(2,1,4)),                      
//         DCB=(LRECL=80,BLKSIZE=9040,RECFM=FB,DSORG=PO)            
//SYSIN    DD *                                                    
  COPY INDD=IN,OUTDD=OUT                                            
   S M=ISPPROF,ISPSPROF                                            
/*                                                                  

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

Re: ISPT036 Table in use

Postby Pedro » Wed Feb 12, 2020 3:38 am

Your basic problem is that the ISPPROF DD name uses a temporary data set name. the name is not random. The system generates a temporary name, always using a specific format. I think it includes the date and time as part of the name. There is a naming collision when two jobs are submitted during the exact same second. Your solution does not address that problem. If you had success, it was not because you added an IEBCOPY step.
Pedro Vera
User avatar
Pedro
 
Posts: 684
Joined: Thu Jul 31, 2008 9:59 pm
Location: Silicon Valley
Has thanked: 0 time
Been thanked: 53 times


Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post