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?