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

Issue with File skeleton JCLs


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

Global Moderator


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

PostPosted: Tue May 05, 2009 9:32 pm
Reply with quote

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
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Wed May 06, 2009 2:52 am
Reply with quote

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


  1. There is no question in your post. Where exactly is your problem ?
  2. In your code snippet there is nothing about the panel. Is that your problem ?
  3. 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 ?
  4. 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).
  5. But then again, maybe you do not need to keep the submitted JCL. Who knows ?
  6. 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).
  7. 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 icon_cry.gif
I think I'll logoff for today.
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 How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Access to non cataloged VSAM file JCL & VSAM 18
No new posts Need help for File Aid JCL to extract... Compuware & Other Tools 23
Search our Forums:

Back to Top