Issue with File skeleton JCLs

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

I need to provide an option on the panel such that if the option is "Y" then the output of the skeleton JCL gets opened for editing. If the option is "N" then JCL gets edited in the background(the '&' variable names get replaced or so) and gets submitted.

The code I am using is
/*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)"
"ISPEXEC EDIT DATASET ('"PRD.Y00205.REXX.QHTOOL.SKEL"("TMPJCL")')"
"EXECIO * DISKR "ZTEMPN" (FINIS STEM SKEL."
/*"EXECIO * DISKW TMPJCL (FINIS STEM SKEL."*/
"EXECIO * DISKW "PRD.Y00205.REXX.QHTOOL.SKEL("TMPJCL")" +
(FINIS STEM SKEL."
"FREE FI(TMPJCL)"
SAY RC

Here, on submittion the output JCL gets opened everytime. My requirement is it should get edited everytime but it should get open only when I give the option 'Y' in EDIT JCL.

Could u please guide me.

Thanks in advance

expat · Posted: Tue May 05, 2009 12:42 pm

Are you sure that you want to edit the source skeleton file, or the tailored output ?

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

I want to edit the tailored output file.
Could u guide me for my query?

expat · Posted: Tue May 05, 2009 2:52 pm

From my reply to your previous thread

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

Thanks...

I have modified the code like below.

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

It is giving error. Though I am digging into it but if something is cleary visible to u please let me know.

Thanks,
Pragati

expat · Posted: Tue May 05, 2009 4:08 pm

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

Oh sorry.

Actually the error is concerning declaring a member.

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

I was getting almost the same error before but then I declared the the member manually. Here I need it to be created.

I really need it.

expat · Posted: Tue May 05, 2009 4:32 pm

So where does the error occur - in the file tailoring or in the attempt to edit the output dataset.

genesis786 · Posted: Tue May 05, 2009 5:07 pm

u have aleady opened the dataset in edit mode and then u are writing it..

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

The error is coming here (I did TRACE I)

7 *-* "ISPEXEC VGET (ZTEMPF)"
>L> "ISPEXEC VGET (ZTEMPF)"
8 *-* "EXECIO * DISKR ZTEMPF (FINIS STEM SKEL."
>L> "EXECIO * DISKR ZTEMPF (FINIS STEM SKEL."
The input or output file ZTEMPF is associated with a partitioned data set. A me
mber name must be specified.
EXECIO error while trying to GET or PUT a record.
+++ RC(20) +++

It seems the issue is in reading the temp file.

expat · Posted: Tue May 05, 2009 6:11 pm

The syntax for EXECIO is
"EXECIO * DISKR DDNAME ( FINIS STEM SKEL."

ZTEMPF is a dataset name not a DDNAME

dbzTHEdinosauer · Posted: Tue May 05, 2009 6:21 pm

Fifty times this has been brought to your attention:

expat · Posted: Tue May 05, 2009 6:51 pm

Please post the FTCLOSE statement from the part that worked.

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

Again giving error: I tried using ALLOC command too. (I have a doubt regarding Ztempf, I doubt if it can be used as a DDname).

4 *-* "ALLOC DA('PRD.Y00205.REXX.QHTOOL.SKEL(SKELJCL)') FI(ZTEMPF) SHR REU
SE"
>L> "ALLOC DA('PRD.Y00205.REXX.QHTOOL.SKEL(SKELJCL)') FI(ZTEMPF) SHR R
EUSE"
5 *-* "ISPEXEC FTOPEN TEMP" /*FILE TAILORING*/
>L> "ISPEXEC FTOPEN TEMP"
6 *-* "ISPEXEC FTINCL RUNJCL02" /*FILE TAILORING*/
>L> "ISPEXEC FTINCL RUNJCL02"
7 *-* "ISPEXEC FTCLOSE" /*FILE TAILORING*/
>L> "ISPEXEC FTCLOSE"
8 *-* "ISPEXEC VGET (ZTEMPF)"
>L> "ISPEXEC VGET (ZTEMPF)"
9 *-* "EXECIO * DISKR ZTEMPF (FINIS STEM SKEL."
>L> "EXECIO * DISKR ZTEMPF (FINIS STEM SKEL."
System abend code 013, reason code 00000024.
Abend in host command EXECIO or address environment routine TSO.
EXECIO error while trying to GET or PUT a record.
+++ RC(20) +++
10 *-* "EXECIO * DISKW ZTEMPF (FINIS STEM SKEL."
>L> "EXECIO * DISKW ZTEMPF (FINIS STEM SKEL."

expat · Posted: Tue May 05, 2009 6:53 pm

dbzTHEdinosauer · Posted: Tue May 05, 2009 6:58 pm

Sorry, I am just a stupid programmer,
why

expat · Posted: Tue May 05, 2009 7:16 pm

My original use of ZTEMPF was to get the dataset name to allow the OP to edit the file tailoring output file. It appears that the OP wants to copy it.

It may come in handy if the file tailoring output is a PDS, which I believe it may be, but because of the confusing manner in which data is posted and additional comments are tagged on, I'm probably as lost as anyone else.

If the FT out is a PS, then my previous suggestion of using ZTEMPN will suffice for reading the file.

If it's a PDS, the the OP will need to allocate the dataset name (ZTEMPF) and the member name to an alternative DD to read the tailored JCL into a stem. (not sure if you can update the DSN for TEMP FT files)

Dick, it's no wonder you're confused ......... Join the club

Or better still ............ pass the cognac

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

Giving errors

4 *-* "ALLOC DA('PRD.Y00205.REXX.QHTOOL.SKEL(SKELJCL)') FI(ZTEMPF) SHR REU
SE"
>L> "ALLOC DA('PRD.Y00205.REXX.QHTOOL.SKEL(SKELJCL)') FI(ZTEMPF) SHR R
EUSE"
5 *-* "ISPEXEC FTOPEN TEMP" /*FILE TAILORING*/
>L> "ISPEXEC FTOPEN TEMP"
6 *-* "ISPEXEC FTINCL RUNJCL02" /*FILE TAILORING*/
>L> "ISPEXEC FTINCL RUNJCL02"
7 *-* "ISPEXEC FTCLOSE" /*FILE TAILORING*/
>L> "ISPEXEC FTCLOSE"
8 *-* "ISPEXEC VGET (ZTEMPF)"
>L> "ISPEXEC VGET (ZTEMPF)"
9 *-* "EXECIO * DISKR "ZTEMPF" (FINIS STEM SKEL."
>L> "EXECIO * DISKR "
>V> "PRD.Y00205.SYSFSG2.SPFTEMP1.CNTL"
>O> "EXECIO * DISKR PRD.Y00205.SYSFSG2.SPFTEMP1.CNTL"
>L> " (FINIS STEM SKEL."
>O> "EXECIO * DISKR PRD.Y00205.SYSFSG2.SPFTEMP1.CNTL (FINIS STEM SKEL.
"
EXECIO "ddname" positional parameter is not valid.
+++ RC(20) +++
10 *-* "EXECIO * DISKW "ZTEMPF" (FINIS STEM SKEL."
>L> "EXECIO * DISKW "
***
>V> "PRD.Y00205.SYSFSG2.SPFTEMP1.CNTL"
>O> "EXECIO * DISKW PRD.Y00205.SYSFSG2.SPFTEMP1.CNTL"
>L> " (FINIS STEM SKEL."
>O> "EXECIO * DISKW PRD.Y00205.SYSFSG2.SPFTEMP1.CNTL (FINIS STEM SKEL.
"
EXECIO "ddname" positional parameter is not valid.
+++ RC(20) +++

Thanks in advance for guidance

expat · Posted: Tue May 05, 2009 7:35 pm

In my post I used

ZTEMPN

What did YOU use.

Also, reading your code, why are you reading from a file only to write the same data back to the same file.

Can you please explain the rational behind this.

expat · Posted: Tue May 05, 2009 7:57 pm

Pragati Soni

Going through your code once again it appears to me that you have not bothered to read the manual that I linked to yesterday. Is it really worth me continuing in this thread ?

Again above, I post something using one reference yet you use a completely different one.

Please read the manual I linked to yesterday, in particular the three points that I suggested that you pay close attention to in yesterdays postings. In fact another point I had made yesterday appears to have been completly igored too.

Until you have done that, and shown proof of doing so I shall withdraw from further participation in this topic. This could easily have been resolved yesterday had you done as requested.

And if you are still unwilling to follow this course, and/or listen to experience, I can only ask that if your chosen vocation within IT is the correct one.

Pedro · Posted: Tue May 05, 2009 9:32 pm

Looking at your code, it looks like you are trying to do three different functions:
1. file tailoring
2. copying
3. editing

Since you are a beginner, I think it is too complex of a program for you. I suggest you write three different rexx programs, each doing one of the functions. AFTER you have gotten each one to work, then merge all functions into one program.

You posted:

Marso · Posted: Wed May 06, 2009 2:52 am

What's going on here?