View previous topic :: View next topic
|
Author |
Message |
ezio vin
New User
Joined: 16 Aug 2012 Posts: 44 Location: india
|
|
|
|
Hi,
im new to SDSF, i want to xdc the job information to a dataset. so i used this following code.
Code:
Code: |
//XDCEDITP JOB (CTSXDC),'XDC JOB',CLASS=3,MSGCLASS=H
//S010 EXEC PGM=SDSF
//SYSOUT DD SYSOUT=*
//ISFOUT DD DUMMY
//ISFIN DD *
OWNER N2XXXXX
PREFIX EDITJOB
ST
SORT JOBID D
ST
FIND EDITJOB
++S
PRINT ODSN XXX.XXX.N2XXXX.XDC(EDITJOB)
PRINT
PRINT CLOSE
END
//* |
the above code is working for some jobs and for some jobs it is not taking xdc in specified dataset instead of that it is taking XDC in the job sysout ex: "SYS00003".
in SYS00003 all the "EDITJOB" spool informations are copied.
Code'd |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
If you have two different questions, please don't give them the same Subject. Please also note that your posts have been Code'd for readability and use this feature in future here. |
|
Back to top |
|
|
ezio vin
New User
Joined: 16 Aug 2012 Posts: 44 Location: india
|
|
|
|
yes i do tfs |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
ezio vin wrote: |
yes i do tfs |
What is this saying/asking! |
|
Back to top |
|
|
ezio vin
New User
Joined: 16 Aug 2012 Posts: 44 Location: india
|
|
|
|
i just mentioned thanks for sharing information in short form (tfs) |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
ezio vin wrote: |
i just mentioned thanks for sharing information in short form (tfs) |
wicbbpagrorgyaabyasaa.
you are right, much easier to communicate with just the first letter
of most of the words. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
IWATKTSF!
Try this:
Code: |
//BSDSF EXEC PGM=SDSF
//ISFOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//ISFIN DD *
ST
FILTER JOBID EQ JOBID
F myjobnm
++?
FIND 'myjobdd'
++S
PRINT ODSN 'myracfid.SDSF' * OLD
PRINT 1 9999
PRINT CLOSE
END
EXIT
/* |
in this you need to replace the symbolics (myjobdd, myracfid etc) with appropriate values.
Above works for me, in case you need to work with the Job you've posted, please show us the ISFOUT of the Job you submit. I'm not sure, why do you DUMMY it out. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
By the way, your Job is 'SDSF in Batch'. You've named a PDS ending with XDC, but that does not mean you "issue an XDC". The command which copies the DD name in the specifed Data-Set is "PRINT ODSN".
And, per your post, do you make sure that the job you look for, using Batch SDSF, have a DD name as "EDITJOB"?
Just for fun -- "XDC" means "print and close". I recall of a discussion where in one asked, what in the heaven "X" stands for and in "print and close" where is "D" lost. As far I can recall, X stands for eXport (or Print) - They couldn't use P because that means 'Purge output'. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Possibly "eXport to Dataset, Close"?
IIRC, this is the shortcut form of issuing:
PRINT ODSN
PRINT
PRINT CLOSE |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
Back to top |
|
|
don.leahy
Active Member
Joined: 06 Jul 2010 Posts: 765 Location: Whitby, ON, Canada
|
|
|
|
FWIW, here is a bare-bones Rexx that archives SDSF output to a PDS using the Rexx / SDSF interface:
Code: |
/* Rexx program to copy job output from SDSF to a PDS */
/* Demonstration only: not for real use */
/* */
ISFrc = isfcalls("ON")
isfprefix = "*"
isfowner = "your userid "
address SDSF "isfexec st (delayed"
ISFPRTDSNAME = "'any suitable PDS'"
ISFPRTDISP = "SHR"
do i = 1 to isfrows
ISFPRTMEMBER = jobid.i
say "Adding: " ISFPRTMEMBER
address sdsf "isfact st token('"token.i"') PARM(NP XDC)"
say isfmsg
end
ISFrc = isfcalls("OFF")
exit |
Please note that is is a proof of concept and is not an example of recommended Rexx coding techniques. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
Quote: |
"XDC" means "print and close" |
I asked for an enhancement to SDSF: a print control panel with the ability to allocate the dataset if not already. They started to discuss what to call this new SDSF command, but a person on the phone said that sometimes they waste hours debating what to call things and it is a waste of time. "We will just call it XDC". Everyone scratched their heads but moved on to the next topic. At the time, my impression was that it was random characters. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
That's interesting Pedro.
I had sent you a PM some time back, please check.
Regards, |
|
Back to top |
|
|
ezio vin
New User
Joined: 16 Aug 2012 Posts: 44 Location: india
|
|
|
|
Sorry for the late reply.
i tried your code its working fine thank you so much.
im attaching the code which i used to take XDC .
Code: |
//TESTXXXX JOB (24363),'N. C. SCHG DTL LST',CLASS=3,MSGCLASS=H,
// NOTIFY=&SYSUID
//BSDSF EXEC PGM=SDSF
//ISFOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//ISFIN DD *
ST
FILTER JOBID EQ JOB31770
F TEST815M
++S
PRINT ODSN 'GRT.CTS.NXXXXXX.JCL(XXX1)'
PRINT 1 9999
PRINT CLOSE
END
EXIT |
thanks Anuj Dhawan |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Glad you got it working! |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Good to hear you have what you need working - thank you for letting us know
d |
|
Back to top |
|
|
ezio vin
New User
Joined: 16 Aug 2012 Posts: 44 Location: india
|
|
|
|
if im executing more than 2 XDC jobs same time im getting this error in ISFOUT.
Code: |
SDSF OUTPUT DISPLAY CSP2010 JOB01802 DSID 2 LIN ALLOC ERROR 02100000
COMMAND INPUT ===> PRINT ODSN 'GXX.XXX.XXXXXXX.XXX(CSP2010)' SCROLL ===> PAGE
IKJ56225I DATA SET GXX.XXX.XXXXXXX.XXX ALREADY IN USE, TRY LATER+ |
|
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Quote: |
IKJ56225I DATA SET GXX.XXX.XXXXXXX.XXX ALREADY IN USE, TRY LATER+ |
Does this give you a hint? |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
certainly not, why ask otherwise ??? |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
You're using a PDS in your Job, you showed last. But you did not show the DISP parameter for that. Default(?) will be used.
If you'd use different QSAMs (flat-file), in different Job, this error should go away; for PDS, suggest you do some experiments with different DISP parameters. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
Code: |
PRINT ODSN 'GXX.XXX.XXXXXXX.XXX(CSP2010)' |
IIRC when allocated as shown the disp will be OLD |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Enrico, That question was for OP! |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
should I stand ( I would prefer sitting, it is more comfortable ) reprimanded ? |
|
Back to top |
|
|
ezio vin
New User
Joined: 16 Aug 2012 Posts: 44 Location: india
|
|
|
|
sorry i totally messed up yesterday,
now i got it everything working fine..
reason why i got this error is i have submitted jobs before jobs complete execution..
thanks everyone thanks again for your valuable time. |
|
Back to top |
|
|
|