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
 
Extract SYSPRINT with REXX and "EJES"

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
robert-ohlen

New User


Joined: 01 Jun 2007
Posts: 11
Location: Soiron

PostPosted: Mon Apr 27, 2009 3:17 pm    Post subject: Extract SYSPRINT with REXX and "EJES"
Reply with quote

I would like to extract some of the JOB sysprint.
I used "EJES" with REXX.
My first step that works well is extracting all the DD JOB file.

Code:

/* REXX */                                                           
 delstack                                                             
 /*rc = syscalls('ON') */                                             
 rc = ejesrexx('initapi')                                             
 queue "status;sreset;jname myjob IMSTWFIS;hold"                       
 queue "showcols jobname jobid records"                               
 queue ""                                                             
 address ejes "execapi (prefix JOB_" /* Invoke HOLD */                 
 dsn2= JOB_JobName".workfile"                                         
 "delete" dsn2                                                         
 rc=bpxwdyn("alloc dd(wkf2)",                                         
 "da("sysvar(syspref)"."dsn2") new reuse")                             
 do jobrow=1 to JOB_Lines                                             
   address ejes "execapi 0 'locate" jobrow "' (prefix JOB_"           
   say "Processing " JOB_JobName"("JOB_JobId")"                       
   dsn = JOB_JobName"."JOB_JobId".workfile"                           
   "delete" dsn                                                       
   address ejes "execapi 0 ':ed' (prefix EX_"                         
   if EX_FunName = "EXTRACT" then,                                     
   do                                                                 
     address ejes "execapi 0 ':<"dsn"><><><><><><><><CYL><10><10><*>'"
     if word(EJES_Msg.1,1) = "EJES162" then,                           
     do                                                               
       rc=bpxwdyn("alloc dd(wkf)",                                     
       "da("sysvar(syspref)"."dsn") old reuse")                       
       "execio * diskr" wkf "(stem" spool. "open finis)"               
       "execio * diskw" wkf2 "(stem" spool.                           
       rc=bpxwdyn("free dd(wkf)")                                     
       say "Read " spool.0 "records from job"                         
     end                                                               
     "delete" dsn                                                     
   end                                                                 
 end /* jobrow */                                                     
 rc=bpxwdyn("free dd(wkf2)")                                           
 ejesrc = ejesrexx('termapi')                                         
 exit


But the extraction takes all of DD JOB

Code:
J
ESMSGLG
JESJCL 
JESYSMSG
SYSPRINT


How can I will extract only the DD SYSPRINT ?
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Mon Apr 27, 2009 5:41 pm    Post subject:
Reply with quote

Wouldn't this question be better directed to Phoenix Software? Their support team is pretty good at responding in a timely manner to issues.
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
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. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm
No new posts Spool Extract for Z /os 1.04 version Khadhar Basha CLIST & REXX 3 Thu Sep 28, 2017 3:14 pm
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm

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