report z.
* find main program for function group
  data: l_namespace like rs38l-namespace,
        l_area like rs38l-area,
        l_main like sy-repid,
        l_fugr like tlibg-area.
  parameters fugrname like tlibg-area.
  select single area from tlibg into l_fugr
           where   area = fugrname.
  if sy-subrc <> 0.
    write: 'Cannot find function group', fugrname.
  else.
    call function 'FUNCTION_INCLUDE_SPLIT'
         exporting
              complete_area = fugrname
         importing
              namespace     = l_namespace
              group         = l_area
         exceptions
              others        = 6.
    if sy-subrc <> 0.
      write: 'Cannot retrieve main program name for function group',
             fugrname.
    else.
      concatenate l_namespace 'SAPL' l_area into l_main.
      write: 'Main program name for function group',
             fugrname, 'is', l_main.
    endif.
  endif.