IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Error while submitting a rexx to submit a


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Pragati Soni

New User


Joined: 18 Jan 2008
Posts: 47
Location: India

PostPosted: Mon May 04, 2009 5:13 pm
Reply with quote

Hello All,

I submitted a REXX code which in turn submit a skeleton JCL.

I got the error:

The input or output file TMPJCL is associated with a partitioned data set. A me
mber name must be specified.
EXECIO error while trying to GET or PUT a record.
***

Below is the REXX code.

/*REXX*/
"ISPEXEC LIBDEF ISPSLIB DATASET ID('PRD.Y00205.REXX.QHTOOL.PRACTICE')"
"ALLOC FI(TMPJCL) DA('PRD.Y00205.REXX.QHTOOL.SKEL') SHR"
"ISPEXEC FTOPEN TEMP" /*FILE TAILORING*/
"ISPEXEC FTINCL RUNJCL02" /*FILE TAILORING*/
"ISPEXEC FTCLOSE" /*FILE TAILORING*/
"ISPEXEC VGET (ZTEMPN)"
"EXECIO * DISKR "ZTEMPN" (FINIS STEM SKEL."
"EXECIO * DISKW TMPJCL (FINIS STEM SKEL."
"ISPEXEC EDIT DATASET ('"PRD.Y00205.REXX.QHTOOL.SKEL"("TMPJCL")')"
"FREE FI(TMPJCL)"
SAY RC

I also modified the REXX and re-submitted the code.

/*REXX*/
"ISPEXEC LIBDEF ISPSLIB DATASET ID('PRD.Y00205.REXX.QHTOOL.PRACTICE')"
"ALLOC FI(TMPJCL) DA('PRD.Y00205.REXX.QHTOOL.SKEL') SHR"
"ISPEXEC FTOPEN TEMP" /*FILE TAILORING*/
"ISPEXEC FTINCL RUNJCL02" /*FILE TAILORING*/
"ISPEXEC FTCLOSE" /*FILE TAILORING*/
"ISPEXEC VGET (ZTEMPN)"
"EXECIO * DISKR "ZTEMPN" (FINIS STEM SKEL."
"EXECIO * DISKW TMPJCL (FINIS STEM SKEL."
"ISPEXEC EDIT DATASET ('PRD.Y00205.REXX.QHTOOL.SKEL')"
"FREE FI(TMPJCL)"

But same eror is coming.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Mon May 04, 2009 5:17 pm
Reply with quote

I guess the first questions have to be, do you understand what the error message is telling you? Do you know what a partitioned data set is? Do you know how to allocate a member of a partitioned data set in TSO so it can be read?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Mon May 04, 2009 5:19 pm
Reply with quote

Here let ME find the manual for you

click HERE and see how to use ISPF file tailoring services.

Please refer to the manuals before posting.
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Mon May 04, 2009 5:25 pm
Reply with quote

With the allocation of TMPJCL done properly the code works just fine.
Back to top
View user's profile Send private message
Pragati Soni

New User


Joined: 18 Jan 2008
Posts: 47
Location: India

PostPosted: Mon May 04, 2009 6:05 pm
Reply with quote

Hello,

I know about PDS. and took help of the manual, forum and google to know how to allocate a member of a PDS in TSO so that it can be read or edited.

But as it is giving error which is not as per the expectation I have posted it in the forum so that the experts can guide me if I am doing anything wrong.

Bring a novice in this, I can not catch the errors so easily.

Looking for the cooperation.

Robert Sample wrote:
I guess the first questions have to be, do you understand what the error message is telling you? Do you know what a partitioned data set is? Do you know how to allocate a member of a partitioned data set in TSO so it can be read?
Back to top
View user's profile Send private message
Pragati Soni

New User


Joined: 18 Jan 2008
Posts: 47
Location: India

PostPosted: Mon May 04, 2009 6:08 pm
Reply with quote

I went thru the manual but could not get much except the below:

1.5.2 File Tailoring Services

