Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 10326
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 IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm
No new posts Update table without cursor Ron Klop DB2 3 Wed Oct 11, 2017 1:06 pm
No new posts Table(Unicode(Graphic) table) loading... muralikrishnan_new DB2 0 Thu Oct 05, 2017 5:10 pm
No new posts FTP Skip or ignore error and process ... AJAYREDDY All Other Mainframe Topics 3 Wed Sep 27, 2017 8:12 pm
No new posts Assembler Macro Copybook converted to... Ziquilix PL/I & Assembler 4 Tue Sep 26, 2017 3:07 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us