How to copy the spool jobs in to our local PDS

Husna · New User Joined: 02 Jun 2006 Posts: 49

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.

ofer71 · Posted: Wed Jun 28, 2006 12:44 pm

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

O.

sx0807 · New User Joined: 07 Apr 2006 Posts: 2

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

UmeySan · Posted: Wed Oct 25, 2006 10:48 pm

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)
//*