All About Programming

  METHOD if_ex_me_process_po_cust~process_item.     FIELD-SYMBOLS: <ekko> TYPE ekko.     DATA: f_mepoitem TYPE mepoitem.     DATA: lt_mepoitem TYPE TABLE OF mepoitem.     DATA: fo_header TYPE REF TO if_purchase_order_mm.     DATA: f_checkheader TYPE mepoheader.     DATA: f_checkheader_curr TYPE mepoheader.     DATA: f_ekkotxt TYPE string.     TYPES : ty_komv TYPE TABLE OF komv.     DATA:       lo_services_mm TYPE REF TO if_services_mm,       gt_komv        TYPE ty_komv,       gt_komv_old    TYPE ty_komv,       zkposn         TYPE prcd_elements-kposn,       lv_amount      TYPE komv-kbetr,       lv_count       TYPE i.     FIELD-SYMBOLS:       <fs_acctv> TYPE tact-actvt,   ...

DATA:   lt_mara TYPE TABLE OF mara,   ls_mara TYPE mara. DATA : xmarked TYPE char1. PARAMETERS:   p_bukrs TYPE bukrs. PARAMETERS:   p_rb1 RADIOBUTTON GROUP rb DEFAULT 'X',   p_rb2 RADIOBUTTON GROUP rb,   p_rb3 RADIOBUTTON GROUP rb,   p_rb4 RADIOBUTTON GROUP rb. START-OF-SELECTION.   CASE abap_true.     WHEN p_rb1. xmarked = 'I'.     WHEN p_rb2. xmarked = 'S'.     WHEN p_rb3. xmarked = 'V'.     WHEN p_rb4. xmarked = 'A'.   ENDCASE.   SET PARAMETER ID 'CAC' FIELD '1000'.   SET PARAMETER ID 'VPE' FIELD '001'.   SET PARAMETER ID 'GJR' FIELD sy-datum(4).   SET PARAMETER ID 'K70' FIELD xmarked. "I = Cost Center, S = Cost Center Group, V = Variant, A = All Cost Center   CALL TRANSACTION 'KSS2'.