IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

SDSF Batch Retrieval Error


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ezio vin

New User


Joined: 16 Aug 2012
Posts: 44
Location: india

PostPosted: Thu Aug 16, 2012 12:35 pm
Reply with quote

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
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Thu Aug 16, 2012 12:44 pm
Reply with quote

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
View user's profile Send private message
ezio vin

New User


Joined: 16 Aug 2012
Posts: 44
Location: india

PostPosted: Thu Aug 16, 2012 1:20 pm
Reply with quote

yes i do tfs
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Thu Aug 16, 2012 2:44 pm
Reply with quote

ezio vin wrote:
yes i do tfs
What is this saying/asking! icon_neutral.gif
Back to top
View user's profile Send private message
ezio vin

New User


Joined: 16 Aug 2012
Posts: 44
Location: india

PostPosted: Thu Aug 16, 2012 2:58 pm
Reply with quote

i just mentioned thanks for sharing information in short form (tfs) icon_biggrin.gif
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Aug 16, 2012 3:18 pm
Reply with quote

ezio vin wrote:
i just mentioned thanks for sharing information in short form (tfs) icon_biggrin.gif


wicbbpagrorgyaabyasaa.

you are right, much easier to communicate with just the first letter
of most of the words.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Thu Aug 16, 2012 3:31 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Thu Aug 16, 2012 3:35 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Aug 16, 2012 7:12 pm
Reply with quote

Hello,

Possibly "eXport to Dataset, Close"?

IIRC, this is the shortcut form of issuing:
PRINT ODSN
PRINT
PRINT CLOSE
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Thu Aug 16, 2012 7:28 pm
Reply with quote

Dick - you made me to search this: 3.22 Action Characters on the SDSF Panels. icon_smile.gif

Regards,
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 765
Location: Whitby, ON, Canada

PostPosted: Thu Aug 16, 2012 10:30 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Fri Aug 17, 2012 11:43 am
Reply with quote

In fact the same user has a REXX question also on the "same" problem: www.ibmmainframes.com/viewtopic.php?t=59183&highlight= icon_confused.gif
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Fri Aug 17, 2012 9:25 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Sat Aug 18, 2012 10:23 am
Reply with quote

That's interesting Pedro.

I had sent you a PM some time back, please check.

Regards,
Back to top
View user's profile Send private message
ezio vin

New User


Joined: 16 Aug 2012
Posts: 44
Location: india

PostPosted: Thu Aug 23, 2012 1:04 pm
Reply with quote

Sorry for the late reply.

i tried your code its working fine thank you so much. icon_smile.gif

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Thu Aug 23, 2012 2:55 pm
Reply with quote

Glad you got it working!
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Aug 23, 2012 6:38 pm
Reply with quote

Good to hear you have what you need working - thank you for letting us know icon_smile.gif

d
Back to top
View user's profile Send private message
ezio vin

New User


Joined: 16 Aug 2012
Posts: 44
Location: india

PostPosted: Fri Aug 24, 2012 5:56 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Fri Aug 24, 2012 6:21 pm
Reply with quote

Quote:
IKJ56225I DATA SET GXX.XXX.XXXXXXX.XXX ALREADY IN USE, TRY LATER+
Does this give you a hint?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Fri Aug 24, 2012 6:31 pm
Reply with quote

certainly not, why ask otherwise ??? icon_cool.gif
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Fri Aug 24, 2012 7:14 pm
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Fri Aug 24, 2012 7:16 pm
Reply with quote

Code:
PRINT ODSN 'GXX.XXX.XXXXXXX.XXX(CSP2010)'


IIRC when allocated as shown the disp will be OLD
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Fri Aug 24, 2012 7:38 pm
Reply with quote

Enrico, That question was for OP! icon_biggrin.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Fri Aug 24, 2012 7:48 pm
Reply with quote

should I stand ( I would prefer sitting, it is more comfortable ) reprimanded ? icon_wink.gif
Back to top
View user's profile Send private message
ezio vin

New User


Joined: 16 Aug 2012
Posts: 44
Location: india

PostPosted: Sat Aug 25, 2012 8:54 am
Reply with quote

sorry i totally messed up yesterday, icon_sad.gif
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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM Goto page 1, 2  Next

 


Similar Topics
Topic Forum Replies
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 2
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts Routing command Address SDSF to other... TSO/ISPF 2
No new posts CLIST - Virtual storage allocation error CLIST & REXX 5
Search our Forums:

Back to Top