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
 

 

Issue in creating new members in PDS

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

New User


Joined: 16 Feb 2011
Posts: 38
Location: Gurgoan

PostPosted: Thu Feb 07, 2013 11:38 am    Post subject: Issue in creating new members in PDS
Reply with quote

Hi

I am trying to develop a rexx utilty that do some changes in a program and copy that program to new PDS.

When it is copying it is giving below error .


IRX0555E The input or output file OUT is not allocated. It cannot be opened for
I/O.
IRX0670E EXECIO error while trying to GET or PUT a record.
IKJ56247I FILE OUT NOT FREED, IS NOT ALLOCATED
***

Please suggest the possible resolution.
Back to top
View user's profile Send private message

Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Thu Feb 07, 2013 12:14 pm    Post subject:
Reply with quote

Hi Kushal,

Looking at the error itseems the file OUT is not being freed for next process execution
Back to top
View user's profile Send private message
kushal Bothra

New User


Joined: 16 Feb 2011
Posts: 38
Location: Gurgoan

PostPosted: Thu Feb 07, 2013 12:18 pm    Post subject:
Reply with quote

Pandora-Box wrote:
Hi Kushal,

Looking at the error itseems the file OUT is not being freed for next process execution


I have freed the file out

"EXECIO * DISKW OUT (STEM NWPGM. FINIS)"
"FREE F(OUT)"

But I doubt does it really works with REXX.. icon_rolleyes.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Feb 07, 2013 12:37 pm    Post subject: Reply to: Issue in creating new members in PDS
Reply with quote

You all overlooked the important one
IRX0555E The input or output file OUT is not allocated. It cannot be opened for I/O.

Allocate the required ddname/dataset before issuing the EXECIO

and also read here to understand why using EXECIO * is a BAD practice
http://www.ibmmainframes.com/viewtopic.php?t=60269&highlight=execio

Quote:

But I doubt does it really works with REXX..

explain the reason why it should not
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Thu Feb 07, 2013 2:21 pm    Post subject:
Reply with quote

Quote:
You all overlooked the important one
IRX0555E The input or output file OUT is not allocated. It cannot be opened for I/O.


Agreed icon_redface.gif
Back to top
View user's profile Send private message
kushal Bothra

New User


Joined: 16 Feb 2011
Posts: 38
Location: Gurgoan

PostPosted: Thu Feb 07, 2013 2:27 pm    Post subject: Re: Reply to: Issue in creating new members in PDS
Reply with quote

[quote="enrico-sorichetti"]You all overlooked the important one
IRX0555E The input or output file OUT is not allocated. It cannot be opened for I/O.

All of the programs I am creating into new PDS for most of the members it is not giving any issue in creating them but for some of the members I am getting above error.
Back to top
View user's profile Send private message
kushal Bothra

New User


Joined: 16 Feb 2011
Posts: 38
Location: Gurgoan

PostPosted: Thu Feb 07, 2013 2:48 pm    Post subject:
Reply with quote

To be more descriptive I would like to add

In my code for File OUT I have

Code:
ARG DSN,MNAME                                               
MYLIB = DSN                                                 
MYLIB2 = 'RSTEST.REXX.TEST.NEW' || '(' || MNAME || ')'     
"ALLOCATE DSN('"MYLIB2"') F(OUT) SHR REUSE"                 
"ALLOCATE F(XIN) DSN("MYLIB") SHR REUSE"                   
"EXECIO * DISKR XIN (STEM STEMNAME. FINIS)"                 
"FREE F(XIN)"                                               



In the last part of code I am freeing OUT as


Code:
"EXECIO * DISKW OUT (STEM NWPGM. FINIS)"       
"FREE F(OUT)"   


Please suggest

CODE' d for readability of the code snippets
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Feb 07, 2013 3:18 pm    Post subject: Reply to: Issue in creating new members in PDS
Reply with quote

