| IBM MAINFRAME HELP & SUPPORT FORUMS
Technical Forums for IBM Mainframe Applications like COBOL, JCL, CICS, DB2, FileAid, DFSORT, Endevor, Xpediter, CoolGen, CA-7&11, AbendAid, IMS, IDMS, PL/I, MqSeries, SyncSort, Assembler, ChangeMan, Easytrieve, InterTest, REXX, CLIST etc...
|
| View previous topic :: View next topic |
| Author |
Message |
Husna
Joined: 02 Jun 2006
Posts: 49
|
| Posted: Wed Jun 21, 2006 5:08 pm Post subject: How to copy the spool jobs in to our local PDS |
|
|
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 |
|
ofer71
Joined: 27 Dec 2005
Posts: 2039
Location: Israel
|
| Posted: Wed Jun 28, 2006 12:44 pm Post subject: |
|
|
Easy - Use REXX to issue SDSF commands. You can find lots of examples in this site.
O. |
|
| Back to top |
|
sx0807
Joined: 07 Apr 2006
Posts: 2
|
| Posted: Wed Oct 18, 2006 3:36 pm Post subject: Re: How to copy the spool jobs in to our local PDS |
|
|
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 |
|
UmeySan
Joined: 22 Aug 2006
Posts: 643
Location: Germany
|
| Posted: Wed Oct 25, 2006 10:48 pm Post subject: |
|
|
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 |
|
| |
THIS IS AN ARCIVE FORUM IN READ ONLY MODE. IF YOU WANT TO ASK YOUR DOUBTS USE THE ACTUAL FORUM
|