The file tailoring services, listed in the order in which they are normally invoked, are:


FTOPEN
Prepares the file tailoring process and specifies whether the temporary file is to be used for output.

FTINCL
Specifies the skeleton to be used and starts the tailoring process.

FTCLOSE
Ends the file tailoring process.

FTERASE
Erases an output file created by file tailoring.

I have taken care of the above but then too as it was giving errors, I posted in the forum.

I duly read the available manual and doing so again.

Thanks a lot.


expat wrote:
Here let ME find the manual for you

click HERE and see how to use ISPF file tailoring services.

Please refer to the manuals before posting.
Back to top
View user's profile Send private message
Pragati Soni

New User


Joined: 18 Jan 2008
Posts: 47
Location: India

PostPosted: Mon May 04, 2009 6:09 pm
Reply with quote

Thanks.

Could you please let me know where the problem resides in allocating the TMPJCL?

Thanks a lot.


superk wrote:
With the allocation of TMPJCL done properly the code works just fine.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon May 04, 2009 6:14 pm
Reply with quote

this is incorrect format for a pds(member)
DA('PRD.Y00205.REXX.QHTOOL.SKEL')
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Mon May 04, 2009 6:16 pm
Reply with quote

You may have gone through a manual, but certainly not the one that I have indicated and linked to.

The one that I have linked to explains what you need to do to use a PDS as the file tailoring output library.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Mon May 04, 2009 6:24 pm
Reply with quote

The error message you posted indicated
Quote:
A member name must be specified.
If you understand a PDS, put a member name on the statement and your issue resolves itself.
Back to top
View user's profile Send private message
Pragati Soni

New User


Joined: 18 Jan 2008
Posts: 47
Location: India

PostPosted: Mon May 04, 2009 6:34 pm
Reply with quote

I tried with the member name too.

Infact that is the issue. May Be I am not getting where to give that.

/*REXX*/
"ISPEXEC LIBDEF ISPSLIB DATASET ID('PRD.Y00205.REXX.QHTOOL.PRACTICE')"
"ALLOC FI(TMPJCL) DA('PRD.Y00205.REXX.QHTOOL.SKEL') SHR"
"ISPEXEC FTOPEN TEMP" /*FILE TAILORING*/
"ISPEXEC FTINCL RUNJCL02" /*FILE TAILORING*/
"ISPEXEC FTCLOSE" /*FILE TAILORING*/
"ISPEXEC VGET (ZTEMPN)"
"EXECIO * DISKR "ZTEMPN" (FINIS STEM SKEL."
"EXECIO * DISKW TMPJCL (FINIS STEM SKEL."
"ISPEXEC EDIT DATASET ('"PRD.Y00205.REXX.QHTOOL.SKEL"("TMPJCL")')"
"FREE FI(TMPJCL)"

If you are getting plz let me know.

Thanks a lot!


Robert Sample wrote:
The error message you posted indicated
Quote:
A member name must be specified.
If you understand a PDS, put a member name on the statement and your issue resolves itself.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon May 04, 2009 6:35 pm
Reply with quote

Quote:
I tried with the member name too.


show us the allocate statement.

posted edited, since OP changed his:

ok, you have not changed the allocate statement.
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Mon May 04, 2009 6:38 pm
Reply with quote

Is 'PRD.Y00205.REXX.QHTOOL.SKEL' a PDS or a sequential dataset? If it's a PDS, you need a member name on your ALLOCATE command. If not, then your EDIT command needs to be fixed.
Back to top
View user's profile Send private message
Pragati Soni

New User


Joined: 18 Jan 2008
Posts: 47
Location: India

PostPosted: Mon May 04, 2009 6:40 pm
Reply with quote

The below is the allocate command.

"ALLOC FI(TMPJCL) DA('PRD.Y00205.REXX.QHTOOL.SKEL') SHR"


(I gave it in the first post only)

Thanks


dbzTHEdinosauer wrote:
Quote:
I tried with the member name too.