Quote:
All of the programs I am creating into new PDS for most of the members it is not giving any issue in creating them but for some of the members I am getting above error.


so why instead of complaining here don' t you try to find out why the allocation fails

until You learn to write proper code checking the RC from the commands issued
You will just waste everybody' s time icon_evil.gif
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Fri Feb 08, 2013 12:52 am    Post subject:
Reply with quote

kushal Bothra wrote:
Please suggest

I suggest that you add
Code:
trace i

as the first line of your script, run it, and paste the result enclosed in Code tags in this thread.
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Fri Feb 08, 2013 3:14 am    Post subject: is this your complete Rexx code
Reply with quote

Is this the complet REXX.?? or only what you wanted to show.???
Back to top
View user's profile Send private message
kushal Bothra

New User


Joined: 16 Feb 2011
Posts: 38
Location: Gurgoan

PostPosted: Fri Feb 22, 2013 12:56 pm    Post subject:
Reply with quote

Code:
"ALLOCATE DSN('"MYLIB2"') F(OUT) SHR REUSE"                       
  "ALLOCATE DSN('"                                                 
  "RSTEST.REXX.TEST.NEW(XC2IBE3)"                                 
  "ALLOCATE DSN('RSTEST.REXX.TEST.NEW(XC2IBE3)"                   
  "') F(OUT) SHR REUSE"                                           
  "ALLOCATE DSN('RSTEST.REXX.TEST.NEW(XC2IBE3)') F(OUT) SHR REUSE"


This is the code that i am using to populate members in the PDS. I have a recursive call to this code each time I pass new member name. For first few calls its generating the members in the PDS but after some say 4-5 times of recursive call its giving below error.



Code:
IRX0555E The input or output file OUT is not allocated. It cannot be opened for
I/O.                                                                           
IRX0670E EXECIO error while trying to GET or PUT a record.                     
IKJ56247I FILE OUT NOT FREED, IS NOT ALLOCATED                                 
***             


Please suggest what can be possible resolution.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Fri Feb 22, 2013 1:06 pm    Post subject: Reply to: Issue in creating new members in PDS
Reply with quote

You did not post anything new ...
the snippet did not give any additional info ...

and ...
we moderators are getting fed up of editing posts from inconsiderate people who do not have the good manners to code their snippets icon_evil.gif

why do You refuse to check the return codes ???



Quote:
Please suggest what can be possible resolution.


write proper code instead of the garbage You are posting icon_cool.gif
Back to top
View user's profile Send private message
kushal Bothra

New User


Joined: 16 Feb 2011
Posts: 38
Location: Gurgoan

PostPosted: Fri Feb 22, 2013 1:59 pm    Post subject: Re: Reply to: Issue in creating new members in PDS
Reply with quote

enrico-sorichetti wrote:
You did not post anything new ...
the snippet did not give any additional info ...

and ...
we moderators are getting fed up of editing posts from inconsiderate people who do not have the good manners to code their snippets icon_evil.gif

why do You refuse to check the return codes ???



Quote:
Please suggest what can be possible resolution.


write proper code instead of the garbage You are posting icon_cool.gif


It will be great if you look at the code and reply I have added the code about how I am allocating the my member. Also It will be great if you can imporve on your words....

Quote:
Please suggest what can be possible resolution.


write proper code instead of the garbage You are posting icon_cool.gif[/quote]


ITS NOT GARBAGE

Please dont...... icon_evil.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Fri Feb 22, 2013 2:03 pm    Post subject: Reply to: Issue in creating new members in PDS
Reply with quote

drop the holier than thou attitude and honestly tell what additional info Your post added to the topic.

since this is a professional forum and WE SPEND OUR time helping YOU
You are supposed to follow our advice, modify Your code the way we tell
and post the info we ask You

if You do not do what we ask You to, You must bear our rudeness and the unpleasant comments

I confirm the code as posted is pure horse manure, whether You like it or not


