Issue Console command from REXX

Sample REXX program as:

/* REXX - issue console command */
address TSO 'CONSPROF SOLDISPLAY(NO)'
address TSO 'CONSOLE ACTIVATE'

address CONSOLE 'D TS,L'
/* address CONSOLE 'D R,,,MSG=DFS8' */

/* 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