View previous topic :: View next topic
|
Author |
Message |
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
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:
Quote: |
EXECIO "ddname" positional parameter is not valid.
+++ RC(20) +++ |
What part of the message do you not understand?
I suggest you add this early in your program:
Code: |
Address TSO "PROFILE MSGID" |
The 'parameter is not valid' message will include a message id, which you should be able to lookup. |
|
Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
What's going on here?
Pragati Soni wrote: |
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 |
- There is no question in your post. Where exactly is your problem ?
- In your code snippet there is nothing about the panel. Is that your problem ?
- You wrote: "My requirement is it should get edited everytime but it should get open only when I give the option 'Y' in EDIT JCL".
Do you fully understand yourself ?
- If I understand the point of the EXECIOs in your program, you want to copy the temporary file to a permanent location.
So, why do you use a temporary file in the first place ?
Why not make the File Tailoring straight into a library member or a sequential file ?
Then it is easy to EDIT or SUBMIT (yes this is your requirement, I think).
- But then again, maybe you do not need to keep the submitted JCL. Who knows ?
- The answer to your problem is: use an IF statement (secret weapon)
If EDITOPT = 'Y' then "EDIT ..." Else "SUBMIT ..."
(Assuming EDITOPT is the variable that contains the answer to the EDIT JCL question).
- expat advised you to use ZTEMPF instead of some file in the EDIT statement.
That is because that file is not part of the process. It may certainly be empty.
And you changed both the EDIT line and the EXECIO lines !
Just looking at the piece of code makes me quite depressed suddenly.
There is a mistake almost on each line
I think I'll logoff for today. |
|
Back to top |
|
|
|