Qui peut le plus peut le moins ! Un écran en 80 s'affichera sur une unité en 132 mais l'inverse
provoquera une erreur d'affichage ; voici le code rpgle à ajouter pour tester la taille de votre écran.

Dans notre exemple, on ne teste que si on est 132 ou pas

 H DFTACTGRP(*NO) ACTGRP(*CALLER)

  *

  *                                                                    
 D APIErrorDS      ds                                                  
 D BytesProvided                 10I 0 Inz( %Size( APIErrorDS ) )      
 D BytesAvail                    10I 0 Inz( *Zero )                    
 D MsgID                          7    Inz( *Blanks )                  
 D Reserved                       1    Inz( X'00' )                    
 D MsgDta                       256    Inz( *Blanks )                  
  *                                                                       
 D QryModSup       PR             4b 0 ExtProc( 'QsnQryModSup' )       
 D  DspMode                       1    Const                           
 D  Handle                       10I 0 Options( *NoPass )              
 D  ErrorDS                            Options( *NoPass )              
 D                                     Like( ApiErrorDS )              
 DPtrP             S               *   PROCPTR                         
 D                                     inz(%PADDR(QryModSup))          
 D Is27x132OK      s              4b 0 
 D PAR             S              4    INZ('4')
  *
 C                   CALLB     PtrP                        
 C                   parm                    par           
 C                   Eval      Is27x132OK = QryModSup( '4' )
 C                   EVAL      Is27x132ok = 1              
 C                   IF        (Is27x132OK=0)              
 c                   EXFMT     FMT80
 c                   ELSE
 c                   EXFMT     FMT132
 c                   ENDIF