Versión with Richard's advice:
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 *-* "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"REPORT") CART(CARTEVEP)"
>L> "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"
>L> "REPORT"
>O> "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,REPORT"
>L> ") CART(CARTEVEP)"
>O> "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,REPORT) CART(CARTEVEP)"
7 *-* /**/
8 *-* mrc = 0
>L> "0"
9 *-* msgindex = 0
>L> "0"
10 *-* do while mrc = 0
>V> "0"
>L> "0"
>O> "1"
11 *-* mrc = GETMSG('CNSL.','SOL',CARTEVEP,,20)
>L> "CNSL."
>L> "SOL"
>L> "CARTEVEP"
>L> ""
>L> "20"
>F> "4"
12 *-* if mrc > 0
>V> "4"
>L> "0"
>O> "1"
*-* then
*-* leave
10 *-* do while mrc = 0
18 *-* msg.0 = msgindex
>V> "0"
19 *-* 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
