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