SNDPGMMSG im CL

[peter.kinne]

Hallo zusammen,

ich habe ein CL-Programm, dass im Dialog aufgerufen wird.

Der Inhalt ist in etwa:

sndpgmmsg cpf9897 txt(PGM_A läuft) typ(*status)
call pgm_a
sndpgmmsg cpf9897 txt(PGM_B läuft) typ(*status)
call pgm_b
sndpgmmsg cpf9897 txt(PGM_C läuft) typ(*status)
call pgm_c
endpgm

Leider werden die Statusmeldungen nicht während der Vearbeitung ausgegeben, sondern alle zum Schluß, wenn das Programm komplett fertig ist

Wir möchten damit den Anwender informieren, was gerade passiert.

Es geht doch auch anders???

Gruß

Peter

[DKSPROFI]

Moin,

ich löse das so:

CHGVAR VAR(&MSG) VALUE('Datenaufbereitung +
läuft. Bitte warten..')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&MSG) +
TOPGMQ(*EXT) MSGTYPE(*STATUS)

mfg

[peter.kinne]

Klappt so. Ist zwar fast das gleiche was ich gemacht habe.
Muss man ja nicht verstehen.


Danke
Peter

[Fuerchau]

Wesentlich ist:
TOPGMQ(*EXT)

Damit ist der Bildschirm gemeint, Default ist das Joblog.