Generating and Viewing JCL

vinaysetlur · Posted: Thu Jan 23, 2014 4:45 am

Hi , I thought of sharing the following problem I ran into.
Looking up the net and various forum like this.
We know of the standard snippet to submit / run JCL

CODE
************************
address ispexec "ftopen temp"
address ispexec "ftincl IEFBR"
address ispexec "ftclose"
address ispexec "vget ztempf"
address tso
"SUB ' "ZTEMPF" ' "

But I couldn't find a good example that prompts the generated JCL to the user and leaves it to him to submit
That's when I understood that ISPFILE allocation necessary to store the output from file tailoring services. Not only that , the FTCLOSE needs a change as follows: -
FTCLOSE NAME(mbrname) option will write the generated JCL into that member mbrname in the ISPFILE library allocated.
Snippet is as follows: -

CODE
************************
address ispexec "ftopen"
address ispexec "ftincl IEFBR"
address ispexec "ftclose name(MBR)"
address ispexec
"EDIT DATASET('MYUSERID.ISPFILE.LIB(MBRNAME)') "

enrico-sorichetti · Posted: Thu Jan 23, 2014 4:56 am

see here

www.ibmmainframes.com/viewtopic.php?t=55549&highlight=ftincl

vinaysetlur · Posted: Thu Jan 23, 2014 5:06 am

Hi Enrico,
Honored to see your response. I have been following all your posts carefully and did a thorough check at my end before posting.
I did read through that post of yours initially.
I tried with the
address ispexec
"VIEW DATASET('"ZTEMPF" ' "
But it gave me an allocation error as follows: -
ERROR
******************************************************************************
*,ISRD028 ,*
*,, , ,*
*,Data set not cataloged , ,*
*,'SYS14022.T165044.RA000.E8751AJ.R0352844' was not found in catalog. ,*
*, ,*
*, ,*
*, ,*
*, ,*
*, ,*
*, ,*
*,Current dialog statement: ,*
*,VIEW dataset('SYS14022.T165044.RA000.E8751AJ.R0352844') ,*
*, ,*
*,Enter,HELP,command for further information regarding this error., ,,*
*,Press,ENTER,key to terminate the dialog., ,,*
*,, , ,*
*, , , ,, ,,*

That was when I was forced to use ISPFILE to store the output.
Since I am new to REXX , could you guide me how this error could have been avoided ? Does the TEMP need to be pre-allocated ?
Any related links on this will also help.

Pedro · Posted: Thu Jan 23, 2014 6:07 am

When you specify a data set name, the system looks for where it is by looking in the catalog. Unfortunately, temporary data sets are not cataloged. It would be nice if it scanned your existing allocations, but it does not (actually, I am not sure that it -would- be nice)

Along with ZTEMPF, there is a companion variable ZTEMPN, which has the DDname of the temporary file.

Try something like this:

David Robinson · Active User Joined: 21 Dec 2011 Posts: 199 Location: UK

Can't you just do a vget to find out the temporary dataset name? I have always found this to work -

Pedro · Posted: Thu Jan 23, 2014 10:09 pm

enrico-sorichetti · Posted: Thu Jan 23, 2014 10:18 pm

the approach
VGET ZTEMPF
do anything You want after that, has worked for ages

if the TS can submit the ZTEMPF thing I do not really see any reason
for not being able to BROWSE/VIEW/EDIT it

also the message as posted looks quite strange

I would investigate somewhere else!

Pedro · Posted: Fri Jan 24, 2014 9:30 pm

Show us the code that results in a 'data set not found' message.

vinaysetlur · Posted: Sat Jan 25, 2014 10:10 am

Here's the code: -
(I don't have a Mainframe display editor from where I can copy-paste).
I had to $INDFILE to a text file and attached pasted from there.

Pedro · Posted: Mon Jan 27, 2014 10:52 pm

enrico-sorichetti · Posted: Mon Jan 27, 2014 11:31 pm

I just tested for the umpteenth time
and running the snippet I posted with trace "R"
shows for the view command
"VIEW DATASET('ENRICO.SPFTEMP1.CNTL')"

and it works

FIX YOUR LOGON PROCEDURE

Pedro · Posted: Tue Jan 28, 2014 12:03 am

I think the difference is the dynamically allocated file:

enrico-sorichetti · Posted: Tue Jan 28, 2014 12:14 am

I do not have any ISPCTLxx files in my logon proc
and since ISPF allocates them dynamically they are allocated with a proper name

the only instance where I have the ISPCTLxx datasets allocated thru JCL
is when I run ISPF batch
to avoid conflicts with the ISPCTLxx datasets allocated by the TSO session

vinaysetlur · Posted: Tue Jan 28, 2014 2:35 am

Enrico ,

So you are having no issues while 'viewing' the temp dataset ?

The REXX I'm executing is done fore-ground not via batch.
I guess it may have something to do with my Logon procedure, as you and Pedro highlighted.
What do I code there ? This what I have currently have:-
Do I code FREE F(ZTEMPF) ?

CONTROL NOFLUSH
ALLOC FI(MYCLIB) SHR REUSE DA('E8751AJ.A.CLIST' +
'K9299TD1.DB2DBU.CLIST')
CONCAT SYSPROC MYCLIB
ALLOC FI(MYREXX) SHR REUSE DA('E8751AJ.A.CLIST' +
'K9299TD1.DB2DBU.CLIST')
CONCAT SYSEXEC MYREXX
ALLOC FI(MYPLIB) SHR REUSE DA('E8741AA.ISPPLIB')

CONCAT ISPPLIB MYPLIB
ALLOC FI(MYMLIB) SHR REUSE DA('E8741AA.ISPMLIB' +
'SYSCMN.DEV.MESSAGES.MDBA')
CONCAT ISPMLIB MYMLIB
%BOOKMAN
%PROJCL
%XEDCMDS
%DB2WHO
%FAIMS

Mickeydusaor · Posted: Tue Jan 28, 2014 3:30 am

I also had no issue executing you rexx, as stated by Enrico, I also do not
have any ISPCTLxx files in my logon proc.

Pedro · Posted: Tue Jan 28, 2014 5:38 am