HR Logical database PNP. OO to fill table dynamic table from PNP ?

Question

Hi all
I want to get some stuff from the HR logical database into a dynamic table
Here's a real simple example that writes info out to a normal list.
(report is based on using Logical DB PNP)
tables: pernr.
INFOTYPES: 0001,                     "Organizational Assignment
           0002.                     "Personal Data
SELECT-OPTIONS: language FOR p0002-sprsl.
INITIALIZATION.
  pnptimed = 'D'.
GET pernr.
  PROVIDE * FROM p0002 BETWEEN pn-begda AND pn-endda.
    CHECK language.
    WRITE: / p0002-pernr,
             sy-vline,
             p0001-ename,
             sy-vline,
             p0002-sprsl,
             sy-vline,
             p0002-gbdat.
  ENDPROVIDE.
endform.
Now what I want to do is replace the write stuff by appending the entries into a dynamic table which I will display as an ALV Grid.
so I add my structure in the data declarations
types:  begin of s_elements,
   pernr  type  p0002-pernr,
   ename  type p0001-ename,
   sprsl  type p0002-sprsl,
   gbdat   type p0002-gbdat.
  drop_down_handle  type int4.
types: end of    s_elements.
include zz_jimbo_incl.
build the dynamic table
create data dref type s_elements.
  assign dref->* to <fs>.
  i_routine = 'POPULATE_DYNAMIC_ITAB'.*
i_names   = 'NAME_COLUMNS'.
  i_gridtitle = 'HR  TEST'.
invoker = sy-repid.
i_zebra = 'X '.
i_edit = '  '.
call function 'ZZ_CALL_SCREEN'
     exporting
          invoker     = invoker
          my_line     = <fs>
          i_gridtitle = i_gridtitle
          i_edit      = i_edit
          i_zebra     = i_zebra
          i_names     = i_names
          i_routine   = i_routine
     importing
          z_object    = z_object
          dy_table    = dy_table.
Now to populate the dynamic Itab the routine below is entered.
form populate_dynamic_itab changing dy_table.
  assign dy_table->* to <dyn_table>.
  create data dy_line like line of <dyn_table>.
  assign dy_line->* to <dyn_wa>.
However I can't use GET / PROVIDE / ENDPROVIDE in a Form.
Anyway round this ---seems HR has an aversion to OO.
Cheers
jimbo

Answer 1

Hi,
well, GET_PERNR is a so called event_statement. It has nothing to do with ABAP 00.
Normally it will be like this:
START-OF-SELECTION.
GET_PERNR.
PROVIDE ....
END-OF-SELECTION.
-> and here the CALL SCREEN NNNN for ALV-Display.
Provide-statements you can use in forms of course, and as many times you want during GET and END-OF-SELECTION.
But as I understood : you just want to save the write-statements?
I always develop a DDIC-Structure, declarate the data objects in the programm, read the data via Provide into the infotypes, and then make a move-corresponding to my structure. and display it.
Normally no problem.
kind regards
maik