How to copy the temporary dataset created by SKEL JCL?

krishanubardhan · New User Joined: 27 Oct 2006 Posts: 3

Hi,
After running a REXX program, the SKEL JCL so created by the REXX is displayed as a temporary dataset (name of which changes for each run).
I require to copy this temporary dataset to another user defined dataset..Please give me suggestions how it can be done..
For reference, I am giving the piece of code where the Skel JCL is activated:

ADDRESS ISPEXEC
"LIBDEF ISPSLIB DATASET ID('.......................')"
/* OPEN TAILORING AND TAILOR AND CLOSE */
SKELNAM = <name of SKEL>
"FTOPEN TEMP" ;"FTINCL &SKELNAM"; "FTCLOSE"
/* GET DATAID OF FILE */
"VGET (ZTEMPF,ZTEMPN) SHARED"
"LMINIT DATAID(JCLID) DDNAME(&ZTEMPN)"

UmeySan · Posted: Tue Nov 07, 2006 9:24 pm

Hi !

Just alloc a PDS and save it as a member there.

TEMPDSN = "IER1337.USER.JCL.S000"
TEMPJOB = "B92SPOOL"

ADDRESS TSO "ALLOC F(ISPFILE) DSN('"TEMPDSN"') SHR REUS"
ADDRESS ISPEXEC "FTOPEN "

ADDRESS ISPEXEC "FTINCL UMB92ALL"
ADDRESS ISPEXEC "FTINCL UMB92NAM"

ADDRESS ISPEXEC "FTCLOSE NAME("TEMPJOB")"
ADDRESS ISPEXEC "EDIT DATASET ('"TEMPDSN"("TEMPJOB")'"

ADDRESS TSO "FREE F(ISPFILE) "

Hope it helps, Regards, UmeySan

krishanubardhan · New User Joined: 27 Oct 2006 Posts: 3

Thanks,
But can you please make it clear so that I can relate it to my code?
There are certain things in your code which I am unable to comprehend.
Please consider that, I need to tailor my SKEL JCL into a PS say 'SKEL.JCL.DATASET'.

UmeySan · Posted: Wed Nov 08, 2006 3:20 pm

Hi !

So here in a few words. I have a PDS named IER1337.USER.JCL.S000.
it already exists. Tis is the PDS where i store the complete JCL after File-Tayloring as a new member named B92SPOOL.

Then i do the normal File-Tayloring. The Skel-jcl is in SkeletonLibrary.

ADDRESS ISPEXEC "FTOPEN "
ADDRESS ISPEXEC "FTINCL UMB92ALL"
ADDRESS ISPEXEC "FTINCL UMB92NAM"

Now I save the complete JCL as a member:
ADDRESS ISPEXEC "FTCLOSE NAME("TEMPJOB")"

Now I open that member in EditMode for displaying that the user could
change some things and submit it or whatever.

Hope it's clear, Regards, UmeySan

krishanubardhan · New User Joined: 27 Oct 2006 Posts: 3

Hi,
Thanks UmeySan. It's clear now.
That worked.

Regards,
Krishanu

Lynne · New User Joined: 15 Jan 2015 Posts: 85 Location: USA

old, but just what I needed! Thanks To UmeySan for the code and explanation!

prino · Posted: Sun Jul 24, 2022 4:24 pm