Reading Charact. Selection in Planning Level using Exit Var FM

Question

Hi Expert,
i have to do a data slice with an Exit Variable that looks at selected data in the planning level and check in a custom table if the corresponding charact in the level is flagged in order to fill the variable with this value and lock data.
Any idea of the code for reading, in an Exit Var FM, data from Charact selection in the planning level?
Any hints will be very appreciated and rewarded.
Tanks
Fabio

Answer 1

Hi,
You could check the how to guide variables of type exit at:
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/650ee690-0201-0010-4bb7-83c3e2a74039
If you implement the FM 'Z_VARIABLE_GET_DETAIL' you can read the value of the variables and use this in other variables.
Here is part of the code to use a sales organisation to filter the data from 0mat_sales..
Get Marketing mat ind using the ZMARKIND variable in the area
  DATA:
    M_subrc like sy-subrc,
    Ms_return like bapiret2,
    M_type like upc_var-vartype,
    Mto_varsel_all type upc_yto_charsel,
    Mto_varsel type upc_yto_charsel,
    Mto_var type upc_yto_charsel,
    Mt_chavl type /BI0/PMAT_SALES occurs 0,
    Ms_chavl like line of lt_chavl,
    Mto_chanm type upc_yto_cha.
read source value
  call function 'Z_VARIABLE_GET_DETAIL'
    EXPORTING
      i_area         = l_source_area
      i_variable     = 'ZMARKIND'
      i_buffer       = l_buffer_call
    IMPORTING
      e_subrc        = M_subrc
      es_return      = Ms_return
      e_type         = M_type
      eto_varsel_all = Mto_varsel_all
      eto_varsel     = Mto_varsel
      eto_chanm      = Mto_chanm.
  data: Ms_varsel type upc_ys_charsel,
  M_entries type i.
  if l_use_restricted_values is initial.
    lto_var = Mto_varsel_all.
  else.
    Mto_var = Mto_varsel.
  endif.
  read table Mto_var into Ms_varsel index 1.
  if sy-subrc <> 0.
    message i147(upc_fw) with M_source_var.
    exit.
  endif.
  describe table Mto_var lines l_entries.
  if l_entries <> 1.
    message i534(upc) with M_source_var.
    exit.
  endif.
select all materials related to the Line in the source variable valid
for the sales org in the zsorgfix variable.
  case Lso_varsel-chanm.
    when 'ZZLINE'.
      select * from /BI0/PMAT_SALES
      into table lt_chavl
      where /BIC/ZZLINE = ls_varsel-low
      and SALESORG = Gs_varsel-low
      and /BIC/ZMARKIND = ms_varsel-low
      and OBJVERS = 'A'.
    when 'ZZBRAND'.
      select * from /BI0/PMAT_SALES
      into table lt_chavl
      where /BIC/ZZBRAND = ls_varsel-low
      and SALESORG = Gs_varsel-low
      and /BIC/ZMARKIND = ms_varsel-low
      and OBJVERS = 'A'.
    when 'ZZHOUSE'.
      select * from /BI0/PMAT_SALES
      into table lt_chavl
      where /BIC/ZZHOUSE = ls_varsel-low
      and SALESORG = Gs_varsel-low
      and /BIC/ZMARKIND = ms_varsel-low
      and OBJVERS = 'A'.
  endcase.
  ls_varsel-SIGN = 'I'.
  ls_varsel-OPT = 'EQ'.
  ls_varsel-seqno = '0000'.
  ls_varsel-chanm = '0MAT_SALES'.
  loop at lt_chavl into ls_chavl.