Fil d’Ariane du forum – Vous êtes ici :ForumForums techniques: AS/400Récupérer format écran dans CLP ( …
Vous devez vous identifier pour créer des messages et des sujets.

Récupérer format écran dans CLP (24x80 ou 27x132)

Bonjour,

J'ai aussi eu besoin de vérifier si la configuration de ma session permettait l'affichage de l'écran et j'ai pris en considération toutes les solutions possibles et j'ai choisi la solution API en l'utilisant au plus simple  :

D w_DspValid S 1
* DSM API to query mode support
D QryModSup PR 1 ExtProc( 'QsnQryModSup' )
D DspMode 1 Const
D IsValid 1
D Handle 10I 0 Options( *NoPass )
D ErrorDS 100 Options( *NoPass )

// Verification compatibilité session avec *DS4
QryModSup ( '4' : w_DspValid );

If W_DspValid = '1';
open DSPF;
ENDIF;

Fred