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

How to copy the temporary dataset created by SKEL JCL?


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
krishanubardhan

New User


Joined: 27 Oct 2006
Posts: 3

PostPosted: Tue Nov 07, 2006 8:08 pm
Reply with quote

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)"
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Tue Nov 07, 2006 9:24 pm
Reply with quote

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
Back to top
View user's profile Send private message
krishanubardhan

New User


Joined: 27 Oct 2006
Posts: 3

PostPosted: Wed Nov 08, 2006 10:04 am
Reply with quote

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'.
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Wed Nov 08, 2006 3:20 pm
Reply with quote

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
Back to top
View user's profile Send private message
krishanubardhan

New User


Joined: 27 Oct 2006
Posts: 3

PostPosted: Wed Nov 08, 2006 3:52 pm
Reply with quote

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

Regards,
Krishanu
Back to top
View user's profile Send private message
Lynne

New User


Joined: 15 Jan 2015
Posts: 72
Location: USA

PostPosted: Sun Jul 24, 2022 2:15 am
Reply with quote

old, but just what I needed! Thanks To UmeySan for the code and explanation!
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1285
Location: Vilnius, Lithuania

PostPosted: Sun Jul 24, 2022 4:24 pm
Reply with quote

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

as a command
Code:
copy .zf .zl

Press Enter and then "fill in the blanks". Or
Code:
cut .zf .zl

and
Code:
paste
in another member.
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 -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Copy few lines from SYSOUT of 10 mill... All Other Mainframe Topics 5
No new posts Repeat a DD line- comment and insert ... CA Products 3
No new posts Dataset size increase on adding 1 byt... DFSORT/ICETOOL 8
No new posts How to copy a PDS to a PS and then co... JCL & VSAM 8
No new posts Replace a string in a VB file and cop... DFSORT/ICETOOL 2
Search our Forums:

Back to Top