IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

ISPT036 - Table in use error
IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
srajendran2

New User


Joined: 13 May 2008
Posts: 56
Location: Chennai
PostPosted: Fri Apr 20, 2012 9:03 pm
 Reply with quote
Hi,

I have a rexx EXEC which is executing successfully when executed online. I am trying to execute my REXX EXEC through batch. I get the error message "ISPT036 Table in use -/-TBOPEN issued for table ISPSPROF that is in use, ENQUEUE failed.".

I tried to allocate my personal ISPPROF library in ISPPROF &
ISPTLIB DD names as the first library.

Also i tried to copy all the members of system library into temporary dataset and gave the temporary dataset as first dataset in concatenation for ISPPROF & ISPTLIB

But i still get the same issue. Could you please help me resolve this issue?
Back to top
View user's profile Send private message
srajendran2

New User


Joined: 13 May 2008
Posts: 56
Location: Chennai
PostPosted: Fri Apr 20, 2012 9:08 pm
 Reply with quote
The JCL is given below

Code:

//AAAAAAA JOB (DWR,SYS999,TSO--TC3,TSTH,TSTH),           
//         MSGCLASS=X,REGION=4M,CLASS=A,NOTIFY=&SYSUID   
//*                                                       
//COPYLIB EXEC PGM=IEBCOPY                               
//SYSPRINT DD SYSOUT=*                                   
//INDD     DD DISP=SHR,DSN=SYS1.ISRTLIB                   
//OUTDD    DD DSN=&&ISRTLIB,                             
//         DISP=(NEW,PASS,DELETE),                       
//         SPACE=(CYL,(25,25),RLSE)                       
//SYSIN    DD *                                           
  COPY INDD=INDD,OUTDD=OUTDD                             