show us the allocate statement.

posted edited, since OP changed his:

ok, you have not changed the allocate statement.
Back to top
View user's profile Send private message
Pragati Soni

New User


Joined: 18 Jan 2008
Posts: 47
Location: India

PostPosted: Mon May 04, 2009 6:42 pm
Reply with quote

I gave the member name in the allocate command itself.

"ALLOC FI(TMPJCL) DA('PRD.Y00205.REXX.QHTOOL.SKEL') SHR"

I tried the below one too
"ALLOC DA('PRD.Y00205.REXX.QHTOOL.SKEL') FI(TMPJCL) SHR"

Thanks


superk wrote:
Is 'PRD.Y00205.REXX.QHTOOL.SKEL' a PDS or a sequential dataset? If it's a PDS, you need a member name on your ALLOCATE command. If not, then your EDIT command needs to be fixed.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Mon May 04, 2009 6:49 pm
Reply with quote

If you actually do get around to reading the manual I have linked to, you will see that you can not allocate any old FI to be the output of ISPF file tailoring services.

That is the whole reason of me giving you that specific manual to look at.

It explains how to do it correctly.

Please pay attention to the TEMP subparameter of the FTOPEN statement.

Please pay attention to the file name used for a pre allocated file tailoring output dataset.

Please pay attention to the differences between using PDS and PS datasets - FTCLOSE.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Mon May 04, 2009 7:09 pm
Reply with quote

Quote:
I gave the member name in the allocate command itself.

"ALLOC FI(TMPJCL) DA('PRD.Y00205.REXX.QHTOOL.SKEL') SHR"

I tried the below one too
"ALLOC DA('PRD.Y00205.REXX.QHTOOL.SKEL') FI(TMPJCL) SHR"
Neither of these allocate statements includes a member name. Try again.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Mon May 04, 2009 7:36 pm
Reply with quote

Having reread the thread and seen a little deeper .......................

If you want to edit the output file - why not use
Code:

"ISPEXEC VGET (ZTEMPF)"
"ISPEXEC EDIT DATASET('"ZTEMPF"')"

rather than copying it to another file.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Mon May 04, 2009 9:59 pm
Reply with quote

There is possibility that they want to edit and SAVE it for later use, so maybe copying it to a PDS is a valid use.
Back to top
View user's profile Send private message
Pragati Soni

New User


Joined: 18 Jan 2008
Posts: 47
Location: India

PostPosted: Tue May 05, 2009 10:45 am
Reply with quote

Could anyone of you please guide me if there is a problem with the allocate command?

"ALLOC FI(TMPJCL) DA('PRD.Y00205.REXX.QHTOOL.SKEL') SHR"

I tried the below one too
"ALLOC DA('PRD.Y00205.REXX.QHTOOL.SKEL') FI(TMPJCL) SHR"
Thanks
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Tue May 05, 2009 3:55 pm
Reply with quote

Did you try this?

Code:

/*REXX*/
"ISPEXEC LIBDEF ISPSLIB DATASET ID('PRD.Y00205.REXX.QHTOOL.PRACTICE')"
"ALLOC FI(TMPJCL) DA('PRD.Y00205.REXX.QHTOOL.SKEL(TMPJCL)') SHR REU"
"ISPEXEC FTOPEN TEMP" /*FILE TAILORING*/
"ISPEXEC FTINCL RUNJCL02" /*FILE TAILORING*/
"ISPEXEC FTCLOSE" /*FILE TAILORING*/
"ISPEXEC VGET (ZTEMPN)"
"EXECIO * DISKR "ZTEMPN" (FINIS STEM SKEL."
"EXECIO * DISKW TMPJCL (FINIS STEM SKEL."
"ISPEXEC EDIT DATASET ('PRD.Y00205.REXX.QHTOOL.SKEL(TMPJCL)')"
"FREE FI(TMPJCL)"
SAY RC
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 2
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
Search our Forums:

Back to Top