viernes, 26 de abril de 2013

2 - Exit variables (Step_2): ejemplos para text variables


* Text variables
*====================================================================
*  Rellena el texto del año anterior
*====================================================================
      WHEN 'TFYEAR1'.
        PERFORM f_fill_tfyear1 USING loc_var_range
                               CHANGING l_s_range.
        APPEND L_S_RANGE TO E_T_RANGE.

*====================================================================
*  Rellena el periodo a partir del valor de periodo introducido
*====================================================================
      WHEN 'tP_PER3'.
        CLEAR L_S_RANGE.
        LOOP AT i_t_var_range INTO loc_var_range WHERE vnam = 'ZV_PER3'.
          PERFORM f_fill_tP_PER3 USING loc_var_range
                                 CHANGING l_s_range.
          APPEND L_S_RANGE TO E_T_RANGE.
          EXIT.

        ENDLOOP.

*====================================================================
*  Rellena el periodo a partir del valor de periodo acumulado
*====================================================================
      WHEN 'tZ_PERAC'.
        CLEAR L_S_RANGE.
        LOOP AT i_t_var_range INTO loc_var_range WHERE vnam = 'Z_PERAC'.
          PERFORM f_fill_tZ_PERAC USING loc_var_range
                                 CHANGING l_s_range.
          APPEND L_S_RANGE TO E_T_RANGE.
          EXIT.

        ENDLOOP.
      WHEN OTHERS.
    ENDCASE.

No hay comentarios: