BPS Variable Exit issue - input variable is not hardcoded

Question

Hi SDNer
I have a problem in derivation of 3 variables from one variable. The scenario is like this..
Curr Year - Hard coded in one Pl Area and all other Area get the same value by using a FM
Planning for year : User Input variable in Layout
We are planning for Projection ( Ver - p) Budget ( Ver - B) and 3 Forecast (Ver - F)
Now based on the planning for year and current year variable,system should calculate these three versions.Curr Ver  Next Ver Prev Ver which are in layout at present and entered by user manually
Example:
For  Curr Year 2008 and Plan Year 2008
Curr Ver - P Next Ver - B and Prev Ver - A
For  Curr Year 2008 and Plan Year 2009
Curr Ver - B Next Ver - F and Prev Ver - P
Thanks
Saurabh

Answer 1

Hi Kirill
Still no luck...here is my code
I am populating Variable ZVAR which is based on 0VERSION. With help of plan year ZFISCYEAR and Current year ZPLYEAR
I assigned this FM to ZVAR variable in plan area.
Also i am using this variable along with these 2 time variable in the planning folder......
I am getting error ZVER can't be computed ????
FUNCTION VERSION_AUTOMATION_TEST_KAMAL.
""Local Interface:
*"  IMPORTING
*"     VALUE(I_AREA) LIKE  UPC_AREA-AREA OPTIONAL
*"     VALUE(I_VARIABLE) LIKE  UPC_VAR-VAR OPTIONAL
*"  EXPORTING
*"     REFERENCE(ETO_CHARSEL) TYPE  UPC_YTO_CHARSEL
Data: lp_subrc type sysubrc.
Data: lc_subrc type sysubrc.
Data: lpt_varsel type table of upc_ys_api_varsel.
Data: lps_varsel type upc_ys_api_varsel.
*Data: l_plan_year type upc_ys_api_varsel.
Data: ls_chasel type upc_ys_charsel.
Data: l_VERSION TYPE C.
Data: l_plan_year type i.
Data: l_curr_year type i.
data: lcto_varsel   TYPE upc_yto_charsel.
DATA: lcs_varsel TYPE upc_ys_charsel.
Data: DIFF TYPE i.
Data: l_area type upc_y_area.
Data: l_variable type upc_y_variable.
if i_variable = 'ZFISCYR'.
*Read Planning For Year Variable.
call function 'API_SEMBPS_VARIABLE_GETDETAIL'
      Exporting
       i_area = i_area
       i_variable = i_variable
      Importing
       e_subrc = lp_subrc
       tables
       etk_varsel = lpt_varsel.
    if lp_subrc = 0.
      clear lps_varsel.
      read table lpt_varsel into lps_varsel index 1.
      l_plan_year = lps_varsel-low.
    endif.
Read Current Year Variable.
*data: l_buffer_call TYPE boole-boole           VALUE 'X'.
    Fix value of current year from below FM
  CALL FUNCTION 'Z_VAR_GET_DETAIL'
        EXPORTING
          i_area     = 'ZPLBSCF1'
          i_variable = 'ZPLYEAR'
        IMPORTING
          e_subrc    = lc_subrc
          eto_varsel = lcto_varsel.
      if lc_subrc = 0.
        clear lcs_varsel.
        read table lcto_varsel into lcs_varsel index 1.
        l_curr_year = lcs_varsel-low.
      endif.
DIFF = l_plan_year - l_Curr_year.
        IF l_plan_year = l_Curr_year.
             l_VERSION = 'P'.
             ELSEIF ( DIFF = 1 ).
                  l_VERSION = 'B'.
                  ELSEIF ( DIFF = 2 ).
                       l_version = 'F'.
                       ELSE.
                            l_VERSION = 'F'.
     ENDIF.
ls_chasel-chanm = '0VERSION'.
ls_chasel-opt = 'EQ'.
ls_chasel-low = l_VERSION.
insert ls_chasel into table eto_charsel.
Endif.
ENDFUNCTION.
Thanks alot
Saurabh