Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 757
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 List of jobs ran thru scheduler ddhar All Other Mainframe Topics 1 Tue Mar 27, 2018 4:32 am
No new posts Copy set of records based on condition krish.deepu SYNCSORT 2 Thu Mar 08, 2018 11:39 am
No new posts Image copy after Online reorganization. lind sh IMS DB/DC 0 Tue Jan 30, 2018 9:58 pm
No new posts Copy Specific Groups V S Amarendra Reddy SYNCSORT 10 Thu Jan 11, 2018 1:16 am
No new posts Conversion of DLI update Jobs as BMP ... Gopinath Shanmugam IMS DB/DC 3 Wed Dec 20, 2017 12:02 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us