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 Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm
No new posts Spool Extract for Z /os 1.04 version Khadhar Basha CLIST & REXX 3 Thu Sep 28, 2017 3:14 pm
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm

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