Auth Obj check

method is_auth_for_plant.
    authority-check object 'S_TRVL_BKS'
             id 'ACTVT' field '01'
             id 'WERKS' field iv_plant.
    if sy-subrc eq 0.
      rv_authorized = abap_true.
    else.
      rv_authorized = abap_false.
    endif.
endmethod.
*                                         ///*
*                                   ///////////////////
*                             ,///////////////////////
*                            (/////////////////////
*                            (////////////////////////
*                         (///////////////////////////*
*                       /////////////////////////////
*                              (//////////////////////
*                                ///////////////////(
*                                ///////////////(              ////*/
*                               //////////////////       //////////////
*                              ////////////////////////////////////////
*                            */////////////////////////////////////////
*                           //////////////////////////////////////(*
*                          /////////////////////////////////////.
*                        ,/////////////////////////////////(/
*                      *//////////////////////////////(#
*                    (//////////////////////////////
*                  (//////////////////////////////////
*                ///////////////////////////////////////
*              ////////////////////(   #//////////////////
*            ////////////////////        ((/////////////////*,,.
*          *//////////////////(            /(//////////////////////*
*            ///////////////.                 (///////////////////
*              ,/////////////                   (///////////////
*                  (//////////                    //////////
*                       .(////                      (///
*
*