All About Programming

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'.

  Main Program *&------------------------------------------------------------------* *& Report ZRMM008 *&------------------------------------------------------------------* *& *&------------------------------------------------------------------* REPORT zrmm008. INCLUDE zrmm008_01. INCLUDE zrmm008_02. INCLUDE zrmm008_03. INCLUDE zrmm008_04. INCLUDE zrmm008_05. START-OF-SELECTION.   "Check Company Code Authorization   AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'     ID 'BUKRS' FIELD p_bukrs     ID 'ACTVT' FIELD '03'.   IF sy-subrc = 0.     IF grp1 = 'X'. *      PERFORM get_data.       PERFORM get_inv_sloc_level.     ELSE. *      PERFORM get_data_plant_level.       PERFORM get_inv_plant_level.     ENDIF.     PERFORM set_fieldcat.     PERFORM display_alv.   ELSE.     CLEAR str_msg.     str_msg = |NO Authorization FOR company CODE { p_bukrs }|.     MESSAGE str_msg TYPE 'S' DISPLAY LIKE 'E'.   ENDIF. TOP-OF-PAGE.   PERFO