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 [email protected] with the message: INFO IBM-MAIN
