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
 
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: 7314

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 Member


Joined: 30 Nov 2013
Posts: 587
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 Member


Joined: 30 Nov 2013
Posts: 587
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 Looping REXX - unable to interrupt RAVISANKAR07 CLIST & REXX 3 Wed Dec 06, 2017 1:08 pm
No new posts The same REXX program doesnt work for... jackzhang75 CLIST & REXX 5 Wed Dec 06, 2017 2:51 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm
This topic is locked: you cannot edit posts or make replies. Rexx to Grab ISMF Information. upendrasri All Other Mainframe Topics 16 Sun Nov 26, 2017 12:35 am
No new posts Rexx to send an email without SMTP Se... upendrasri All Other Mainframe Topics 12 Sun Nov 19, 2017 7:59 pm

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