"PERNR" is not defined for the current logical database.

Question

Hi Experts,
I have developed a program for HR salary variance but when i execute i getting error in the line " get PERNR"
the "PERNR" is not defined for the current logical database. so plz suggest me to avoid this issue.
Thanks,
Rajesh

Answer 1

the codes are has below,
*& Report  ZHRSAL_COMP
REPORT  ZHRSAL_COMP.
tables: pernr,
        t512t.                      "Wage type texts
infotypes: 0001. "Organizational Assignment
*Tables data containing directory to PCL2 payroll results file.
data: begin of rgdir occurs 100.
        include structure pc261.
data: end of rgdir.
data: result type pay99_result.
data: rt_header type line of hrpay99_rt.
data: country like t001p-molga,
      number  like pc261-seqnr. "Number of last payroll result
types :begin of struc_p0001,
       pernr type  p0001-pernr,
       ename type  p0001-ename,
       werks type  p0001-werks,
       btrtl type  p0001-btrtl,
end of struc_p0001.
data : gtab_p0001 type table of struc_p0001,
       gwa_p0001 type struc_p0001.
types : begin of struc_payroll,
        text(10) type c,
        date     type dats,
        month(2) type c,
        year(4)  type c,
        abkrs(2) type c,
        end of struc_payroll.
data : gtab_payroll type table of struc_payroll,
       gwa_payroll type struc_payroll.
types : begin of struc_result,
       lgart type lgart,
       lgtxt type t512t-lgtxt,
       betrg type betrg,
        end of struc_result.
data : gtab_result type table of struc_result,
      gwa_result type struc_result.
get pernr.
  rp_provide_from_last p0001 space pn-begda pn-endda.
  call function 'CU_READ_RGDIR'
    exporting
      pernr          = p0001-pernr
    importing
      molga           = country
    tables
      in_rgdir        = rgdir
    exceptions
      no_record_found = 1
      others          = 2.
  if sy-subrc = 1.
    write: / 'No records found for '(001), pernr-pernr.
  endif.
  call function 'CD_READ_LAST'
    exporting
      begin_date      = pn-begda
      end_date        = SY-DATUM
    importing
      out_seqnr       = number
    tables
      rgdir           = rgdir
    exceptions
      no_record_found = 1
      others          = 2.
  if sy-subrc = 1.
    write: / 'No payroll result found for'(002), pn-paper.
  else.
    call function 'PYXX_READ_PAYROLL_RESULT'
         exporting
              clusterid                    = 'RX'
              employeenumber               = p0001-pernr
              sequencenumber               = number
        READ_ONLY_BUFFER             = ' '
        READ_ONLY_INTERNATIONAL      = ' '
        CHECK_READ_AUTHORITY         = 'X'
   IMPORTING
        VERSION_NUMBER_PAYVN         =
        VERSION_NUMBER_PCL2          =
         changing
              payroll_result               = result
         exceptions
              illegal_isocode_or_clusterid = 1
              error_generating_import      = 2
              import_mismatch_error        = 3
              subpool_dir_full             = 4
              no_read_authority            = 5
              no_record_found = 6
              versions_do_not_match        = 7
              others                   = 8.
    if sy-subrc = 0.
      perform print_rx.
    else.
      write: / 'Result could not be read (003)'.
    endif.
  endif.
      FORM PRINT_RX                                        *
      Print Payroll Result                                 *
form print_rx.
  format intensified on.
  write: / p0001-pernr,
           p0001-ename(15),
           p0001-werks,
           p0001-btrtl.
  format intensified off.
  skip 1.
  move p0001-pernr to gwa_p0001-pernr.
  move p0001-ename(15) to gwa_p0001-ename.
  move p0001-werks to gwa_p0001-werks.
  move p0001-btrtl to gwa_p0001-btrtl.
  append gwa_p0001 to gtab_p0001.
  write: / 'For period/payroll area: '(004),
           30 result-inter-versc-fpper+4(2),
           result-inter-versc-fpper+0(4),
           result-inter-versc-abkrs,
           / 'In-period/payroll area: '(005),
           30 result-inter-versc-inper+4(2),
           result-inter-versc-inper+0(4),
           result-inter-versc-iabkrs.
  skip 1.
  gwa_payroll-text = 'For'.
  move result-inter-versc-fpper to gwa_payroll-date.
  move result-inter-versc-fpper+4(2) to gwa_payroll-month.
  move result-inter-versc-fpper+0(4) to gwa_payroll-year.
  move result-inter-versc-abkrs to gwa_payroll-abkrs.
  append gwa_payroll to gtab_payroll.
  gwa_payroll-text = 'In'.
  move result-inter-versc-fpper to gwa_payroll-date.
  move result-inter-versc-inper+4(2) to gwa_payroll-month.
  move result-inter-versc-inper+0(4) to gwa_payroll-year.
  move result-inter-versc-iabkrs to gwa_payroll-abkrs.
  append gwa_payroll to gtab_payroll.
  write: 'Results table: '(006).
  skip 1.
  loop at result-inter-rt into rt_header.
    perform re512t using result-inter-versc-molga
                         rt_header-lgart.
    write: / rt_header-lgart,
             t512t-lgtxt,
             rt_header-betrg currency rt_header-amt_curr.
move rt_header-lgart to gwa_result-lgart.
move t512t-lgtxt to gwa_result-lgtxt.
move rt_header-betrg to gwa_result-betrg.
append gwa_result to gtab_result.
  endloop.
endform.                    "print_rx
      FORM RE512T                                          *
      Read Wage Type Texts
form re512t using value(country_grouping)
                  value(wtype).
  check t512t-sprsl ne sy-langu
     or t512t-molga ne country_grouping
     or t512t-lgart ne wtype.
  select single * from t512t
              where sprsl eq sy-langu
              and   molga eq country_grouping
              and   lgart eq wtype.
  if sy-subrc ne 0.
    clear t512t.
  endif.
endform.                                                    "re512t