Use class for fetching the employee data!

DATA : lo_read   TYPE REF TO if_hrpa_paitf_read.
DATA : lo_reader TYPE REF TO cl_hrpa_paitf_read.
DATA : lo_master TYPE REF TO if_hrpa_masterdata_bl .
DATA : lt_0154   TYPE STANDARD TABLE OF p0154.

CALL METHOD cl_hrpa_masterdata_factory=>get_business_logic
  IMPORTING
    business_logic = lo_master.

CREATE OBJECT lo_reader
  EXPORTING
    masterdata_bl = lo_master.

lo_read = lo_reader.

TRY.

    CALL METHOD lo_read->read
      EXPORTING
        tclas         = 'A'
        pernr         = '15155000'
        infty         = '0154'
        subty         = '*'
        objps         = '*'
        sprps         = '*'
        begda         = sy-datum
        endda         = sy-datum
*       seqnr         =
*       massn         =
*       massg         =
        no_auth_check = abap_true
*       message_handler =
      IMPORTING
        pnnnn_tab     = lt_0154
*       pnnnn2_tab    =
*       pref_tab      =
*       text_tab      =
*       secondary_infty =
*       is_ok         =
*       object_keys   =
      .
  CATCH cx_hrpa_violated_assertion .
*    WRITE: / 'No Entries available'.
ENDTRY.

CHECK lt_0154[] IS NOT INITIAL.
WRITE : / 'HAI'.