Terry,
Here is the rexx code which works fine here for 'D TS,L' or 'D R,,,MSG=DFS9'
Get_SA :
address TSO 'CONSPROF SOLDISPLAY(NO)'
address TSO 'CONSOLE ACTIVATE'
/* address CONSOLE 'D TS,L' */
address CONSOLE 'D R,,,MSG=DFS9'
/* RETRIEVE OUTPUT COMMAND */
do forever
fc = getmsg('line.','sol',,,10)
if fc = 0 then leave
end
address TSO 'CONSOLE DEACTIVATE'
/* Search for &SA. */
do i=1 to line.0
say line.i
end
return
HTH,
Pierre
Caterpillar Belgium
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
