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
 

 

ALLOCATE REXX PDS to SYSPROC failure

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
mambopras

New User


Joined: 11 Nov 2008
Posts: 52
Location: Hyderabad

PostPosted: Sat Apr 04, 2015 10:14 am    Post subject: ALLOCATE REXX PDS to SYSPROC failure
Reply with quote

Hi,

I have started to learn REXX language. As a starter, I have written an EXEC to allocate my REXX PDS to SYSPROC for enabling the implicit execution of REXX EXEC. But, I am receiving error that I am not able to understand.

Here is the EXEC: The 1st dataset name is my REXX PDS that needs to be allocated to SYSPROC and the rest of them are already allocated to SYSPROC and i am tying to change the order of the datasets by including mine at the top.

"ALLOC FILE(SYSPROC) DATASET('XXXX.REXX.LIBRAR',",
"'MVSPP.XXX.CLIST',",
"'SYS1.XX.XXXXXX.VB',",
"'SYS1.XX.XXXXXX.VB',",
"'SYSX.XXX.CLIST',",
"'SYSX.EXEC.VB', SHR REUSE"
IF RC = 0 THEN
SAY 'ALLOCATION SUCCESSFUL.'
ELSE
SAY 'ALLOCATION FAILED.'.

The EXEC itself has been stored in a different PDS and I have executed the TSO COMMAND from the ISPF MAIN MENU

TSO EXEC 'TEST.XXX.REXX.LIBRAR(ALC)' EXEC

Error I am getting :
IKJ56246I DATA SET XXXX.REXX.LIBRAR NOT ALLOCATED, FILE IN USE
IKJ56109I DATA SETS NOT CONCATENATED+
IKJ56109I FAILURE TO ALLOCATE DATA SET XXXX.REXX.LIBRAR
ALLOCATION TO SYSPROC FAILED.
***

Please help me with resolving this issue.

Regards,
Mambopras
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Sat Apr 04, 2015 2:25 pm    Post subject: Reply to: ALLOCATE REXX PDS to SYSPROC failure
Reply with quote

Someone, probably you, has the dataset under exclusive control. Make none of your split screens are referencing that dataset.
Back to top
View user's profile Send private message
steve-myers

Active User


Joined: 30 Nov 2013
Posts: 460
Location: The Universe

PostPosted: Sat Apr 04, 2015 3:28 pm    Post subject:
Reply with quote

You also need to insert a ) character after the list of data set names and before SHR REUS
Back to top
View user's profile Send private message
mambopras

New User


Joined: 11 Nov 2008
Posts: 52
Location: Hyderabad

PostPosted: Sat Apr 04, 2015 9:45 pm    Post subject: ALLOCATE REXX PDS to SYSPROC failure
Reply with quote

@Steve - You are absolutely right...silly of me, couldn't notice a paranthesis missing. Thanks a lot!!
Back to top
View user's profile Send private message
steve-myers

Active User


Joined: 30 Nov 2013
Posts: 460
Location: The Universe

PostPosted: Sun Apr 05, 2015 6:29 pm    Post subject:
Reply with quote

I've made the same mistake all too often myself. I find it's safer to write something like

ALLOC F(SYSPROC) SHR REUS DA(DATASET DATASET ... DATASET

TSO will tolerate a missing ) at the end of a command.

Actually, I think Mr. Woodger's analysis of the problem was incorrect.

IKJ56246I DATA SET XXXX.REXX.LIBRAR NOT ALLOCATED, FILE IN USE

What happened here is TSO thought SHR and REUS were part of the data set list and started the allocation, only to find there was already a SYSPROC DD statement allocated to the session. If TSO finds the REUSE keyword specified it frees the allocation before it starts the new allocation. Since it thought REUS was a data set name, it did not free the existing SYSPROC allocation.
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm
No new posts Replace repeated JCL with looping REXX prino CLIST & REXX 3 Thu Oct 13, 2016 5:30 am
This topic is locked: you cannot edit posts or make replies. Need to code a Rexx PGM sundaram.naveen CLIST & REXX 18 Thu Oct 06, 2016 6:45 pm
No new posts Allocate dataset withour BLKSIZE Susanta CLIST & REXX 2 Thu Sep 22, 2016 11:51 am


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