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: 10202
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 S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
No new posts Error during restore rename archanamuthukrishnan All Other Mainframe Topics 2 Fri Oct 14, 2016 3:30 pm
No new posts Error IEC161I 052(009,XXXRS00)-084 wh... amitc23 JCL & VSAM 10 Wed Oct 12, 2016 5:00 pm
No new posts Need Rexx Program to Load in to DB2 T... Hareesh Verma CLIST & REXX 22 Tue Sep 20, 2016 2:59 pm


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