Abfrage 132-Zeichen Darstellbarkeit

[rr2001]

Hallo Leute, wie kann man vor einem PGM-Aufruf abfragen, ob auf der ausführenden Bildschirmeinheit 132-Zeichen darstellbar sind? Vielen Dank für eure Antworten.

[Sven Schneider]

Relativ Einfach :

1. DDS-DSPF


A DSPSIZ(24 80 *DS3
A 27 132 *DS4)

A R CHKDS4S4
A DSPMOD(*DS4)
A 1 3' '


2. RPG-Code


H J
F* ---------------------------------------------------------------
F* PRÜFEN OB DER VERWENDETE BILDSCHIRM *DS4 FÄHIG IST.
F*
F* FALLS EINE *DS4-ANZEIGE MÖGLICH IST,
F* WIRD DER ÜBERGABEPARAMTER MIT EINEM 'J' GEFÜLLT.
F* ANSONSTEN IST DER RETURNCODE MIT 'N' GEFÜLLT.
F* ---------------------------------------------------------------
F*
FCHKDS4 CF E WORKSTN
F KINFDS PRUEF
F*
IPRUEF DS
I 67 70 SPZE
I 273 282 EINH
C*
C *ENTRY PLIST
C PARM RETURN 1
C*
C MOVE 'N' RETURN
C*
C WRITECHKDS4S4
C EINH POST PRUEF
C SPZE IFEQ '3564'
C MOVE 'J' RETURN
C END
C* DUMMY WEGEN RPG-COMPILER
C GOTO WEITER
C EXFMTCHKDS4S4
C WEITER TAG
C*
C RETRN


Hintergrund :
In der INFDS zum DSPF steht im Bereich 67-70 (nach einer POST-Operation) die aktuelle Bildschirmgröße.
Wenn an einem nicht 132-spaltenfähigen Bildschirm versucht wird nach *DS4 umzuschalten, steht weiterhin '1920' (80 x 24) als Bildschirmgröße sonst '3564' (132 x 27)

Sven


[Dieser Beitrag wurde von Sven Schneider am 22. Juli 2002 editiert.]

[rr2001]

Servus Sven,
vielen Dank für deine Antwort.