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
 
Spool data using JCL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Khadhar Basha

New User


Joined: 28 Oct 2014
Posts: 42
Location: India

PostPosted: Wed Jan 21, 2015 8:51 pm    Post subject: Spool data using JCL
Reply with quote

Hi All,

I would like to extract jobs which are currently in execution state. Not the jesjcl jesmsg and all.

Say W* jobs executing in spool, i want to get job name, id, St-time.

Below code used to extract a job log in dataset. I want only statistics. Help me with the parms.

Code:
//BATCHSP JOB (ACC INFO,,,,,XXXX),'         ',CLASS=M,   
//            MSGCLASS=Y,NOTIFY=&SYSUID                   
//********************************************************
//** COPY THE ISPF PROFILE                                 
//*********************************************************

//BSDSF  EXEC PGM=ISFAFD,PARM='++30,256'                               
//ISFOUT   DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSTSPRT DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//ISFIN    DD *                                                         
PRE job-name                                                           
ST                                                                     
FILTER JOBID EQ job-id                                                 
++?                                                                     
FIND 'SYSOUT'                                                           
++S                                                                     
PRINT ODSN 'USER.ABC.XYZ' * SHR                                 
PRINT 1 9999                                                           
PRINT CLOSE                                                             
END                                                                     
EXIT                                                                   
/*                                                                     
// 


My previous post http://ibmmainframes.com/viewtopic.php?p=327700#327700
Back to top
View user's profile Send private message

Paul Voyner

New User


Joined: 26 Nov 2012
Posts: 51
Location: Switz

PostPosted: Wed Jan 21, 2015 9:42 pm    Post subject:
Reply with quote

Khadhar, what are you playing at ? I've recently helped you with rexx code to get information out of SDSF, and now you say you're using SDSF in batch to do something almost identical. Have you not actually learned a single thing from what I told you ?
Back to top
View user's profile Send private message
Khadhar Basha

New User


Joined: 28 Oct 2014
Posts: 42
Location: India

PostPosted: Wed Jan 21, 2015 9:51 pm    Post subject:
Reply with quote

Hi Paul,

I was very thankful to you. I want to get spool data of 5 LPAR.
I am able to connect LPAR using FTP. When I submit rexx thru IKJEFT01, i get RC 8 at below and my output is empty.

Code:
Address SDSF "isfexec st(ALTERNATE DELAYED"
if RC ยช= 0 then do
say "isfexec RC" RC
exit

Though i have access to LPAR.

That's why thought of trying batch to know really if i dont have access or not.

Apologies if this looks am playing around forum.
Back to top
View user's profile Send private message
Paul Voyner

New User


Joined: 26 Nov 2012
Posts: 51
Location: Switz

PostPosted: Thu Jan 22, 2015 12:54 pm    Post subject:
Reply with quote

So why did you get an RC 8 ? Did you do any analysis ?
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 -> JCL & VSAM 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
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 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. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 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

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