Can someone explain why you wouldn't use the built-in restart capability?
-----Original Message-----
From: Raul Jager [mailto:raul@xxxxxxxxxx]
Sent: Wednesday, February 13, 2019 2:32 PM
To: midrange-l@xxxxxxxxxxxxxxxxxx
Subject: Re: ENDTCPSVR SERVER(*HTTP) HTTPSVR(BRCWEBLIVE) issue - instance jobs not ending
CL program segment to end qinter, you can change it to end (and restart
http) After a delay I try to end the subsystem again, if it did not end yet I get a CPF 1055 and go back to wait. tcpsvr very likely gives some other message that you need to monitor.
SNDMSG MSG('Dentro de 30 segundos la pantalla se +
desconectará por unos minutos') +
TOUSR(*ALLACT)
ENDSBS SBS(QINTER) DELAY(30)
ESPERA: DLYJOB DLY(35)
ENDSBS SBS(QINTER) DELAY(30)
MONMSG MSGID(CPF1055 CPF1056) EXEC(GOTO +
CMDLBL(ESPERA))
MONMSG MSGID(CPF1054)
This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact
[javascript protected email address].