/*                                                       
//REXXEXEC EXEC PGM=IKJEFT01                             
//ISPLLIB  DD DISP=SHR,DSN=MVSP.CONNECTD.OPCEXITS.LINKLIB
//         DD DISP=SHR,DSN=MVSP.CONNECTD.LINKLIB         
//         DD DISP=SHR,DSN=DWR1.LOAD                     
//ISPMLIB  DD DISP=SHR,DSN=MVSP.CONNECTD.ISPMLIB         
//         DD DISP=SHR,DSN=DWR1.PANELS.ISRMLIB           
//         DD DISP=SHR,DSN=DWR1.ISRMLIB                   
//         DD DISP=SHR,DSN=STS1.ISRMLIB                   
//         DD DISP=SHR,DSN=SYS1.ISRMLIB             
//         DD DISP=SHR,DSN=PROD.ISRMLIB             
//ISPPLIB  DD DISP=SHR,DSN=MVSP.CONNECTD.ISPPLIB     
//         DD DISP=SHR,DSN=DWR1.PANELS.ISRPLIB       
//         DD DISP=SHR,DSN=DB00.STS1.PANELS         
//         DD DISP=SHR,DSN=DWR1.ISRPLIB             
//         DD DISP=SHR,DSN=STS1.ISRPLIB             
//         DD DISP=SHR,DSN=SYS1.PREP.ISRPLIB         
//         DD DISP=SHR,DSN=PROD.ISRPLIB             
//ISPPROF  DD DISP=SHR,DSN=AAAAAA.ISPFX.ISPPROF     
//ISPSLIB  DD DISP=SHR,DSN=MVSP.CONNECTD.ISPSLIB     
//         DD DISP=SHR,DSN=DWR1.PANELS.ISRSLIB       
//         DD DISP=SHR,DSN=DWR1.ISRSLIB             
//         DD DISP=SHR,DSN=STS1.ISRSLIB             
//         DD DISP=SHR,DSN=SYS1.ISRSLIB             
//         DD DISP=SHR,DSN=PROD.ISRSLIB             
//ISPTABL  DD DISP=SHR,DSN=DWR1.ISRTLIB             
//ISPTLIB  DD DISP=(OLD,DELETE,DELETE),DSN=&&ISRTLIB
//         DD DISP=SHR,DSN=DWR1.ISRTLIB             
//         DD DISP=SHR,DSN=STS1.ISRTLIB             
//         DD DISP=SHR,DSN=SYS1.ISRTLIB             
//         DD DISP=SHR,DSN=PROD.ISRTLIB           
//SYSEXEC  DD DISP=SHR,DSN=TSTH.A.EXEC             
//         DD DISP=SHR,DSN=DWR1.EXEC               
//         DD DISP=SHR,DSN=STS1.EXEC.NEW           
//         DD DISP=SHR,DSN=STS1.EXEC               
//         DD DISP=SHR,DSN=SYS1.EXEC               
//         DD DISP=SHR,DSN=PROD.EXEC               
//SYSHELP  DD DISP=SHR,DSN=DWR1.HELP               
//         DD DISP=SHR,DSN=SYS1.SHELP             
//         DD DISP=SHR,DSN=SYS1.HELP               
//SYSPROC  DD DISP=SHR,DSN=MVSP.CONNECTD.ISPCLIB   
//         DD DISP=SHR,DSN=AAAAAA.A.CLIST         
//         DD DISP=SHR,DSN=BBBB.A.CLIST           
//         DD DISP=SHR,DSN=DWR1.PANELS.ISRCLIB     
//         DD DISP=SHR,DSN=CSP3.V4R1M0L0.EZECLST   
//         DD DISP=SHR,DSN=DB00.STS1.CLIST         
//         DD DISP=SHR,DSN=DWR1.CLIST             
//         DD DISP=SHR,DSN=STS1.CLIST             
//         DD DISP=SHR,DSN=SYS1.CLIST             
//         DD DISP=SHR,DSN=PROD.CLIST             
//SYSTSPRT DD SYSOUT=*                             
//SYSTSIN  DD *                         
  PROFILE PREFIX(AAAAAA)               
  ISPSTART CMD(%REXXMCRO)               
/*                                     
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Fri Apr 20, 2012 9:33 pm
 Reply with quote
Hello,

You may still have the file locked by your online session. . .
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy
PostPosted: Fri Apr 20, 2012 9:33 pm
 Reply with quote
it is not the table library that You have to copy...
it Your ispf profile

and unless the application is very convoluted
( store something in the profile from the interactive side
submit a batch which uses that data )

usually an empty profile is more than enough
Back to top
View user's profile Send private message
srajendran2

New User


Joined: 13 May 2008
Posts: 56
Location: Chennai
PostPosted: Fri Apr 20, 2012 9:49 pm
 Reply with quote
Enrico,

I copied ISPFPROF dataset into temporary dataset. Now its working. But now i am receiving "ISPT015 BLDL/FIND error -/-ISPDTFRS received return code 8 from BLDL/FIND". Could you please let me know what could be wrong?
Back to top
View user's profile Send private message
srajendran2

New User


Joined: 13 May 2008
Posts: 56
Location: Chennai
PostPosted: Fri Apr 20, 2012 11:46 pm
 Reply with quote
The issue ISPT015 is resolved. Few of the ISPTLIB libraries were commented out in my JCL and it caused the issue
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Sat Apr 21, 2012 12:05 am
 Reply with quote
Good to hear it is working - thank you for letting us know icon_smile.gif

d
Back to top
View user's profile Send private message
srajendran2

New User


Joined: 13 May 2008
Posts: 56
Location: Chennai
PostPosted: Sat Apr 21, 2012 12:29 am
 Reply with quote
Points to be noted while creating batch JCL for executing rexx

1. we should have coded in JCL all the libraries allocated in TSO ISRDDN.

2. ISPLOG can be added as below.
//ISPLOG DD UNIT=SYSDA,SPACE=(TRK,(5,5,5)),
// LRECL=80,BLKSIZE=6160,RECFM=FB,DSORG=PO

3. ISPPROF can also be allocated as above. But if you need to code ISPPROF, make sure the library is not in use. Its better to have IEBCOPY to copy it to a &&TEMP dataset and use it in ISPTLIB and ISPPROF dd names as first in concatenation
Back to top
View user's profile Send private message
srajendran2

New User


Joined: 13 May 2008
Posts: 56
Location: Chennai
PostPosted: Sat Apr 21, 2012 12:30 am
 Reply with quote
And if you have ISPEXEC commands, the SYSTSIN should look as the one below

//SYSTSIN DD *
PROFILE PREFIX(USERID)
ISPSTART CMD(%REXXEXEC)
/*
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 

Similar Topics
Topic Forum Replies
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Load new table with Old unload - DB2 DB2 6
No new posts Error when install DB2 DB2 2
No new posts Pulling a fixed number of records fro... DB2 2
No new posts CLIST - Virtual storage allocation error CLIST & REXX 5
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us