Hi Elardus, Apologies. Event Publisher is an IBM product. Non a ISV. Below the trace result of REXX execution with TRACE I:
3 *-* "CONSOLE DEACTIVATE" >L> "CONSOLE DEACTIVATE" IKJ55307I THE CONSOLE COMMAND HAS TERMINATED.+ IKJ55307I A CONSOLE SESSION IS NOT ACTIVE. +++ RC(20) +++ 4 *-* "CONSPROF SOLDISP(NO) SOLNUM(400)" >L> "CONSPROF SOLDISP(NO) SOLNUM(400)" 5 *-* "CONSOLE ACTIVATE NAME("USERID()")" >L> "CONSOLE ACTIVATE NAME(" >F> "JGARCI1" >O> "CONSOLE ACTIVATE NAME(JGARCI1" >L> ")" >O> "CONSOLE ACTIVATE NAME(JGARCI1)" 6 *-* ADDRESS CONSOLE "F CACEPS71,CMD,CACDS,"REPORT"" >L> "F CACEPS71,CMD,CACDS," >L> "REPORT" >O> "F CACEPS71,CMD,CACDS,REPORT" >L> "" >O> "F CACEPS71,CMD,CACDS,REPORT" 7 *-* mrc = 0 >L> "0" 8 *-* msgindex = 0 >L> "0" 9 *-* do while mrc = 0 >V> "0" >L> "0" >O> "1" 10 *-* mrc = GETMSG('CNSL.','UNSOL',,,3) >L> "CNSL." >L> "UNSOL" >L> "" >L> "" >L> "3" >F> "4" 11 *-* if mrc > 0 >V> "4" >L> "0" >O> "1" *-* then *-* leave 9 *-* do while mrc = 0 17 *-* msg.0 = msgindex >V> "0" 18 *-* do i = 1 to msg.0 >L> "1" >V> "0" READY END Regards ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN