IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

REXX to search string in active address space ?


 
IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
jackzhang75

Active User


Joined: 09 Jun 2014
Posts: 120
Location: CT

PostPosted: Fri Jan 09, 2015 10:54 pm
Reply with quote

Hi experts,

Is is possbile to have rexx program to go into address space in SD;DA and then read line by line to get the information you want ?

Same like you do S and then look up for the message. thanks

Code:
 YSYS STATUS DISPLAY ALL CLASSES                        LINE 1-16 (16)         
 COMMAND INPUT ===>                                            SCROLL ===> CSR 
 NP   JOBNAME  JobID    Owner    Prty Queue      C  Pos  SAff  ASys Status     
      DIF      STC32427 DIF        15 EXECUTION          XSYS  XSYS             
 S   DIF      STC30819 DIF        15 EXECUTION          YSYS  YSYS             
      DIF      STC30644 DIF         1 PRINT         7868                       
      DIF      STC30355 DIF         1 PRINT         6517       
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1689
Location: Tiruppur, India

PostPosted: Fri Jan 09, 2015 11:05 pm
Reply with quote

Hello,
You could do it with SDSF REXX interface. This link has examples.
Use [URL] BBCode for Links

Also you could search this forum for SDSF REXX and I am sure there are many threads that has the complete code of how to do this.
Back to top
View user's profile Send private message
jackzhang75

Active User


Joined: 09 Jun 2014
Posts: 120
Location: CT

PostPosted: Sat Jan 10, 2015 12:52 am
Reply with quote

Hi , I can find the address space in DA using REXX,

what's the REXX code for SELECT this address space and do the search ?

Couldn’t find anything in the book and forum, its would be better if you can give example ?

Thanks
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Member


Joined: 14 Mar 2007
Posts: 10695
Location: italy

PostPosted: Sat Jan 10, 2015 1:50 am
Reply with quote

search the forum for my SDSF REXX snippets
Back to top
View user's profile Send private message
Paul Voyner

New User


Joined: 26 Nov 2012
Posts: 52
Location: UK

PostPosted: Mon Jan 12, 2015 1:19 pm
Reply with quote

Here's a sample to get you going. SDSF-REXX is very useful and powerful but takes some time to learn. Use the link already mentioned above, or else look in the SDSF user guide which also has many examples.

(Tip: In SDSF, type COLSHELP to see what columns/variables are available in each panel)
Code:
/*rexx*/

rc=isfcalls("ON")
if rc <> 0 then exit rc

ISFPREFIX = 'MYPREFX*'
Address "SDSF" "ISFEXEC DA"
if rc <> 0 then exit rc

do ix=1 to JNAME.0    /* Loop for all rows returned */
  say jname.ix jobid.ix

  /* Issue Display against each row returned */
  Address "SDSF" "ISFACT DA TOKEN('"TOKEN.ix"') PARM(NP D)"

end

rc=isfcalls("OFF")
exit
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> CLIST & REXX
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts Calling Assembler from REXX PL/I & Assembler 5
No new posts REXX/CLIST tool for BCSR and EDSR CLIST & REXX 2
No new posts Need to split single line into two li... DFSORT/ICETOOL 7
No new posts DB2 tablespace space limitation DB2 3
No new posts Calling Rexx program from Cobol CLIST & REXX 12

Back to Top