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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN