DSPMOD (*DS3 oder *DS4) ermitteln

[mahones]

Ich habe jetzt sowohl das CL korrigiert, als auch im RPGLE folgendes eingebaut:

  D DSPMOD          S              1A  
 
  D RetrieveDisplayMode...                                           
  D                 PR                  ExtProc('QsnRtvMod')         
   * Display Mode: '3' = Device is in 24x80 mode; '4' = 27x132 mode  
  D DspMod                         1A                                
  D EnvHandle                     10I 0 options(*omit)               
  D ErrorCode                           likeds(#ErrorCode)           
  D                                     options(*varsize : *omit)    
 
  D #ErrorCode      DS                  qualified                    
  D BytesProv                     10I 0 inz(%size(#ErrorCode))       
  D BytesAvail                    10I 0 inz(0)                       
  D MsgId                          7A   inz('')                      
  D                                1A   inz('')                      
  D MsgData                      128A   inz('')                      
 
  ...
 
  /FREE                                         
 
   RetrieveDisplayMode(DspMod: *omit : *omit);  
 
  /END-FREE

Aber ich bekomme immer nur den Wert '3' zurück - obwohl ich auf einer Sitzung definitiv 27x132 verwende - und das Programm dieses auch so anzeigt.

Wo ist der Fehler?

[Fuerchau]

Ich denke nicht, dass es hilft:

The current display mode

Also, wenn das Terminal gerade ein 27x132-Format anzeigt, liefert es diese Info.

Wenn du allerdings deine DSPF implizit eröffnest, kommst du gar nicht soweit, da diese nicht geöffnet werden kann, wenn das Terminal den Modus nicht unterstützt!

Du benötigts halt 2 DSPF's, eine die nur den 24x80-Modus enthält, falls der Open mit dem 27x132-Modus fehlschlägt.