pgm    ( +                                                                      
         &pLines      +                                                         
         &pTop        +                                                         
         &pBottom     +                                                         
         &pCtlOpt     +                                                         
       )                                                                        
                                                                                
   dcl   &pLines      *char    4                                                
   dcl   &pTop        *char    4                                                
   dcl   &pBottom     *char    4                                                
   dcl   &pCtlOpt     *char   10                                                
                                                                                
   dcl   &Lines       *char    4                                                
   dcl   &Top         *char    4                                                
   dcl   &Bottom      *char    4                                                
                                                                                
   dcl   &hCmdBuf     *char    4                                                
   dcl   &hLoLvlEnv   *char    4                                                
   dcl   &ErrCod      *char    8                                                
                                                                                
   dcl   &RtnVal      *char    2                                                
                                                                                
                                                                                
   chgvar            &hCmdBuf     x'00000000'                                   
   chgvar            &hLoLvlEnv   x'00000000'                                   
   chgvar            &ErrCod      x'00000000'                                   
                                                                                
                                                                                
   chgvar            &Lines        &pLines                                      
   chgvar            &Top          &pTop                                        
   chgvar            &Bottom       &pBottom                                     
                                                                                
   callprc 'QsnRollUp'      ( +                                                 
                              &Lines       +                                    
                              &Top         +                                    
                              &Bottom      +                                    
                              &hCmdBuf     +                                    
                              &hLoLvlEnv   +                                    
                              &ErrCod      +                                    
                            ) +                                                 
                      rtnval( +                                                 
                              %bin( &RtnVal ) +                                 
                            )                                                   
                                                                                
   return                                                                       
                                                                                
endpgm