RHPG SCALE READ

Devuelve los posible valores para la cualificación de un objeto.

Ejemplo

*---------------------------------------------------------------------* 
*       FORM leer_calificaciones                                      * 
*---------------------------------------------------------------------* 
*       ........                                                      * 
*---------------------------------------------------------------------* 
*  -->  PE_OTYPE                                                      * 
*  -->  PE_OBJID                                                      * 
*  -->  PE_RATING                                                     * 
*  -->  PS_RATING_TXT                                                 * 
*---------------------------------------------------------------------* 
FORM leer_calificaciones USING    pe_otype                            
                                  pe_objid                                  
                                  pe_rating                                 
                         CHANGING ps_rating_txt.                            
  DATA: i_class_scale_tab LIKE qcl_scale OCCURS 100 WITH HEADER LINE,       
        i_proficiency LIKE hrpe_profc OCCURS 100 WITH HEADER LINE,          
        l_objid LIKE  hrp1000-objid.                                        
                                                                            
  l_objid = pe_objid.                                                       
  CALL FUNCTION 'RHPE_Q_CLASS_SCALE_READ'                               
    EXPORTING                                                               
      plvar                 = '01'                                          
      otype                 = pe_otype                                      
      objid                 = l_objid                                       
*   BEGDA                 = SY-DATUM                                    
*   ENDDA                 = SY-DATUM                                    
*   READ_SCALE            = 'X'                                         
*   WITH_TEXT             = 'X'                                         
    TABLES                                                                  
      class_scale_tab       = i_class_scale_tab                             
*   SCALE_TAB             =                                             
   EXCEPTIONS                                                               
     obj_not_found         = 1                                              
     weg_not_found         = 2                                              
     no_class_found        = 3                                              
     scale_not_found       = 4                                              
     undefined             = 5                                              
     OTHERS                = 6.                                             
                                                                            
  READ TABLE i_class_scale_tab INDEX 1.                                     
  IF sy-subrc = 0.                                                          
    CALL FUNCTION 'RHPG_SCALE_READ'                                     
      EXPORTING                                                             
*      LANGU                 = SY-LANGU                                 
        scale_id              = i_class_scale_tab-scale                     
*      ADD_DATA              = 'X'                                      
*      ONLY_QUALI            = 'X'                                      
*    IMPORTING                                                          
*      STEXT                 =                                          
*      COUNT                 =                                          
*      MIN_VALUE             =                                          
*      MAX_VALUE             =                                          
*      CHANGED_LANGU         =                                          
      TABLES                                                                
        proficiency           = i_proficiency                               
*      PROFCY_RANGE          =                                          
     EXCEPTIONS                                                             
       scale_not_found       = 1                                            
       no_authority          = 2                                            
       OTHERS                = 3.                                           
                                                                            
    READ TABLE i_proficiency WITH KEY rating = pe_rating.                   
    IF sy-subrc = 0.                                                        
      ps_rating_txt = i_proficiency-pstext.                                 
    ENDIF.                                                                  
                                                                            
  ENDIF.                                                                    
                                                                            
ENDFORM." LEER_CALIFICACIONES