if You do not like my comments You are free to ask for help somewhere apse ...

again why You refuse to check the return codes ???

it would be better to improve Your code ... my words could not get better

and if You look at all the code snippets I posted You will see that I ALWAYS check the return codes
and I do not do it only in the POCs ( suggesting that the true code should do it )
Back to top
View user's profile Send private message
kushal Bothra

New User


Joined: 16 Feb 2011
Posts: 38
Location: Gurgoan

PostPosted: Fri Feb 22, 2013 2:09 pm    Post subject:
Reply with quote

The return codes are self explenatory if you can see

IRX0555E -- The input or output file OUT is not allocated. It cannot be opened for I/O.
IRX0670E -- EXECIO error while trying to GET or PUT a record.
IKJ56247I -- FILE OUT NOT FREED, IS NOT ALLOCATED

If you cant help its OK please mind your lang...
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Fri Feb 22, 2013 2:13 pm    Post subject: Reply to: Issue in creating new members in PDS
Reply with quote

Quote:
The return codes are self explenatory if you can see

IRX0555E -- The input or output file OUT is not allocated. It cannot be opened for I/O.
IRX0670E -- EXECIO error while trying to GET or PUT a record.
IKJ56247I -- FILE OUT NOT FREED, IS NOT ALLOCATED

pretty example of stubbornness and incompetence

Quote:
If you cant help its OK please mind your lang...

it is You that does not want to be helped ....

I already told what to do

if You do not know or understand what a return code is You do not belong to the it profession

or at least You should migrate to the beginners forum

or even better start reading the manuals to find out Yourself the meaning of RETURN CODE

here is a hint

Address TSO "ALLOC ......."
say "the return code from the previous command was. "RC

the RC value will tell the reason of the failure


You were already given TWO suggestions

1) short range .... use TRACE "I" to see what is going on
2) about good programming habits check the return codes

what else do You want from US since You refused to follow them ???

topic is going to be locked and vaporized very shortly
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Feb 22, 2013 3:04 pm    Post subject:
Reply with quote

kushal Bothra wrote:
The return codes are self explenatory if you can see

IRX0555E -- The input or output file OUT is not allocated. It cannot be opened for I/O.
IRX0670E -- EXECIO error while trying to GET or PUT a record.
IKJ56247I -- FILE OUT NOT FREED, IS NOT ALLOCATED

If you cant help its OK please mind your lang...

The error messages are indeed self explanatory, so all you need to do is to go and find out WHY these messages have been issued.

I can only reiterate the importance of
(a) TRACE I
(b) Checking return codes of dataset FREE ALLOC DEL operations if you do not use TRACE I
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Fri Feb 22, 2013 4:00 pm    Post subject:
Reply with quote

kushal Bothra wrote:
The return codes are self explenatory if you can see

IRX0555E -- The input or output file OUT is not allocated. It cannot be opened for I/O.
IRX0670E -- EXECIO error while trying to GET or PUT a record.
IKJ56247I -- FILE OUT NOT FREED, IS NOT ALLOCATED

If you cant help its OK please mind your lang...

Those aren't return codes, kusomushi, those are messages. Whilst I (sometimes) try not to be overly judgmental, it is evident that you have little to no idea what you're doing.
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 DFHRESPONSE returns issue divated CICS 3 Wed Nov 02, 2016 6:32 pm
No new posts Can sending 5 MB data between cobol p... Kevin Vaz CICS 12 Tue Oct 18, 2016 4:50 pm
No new posts Creating an 'Enter' event with IMS MF... dileep chirasani Java & MQSeries 1 Sat Aug 06, 2016 2:23 am
No new posts Creating a dynamic sort card in JCL u... ChitraChhabra DFSORT/ICETOOL 4 Wed Aug 03, 2016 6:15 pm
No new posts creating a physical sequential file i... Shaheen Shaik JCL & VSAM 8 Wed Jun 29, 2016 3:46 pm


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