MVSFORUMS.com

ha.rajamohamed · Beginner Joined: 29 Jan 2006 Posts: 71 Topics: 22

From JCL I am triggering Rexx program.
There are 5 JCLs submitted at the same time. When each JCL completes its execution, it will trigger an rexx program, and while triggering one of the JCL unable to do it beacause of the following error

ISPT036 Table in use
-/-TBOPEN issued for table ISPSPROF that is in use, ENQUEUE failed.

The JCL RC is 998

The command I used to trigger the Rexx program is

ISPSTART CMD(%P12345A1 PARM1 PARM2)

Can anyone please suggest in resolving the above error.

Thanks

Phantom · Posted: Fri Apr 07, 2006 2:02 am Post subject:

Its because you are trying to open the same ISPF table simultaneously in all 5 JCLs. Can you show us your REXX code. What are actually doing with ISPF tables - Can they be replaced by any other thing ?

Thanks,
Phantom

ha.rajamohamed · Beginner Joined: 29 Jan 2006 Posts: 71 Topics: 22

But I am not doing anything with the ISPF tables in Rexx program.
I am not sure wether its taking any default tables.

In rexx I am reading an existing JCL and padding the ISPSTART CMD after the JCL steps, for all the 5 JCL and submitting it from Rexx itself one after another.

The new rexx program P12345A1 which got triggered from these JCL's will validate the PARM1 and PARM2 and based on the validation it will submit another Job or does nothing.

Sorry, I am unable to give you the whole code, but I am giving you here the psedo code. Please let me know if you need more in detail

DO LOOP_I = 1 TO 5
CALL BUILD_JCL
CALL ADD_EMAIL_STEP
CALL SUBMIT_JOB
END

BUILD_JCL:
WILL HAVE THE CODE FROM THE JCL

ADD_EMAIL_STEP:
WILL CONTAINS THE CODE FOR
ISPSTART CMD(%P12345A1 PARM1 PARM2)

SUBMIT_JOB:
WILL SUBMIT THE JCL WHICH HAS BEEN READ

Phantom · Posted: Fri Apr 07, 2006 3:12 am Post subject:

Are you using any ISPF services in your Rexx ? If not, you don't need the ISPSTART command.

Thanks,
Phantom

ha.rajamohamed · Beginner Joined: 29 Jan 2006 Posts: 71 Topics: 22

In P12345A1 program, I am not using any ISPF services.
It functions are only read a dataset and validate it with the PARMs...

If I don't need to use "ISPSTART command" than what I need to use to trigger the P12345A1 rexx program.

Phantom · Posted: Fri Apr 07, 2006 7:08 am Post subject:

Rajamohamed,

Just use %P12345A1 followed by args

ha.rajamohamed · Beginner Joined: 29 Jan 2006 Posts: 71 Topics: 22

Phantom lot thanks, TBOPEN issue has not occured.

Just to know, are you having any idea why the below issue has came?.

"ISPT036 Table in use
-/-TBOPEN issued for table ISPSPROF that is in use, ENQUEUE failed. "

Phantom · Posted: Mon Apr 10, 2006 5:58 am Post subject:

Rajamohamed,

ISPSTART is used to invoke a REXX program which involves ISPF calls. So, ISPSTART tries to access all ISPF libraries currently allocated to the system. Now, that you are submitting multiple jobs simultaneously and all jobs are trying to access the same ISPF libraries - you end up in contention - just like a dataset contention.

Since your program does not involve any ISPF calls - you no longer need to allocate / use the ISPF libraries - which solves your problem.

Hope this helps,

Thanks,
Phantom

ha.rajamohamed · Beginner Joined: 29 Jan 2006 Posts: 71 Topics: 22

I got the below for ISPSTART which puzzled me,

" As you are writing an ISPF application, you must have ISPF active before your application can run.

If your application is being invoked by an existing ISPF application, then you don't need an ISPSTART (just a SELECT).

However, if you are running it standalone in batch (under IKJEFT01), then you will need to ISPSTART it. "

So I though any rexx triggered under IKJEFT01 should have ISPSTART command, since i am also triggering the rexx under IKJEFT01.

For your words I understood, even under IKJEFT01
ISPSTART should be used only for REXX program involves in ISPF calls.
and not needed for Rexx programs that does not uses ISPF call as mine.

Please correct me If i am wrong

Thanks

Phantom · Posted: Mon Apr 10, 2006 7:07 am Post subject: