24x80 27x132

[kitvb1]

So geht's auch... um eine 27x132 von eine 24x80 Programm aufzurufen.

DSPF:

      A*--------------------------------------------------------------------
      A*                                                                    
      A*  System Name .....: All                                            
      A*  File Name .......: Dummy size display file                        
      A*  Author ..........: Deon A von Blerk                               
      A*  Date ............: 09.06.08                                       
      A*--------------------------------------------------------------------
      A*                                                                    
      A*  MODIFICATION CONTROL                                              
      A*  ====================                                              
      A*    Date   Nr By/Reason                                             
      A*   =====  === =========                                             
      A*                                                                    
      A*--------------------------------------------------------------------
     A                                      DSPSIZ(*DS3 *DS4)                     
     A                                      HELP(25)                              
     A                                      CA01(25)                              
     A                                      CA12(12)                              
     A*                                                                           
     A          R DUMMY1                                                          
     A                                      TEXT('Dummy format to allow window')  
     A                                      KEEP                                  
     A                                      ASSUME                                
     A                                      OVERLAY                               
     A                                 24 74' '                                   
     A                                 22  2'*++PL00X'                            
     A                                      DSPATR(ND)

In Programm hinzufügen:

     FDUM27x132 CF   E             WORKSTN INFSR(*PSSR) 
     F                                      usropn     
...
       // am pgm anfang
       // open dummy size      
        open dum27x132;        
        write dummy1;          
        close dum27x132;       
       // open proper DSPF
        open Gsmtp0FT;         
...
       // am pgm ende
       // Terminate this program.      
       close Gsmtp0FT;                 
       open dum27x132;                 
       write dummy1;                   
       close dum27x132;

This method prevents problems (abstürtze) not only from the calling program but also, which does happen in Infor System 21, when another menu option is called later.