Récupérer format écran dans CLP (24x80 ou 27x132)
Citation de fred74 le 28 septembre 2020, 17 h 29 minBonjour,
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
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