Error while submitting a rexx to submit a

Pragati Soni · New User Joined: 18 Jan 2008 Posts: 47 Location: India

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.

Robert Sample · Posted: Mon May 04, 2009 5:17 pm

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?

expat · Posted: Mon May 04, 2009 5:19 pm

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.

superk · Posted: Mon May 04, 2009 5:25 pm

With the allocation of TMPJCL done properly the code works just fine.

Pragati Soni · New User Joined: 18 Jan 2008 Posts: 47 Location: India

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.

Pragati Soni · New User Joined: 18 Jan 2008 Posts: 47 Location: India

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.

Pragati Soni · New User Joined: 18 Jan 2008 Posts: 47 Location: India

Thanks.

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

Thanks a lot.

dbzTHEdinosauer · Posted: Mon May 04, 2009 6:14 pm

this is incorrect format for a pds(member)
DA('PRD.Y00205.REXX.QHTOOL.SKEL')

expat · Posted: Mon May 04, 2009 6:16 pm

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.

Robert Sample · Posted: Mon May 04, 2009 6:24 pm

The error message you posted indicated

Pragati Soni · New User Joined: 18 Jan 2008 Posts: 47 Location: India

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!

dbzTHEdinosauer · Posted: Mon May 04, 2009 6:35 pm

superk · Posted: Mon May 04, 2009 6:38 pm

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.

Pragati Soni · New User Joined: 18 Jan 2008 Posts: 47 Location: India

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

Pragati Soni · New User Joined: 18 Jan 2008 Posts: 47 Location: India

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

expat · Posted: Mon May 04, 2009 6:49 pm

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.

Robert Sample · Posted: Mon May 04, 2009 7:09 pm

expat · Posted: Mon May 04, 2009 7:36 pm

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

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

Pedro · Posted: Mon May 04, 2009 9:59 pm

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.

Pragati Soni · New User Joined: 18 Jan 2008 Posts: 47 Location: India

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

superk · Posted: Tue May 05, 2009 3:55 pm

Did you try this?