pgm    ( +                                                                      
         &pMode       +                                                         
         &pCtlOpt     +                                                         
       )                                                                        
                                                                                
   dcl   &pMode       *char    1                                                
   dcl   &pCtlOpt     *char   10                                                
                                                                                
   dcl   &Mode        *char    1                                                
   dcl   &hCmdBuf     *char    4                                                
   dcl   &hLoLvlEnv   *char    4                                                
   dcl   &RtnVal      *char    2                                                
                                                                                
   dcl   &ErrCod      *char    8                                                
                                                                                
                                                                                
   chgvar            &Mode        &pMode                                        
   chgvar            &hCmdBuf     x'00000000'                                   
   chgvar            &hLoLvlEnv   x'00000000'                                   
   chgvar            &ErrCod      x'00000000'                                   
                                                                                
   callprc 'QsnClrScr'      ( +                                                 
                              &Mode        +                                    
                              &hCmdBuf     +                                    
                              &hLoLvlEnv   +                                    
                              &ErrCod      +                                    
                            ) +                                                 
                      rtnval( +                                                 
                              %bin( &RtnVal ) +                                 
                            )                                                   
                                                                                
                                                                                
   return                                                                       
                                                                                
endpgm