View previous topic :: View next topic
|
Author |
Message |
jackzhang75
Active User
Joined: 09 Jun 2014 Posts: 125 Location: US
|
|
|
|
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 |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1742 Location: Tirupur, India
|
|
|
|
Hello,
You could do it with SDSF REXX interface. This link has examples.
www.redbooks.ibm.com/redbooks/pdfs/sg247419.pdf
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 |
|
|
jackzhang75
Active User
Joined: 09 Jun 2014 Posts: 125 Location: US
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
search the forum for my SDSF REXX snippets |
|
Back to top |
|
|
Paul Voyner
New User
Joined: 26 Nov 2012 Posts: 52 Location: UK
|
|
|
|
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 |
|
|
|