ERRMSGID - Problem

[tarkusch]

Hallo,

ich habe mehrere Bilder die ich überprüfe und Bezugszahlen schalte.
Aber beim ersten mal wird die ERRMSGID bie F3KST(*IN60) nicht angezeigt obwohl sie gesetzt ist.
Beim 2. mal drücken der ENTER Taste erscheint die Meldung.
Ein Overlay hätte ich auch im Format.

Was mache ich falsch?

Dank im Voraus

A                                      DSPSIZ(24 80 *DS3)   
A                                      REF(*LIBL/MATARTP)   
A                                      PRINT                
A                                      VLDCMDKEY(27)        
A                                      PAGEUP(17)           
A                                      PAGEDOWN(18)         
A                                      CF01                 
A                                      CF03                 
A                                      CF04                 
A                                      CA05                 
A                                      CF08                 
A                                      CF09                 
A                                      CA12                 
A                                      HELP                 
A                                      HLPRCD(DFTHELP)      
A          R SCREEN2                                                       
A                                      OVERLAY                           
A                                      CHANGE(28)                        
A                                      RTNCSRLOC(&SCRN## &FELD## &PSFD##)
A                                      CSRLOC(ROW###     COLM##)         
A            ROW###         3S 0H                                        
A            COLM##         3S 0H                                        
A            SCRN##        10A  H                                        
A            FELD##        10A  H                                        
A            PSFD##         4S 0H                                        
A            SDSPGM        10A  O  1  2                                  
A            SDSUSR        10A  O  1 13                                  
A            SDSPGM        10A  O  1  2                                  
A            SDSUSR        10A  O  1 13                                  
A                                  1 63DATE                              
A                                      EDTCDE(Y)                         
A                                  1 73TIME                              
A            R0FMTB        38   O  1 24DSPATR(HI)      
A                                      DSPATR(RI)      
A                                  1 71USER            
A            F3KST     R        B  6 16REFFLD(DFKST *LIBL/MATARTP)    
A  11                                  DSPATR(UL)                     
A N11                                  DSPATR(PR)                     
A  60                                  ERRMSGID(ERR0019 *LIBL/ERRMSGF)
A  60                                  COLOR(RED)                     
A  60                                  DSPATR(RI)                     
A  60                                  DSPATR(PC)

[Fuerchau]

ERRMSGID war schon immer Problematisch.
Wenn die BZ an ist, so wird ausschließlich diese Nachricht ausgegeben und das Feld markiert.
Alle anderen Ausgaben werden ignoriert!
D.h., ERRMSGID wirkt wie PUTOVR/OVRDTA auf einem Feld.

Um das Problem zu lösen (so habe ich das vor laaaanger Zeit festgestellt), muss man
1. BZ an setzen und das Format ausgeben
2. BZ aus setzen und nun das Format nochmal ausgeben bzw. per EXFMT verarbeiten.
Durch die interne Pufferung funktioniert das ganz gut.

Wichtig ist, dass neben ERRMSGID keine anderen Attribute zusätzlich angeschaltet sind.

[cbe]

Hallole,

war es nicht gerade umgekehrt? Erst BZ aus, dann an?

A R FMTKEY
...
A XPNR R B 4 11REFFLD(VVHPNR)
A 71N21 ERRMSG('Projektnr. nicht +
A gefunden.' 71)
A 74N21 ERRMSG('Zugriffsfehler in +
A VVPRJP.' 74)

C 21 WRITEFMTKEY
C SETOF 21
C EXFMTFMTKEY

Wir haben immer eine Hilfsbezugszahl genommen, so dass die ERRMSG erst beim EXFMT ausgegeben wurde.
Das ist einfacher bei mehreren Bezugszahlen für verschiedene Fehler.

Gruß, Christian

[Fuerchau]

Ja, das kann auch sein .