Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to copy the spool jobs in to our local PDS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Husna

New User


Joined: 02 Jun 2006
Posts: 49

PostPosted: Wed Jun 21, 2006 5:08 pm    Post subject: How to copy the spool jobs in to our local PDS
Reply with quote

Hi,

Could you please let me know... How can I copy the JCL's ( Which are in Spool) in to my local PDS in a single shot.
Actually, I have more than 120 JCL's in my spool and it is very difficult copy one by one using XDC command. Is there any shortcut is available to do the same?

Awaiting your reply.
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Jun 28, 2006 12:44 pm    Post subject:
Reply with quote

Easy - Use REXX to issue SDSF commands. You can find lots of examples in this site.

O.
Back to top
View user's profile Send private message
sx0807

New User


Joined: 07 Apr 2006
Posts: 2

PostPosted: Wed Oct 18, 2006 3:36 pm    Post subject: Re: How to copy the spool jobs in to our local PDS
Reply with quote

You could create a Macro to do all this for you

save the macro name as savelog, the record format must be VBScripte File, and the ?record User Wait Time? should be ?none?

Put the cursor in the initial position, and record the option that save the joblog, and you could see the Macro as below...
[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_

sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
???
???
autECLSession.autECLPS.SendKeys "[down]"

autECLSession.autECLOIA.WaitForAppAvailable

autECLMacro "[edit-copy]"

end sub

Then change the Macro---add a few lines
[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_
Dim counter
For count = 1 to 100

sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
???
???
autECLSession.autECLPS.SendKeys "[down]"

autECLSession.autECLOIA.WaitForAppAvailable

autECLMacro "[edit-copy]"

next
end sub


Maybe not the best solution, but it works..... this would do all the save to u...

Let me know if there is any problem
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 743
Location: Germany

PostPosted: Wed Oct 25, 2006 10:48 pm    Post subject:
Reply with quote

Hi !

If you running BETA-Products, BETA-92,
you could use the BetaUtility BSS01RFF to copy Output into a DSN.

Have a look at the manual for all the Parameters.

Regard's UmeySan

STEP010 EXEC PGM=BSS01RFF,REGION=0M,
PARM=('S=92,B01LST=00,B92LST=91','PGM=B92PRINT')
*
B92DEF DD DUMMY
*
SFFPARM DD DISP=SHR,DSN=MVSC.BETABSA.PARMLIB
//*
//SFFFDUMP DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//OMSPRINT DD SYSOUT=*
//B92LOG DD SYSOUT=*
//*
//SYSIN DD *
PRINT
SDATE(TT.MM.2005)
STIME(HH:00:00)
PDATE(TT.MM.2005)
PTIME(HH:00:00)
MASK(DD.MM.YYYY)
JOBNAME(SFOD%307)
DDNAME1(IFRSLOGX)
STEPN(P010)
PSTEPN(S010)
SEPARATOR(NO)
SCOPE(BOTH)
MESSAGE(LONG)
DISPOSITION(SHR)
DATASET(WLET.I007.IFRS.SPOOL(IFRSLOGX))
AUTOSEL(NO)
//*
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts HALDB data refresh/copy from producti... vineetanand2007 IMS DB/DC 0 Mon Jan 02, 2017 11:16 am
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am
No new posts Single COPY CICS TS datasets and when... Kyle Carroll CICS 2 Tue Oct 11, 2016 9:47 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us