Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ISPT036 - Table in use error

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
srajendran2

New User


Joined: 13 May 2008
Posts: 43
Location: Chennai

PostPosted: Fri Apr 20, 2012 9:03 pm    Post subject: ISPT036 - Table in use error
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: 43
Location: Chennai

PostPosted: Fri Apr 20, 2012 9:08 pm    Post subject: jcl
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

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Apr 20, 2012 9:33 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10231
Location: italy

PostPosted: Fri Apr 20, 2012 9:33 pm    Post subject: Reply to: ISPT036 - Table in use error
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: 43
Location: Chennai

PostPosted: Fri Apr 20, 2012 9:49 pm    Post subject:
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: 43
Location: Chennai

PostPosted: Fri Apr 20, 2012 11:46 pm    Post subject:
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

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sat Apr 21, 2012 12:05 am    Post subject: Reply to: ISPT036 - Table in use error
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: 43
Location: Chennai

PostPosted: Sat Apr 21, 2012 12:29 am    Post subject:
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: 43
Location: Chennai

PostPosted: Sat Apr 21, 2012 12:30 am    Post subject:
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    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Need help with below DB2 error ashek15 DB2 3 Sat Mar 18, 2017 5:56 am
No new posts FINDREP Syntax Error seahawk789 DFSORT/ICETOOL 4 Thu Mar 09, 2017 10:11 pm
No new posts INVOKE WEBSERVICE error danik56 CICS 11 Thu Mar 09, 2017 11:52 am
No new posts Row not found Sql error GaganGarg DB2 7 Tue Mar 07, 2017 6:29 am
No new posts how to send just 10 rows in a CICS sc... Megha Gupta CICS 5 Thu Feb 23, 2017 6:57 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us