JonnyBrazil
19-09-06, 08:40
Ich sollte in das Startupprogramm (läuft in QCTL) eine Abfrage einbauen um ev. noch ein volles Starten zu verhindern.
Das solle in etwa so aussehen:
RTVNETA SYSNAME(&SYSNAME)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('(J N) soll auf' !> &SYSNAME !> 'ein Startup durchgeführt werden ?') TOMSGQ(QCONSOLE) MSGTYPE(*INQ) KEYVAR(&MSGKEY)
RCVMSG MSGQ(QCONSOLE) MSGTYPE(*RPY) MSGKEY(&MSGKEY) WAIT(5) MSG(&OPTION)
Das geht aber nicht da SNDPGMMSG mit *INQ nicht mit TOMSGQ funktioniert.
SNDUSRMSG ist schön, hat aber sichtlich kein automatisches Timeout.
Hat jemand dazu eine Idee/Lösung?
Das solle in etwa so aussehen:
RTVNETA SYSNAME(&SYSNAME)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('(J N) soll auf' !> &SYSNAME !> 'ein Startup durchgeführt werden ?') TOMSGQ(QCONSOLE) MSGTYPE(*INQ) KEYVAR(&MSGKEY)
RCVMSG MSGQ(QCONSOLE) MSGTYPE(*RPY) MSGKEY(&MSGKEY) WAIT(5) MSG(&OPTION)
Das geht aber nicht da SNDPGMMSG mit *INQ nicht mit TOMSGQ funktioniert.
SNDUSRMSG ist schön, hat aber sichtlich kein automatisches Timeout.
Hat jemand dazu eine Idee/Lösung?