View previous topic :: View next topic
|
Author |
Message |
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. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8796 Location: Welsh Wales
|
|
|
|
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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
With the allocation of TMPJCL done properly the code works just fine. |
|
Back to top |
|
|
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.
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 |
|
|
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.
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 |
|
|
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.
superk wrote: |
With the allocation of TMPJCL done properly the code works just fine. |
|
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
this is incorrect format for a pds(member)
DA('PRD.Y00205.REXX.QHTOOL.SKEL') |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8796 Location: Welsh Wales
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
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!
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 |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
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
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 |
|
|
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
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8796 Location: Welsh Wales
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8796 Location: Welsh Wales
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2593 Location: Silicon Valley
|
|
|
|
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 |
|
|
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 |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
|