Coding-Schnipsel

Imple­men­tie­ren Klassen­methode für das Aus­le­sen der Sel­ect-Opti­on aus der Tabel­le TVARVC

Auf­ruf der funk­tio­na­len Metho­de aus einem Report

DATA:

  lr_bwart TYPE RANGE OF bwart,

  lv_name  TYPE          rvari_vnam.

Lv_name = ‘BEWE­GUNGS­ART’.   ” Para­me­ter­na­me aus der Tabel­le TVARVC

zpp_rlv_function=>get_sel_opt(

 EXPORTING

    iv_name  = lv_name

  CHANGING

    ct_data  = lr_bwart ).

Imple­men­ta­ti­on der Metho­de GET_SELOPT:

method GET_SELOPT.

 

  data:

    lo_ref      type ref to data,

    ls_tvarvc   type        tvarvc.

 

  field-symbols:

    <wa>        type        any,

    <comp>      type        any,

    <tab>       type        any table.

 

  create data lo_ref like line of ct_data.

  assign lo_ref->*   to <wa>.

  assign ct_Data     to <tab>.

 

  clear ct_data[].

 

  select  *

    from  tvarvc

    into  ls_tvarvc

    where name = iv_name

    and   type = 'S'.

    ASSIGN COMPONENT 'OPTION' OF STRUCTURE <wa> TO <comp>.

    <comp> = ls_tvarvc-opti.

    ASSIGN COMPONENT 'LOW' OF STRUCTURE <wa> TO <comp>.

    <comp> = ls_tvarvc-low.

    ASSIGN COMPONENT 'HIGH' OF STRUCTURE <wa> TO <comp>.

    <comp> = ls_tvarvc-high.

    ASSIGN COMPONENT 'SIGN' OF STRUCTURE <wa> TO <comp>.

    <comp> = ls_tvarvc-sign.

    INSERT <wa> INTO TABLE  <tab>.

  endselect.

 

endmethod.