Excuse me Bob. I post the REXX code
/* REXX */
TRACE I
"CONSOLE DEACTIVATE"
"CONSPROF SOLDISP(NO) SOLNUM(400)"
"CONSOLE ACTIVATE NAME("USERID()")"
if rc <> 0 then
do
say "CONSOLE Activation problem - " rc
end
"CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"REPORT") CART(CARTEVEP)"
/*ADDRESS CONSOLE "F CACEPS71,CMD,CACDS,"REPORT"" */
getcode = 0
Do while getcode = 0 /* get console message */
getcode = GETMSG('salida.','SOL',CARTEVEP,,10)
If getcode = 0 then
Do
Do i = 1 to salida.0
k = i + j
wto.k = salida.i
End
j = j + salida.0
End
End
Do ii = 1 to wto.0
Say wto.ii
ii = ii + 1
End Thanks ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
