Tabellenverarbeitung Ext Tabelle Int Tabelle...

Code: Alles auswählen.

DATA:
  BEGIN OF inttab OCCURS 10,            " Internal Table
    persnmbr  LIKE  pernr-pernr,        " Personnel Number
    lastname  LIKE  p0002-nachn,        " Last Name
    frstname  LIKE  p0002-vorna,        " First Name
    hcfunctn  LIKE  hrp1000-stext,      " Headcount Function
    supervsr  LIKE  p0002-vorna,        " Supervisor Name
    jobtitle  LIKE  hrp1000-stext,       " Job Title
    postitle  LIKE  hrp1000-stext,       " Position Title
    orgnunit  LIKE  p0001-orgeh,        " Organizational Unit
    persarea  LIKE  p0001-werks,        " Personnel Area
    psubarea  LIKE  p0001-btrtl,        " Personnel Subarea
    areatext  LIKE  t001p-btext,        " Personnel Subarea Text
    paygrade  LIKE p0008-trfgr,         " Pay Grade
    ansalary  LIKE p0008-ansal,         " Annual Salary
    hiredate  LIKE  p0041-dat01,        " Hire Date
    rehiredt  LIKE  p0041-dat01,        " Rehire Date
    termdate  LIKE  p0041-dat01,        " Termination Date
    adjsrvdt  LIKE p0041-dat01,         " Adjusted Service Date
    gendertx(6) TYPE c,                 " Male/Female
    datediff(1) TYPE c,
    superprn  LIKE  p0002-pernr,        " Supervisor Pers. #

Code: Alles auswählen.

SELECTION-SCREEN BEGIN OF BLOCK selection WITH FRAME TITLE text-001.
SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT (15) text-s01 FOR FIELD persa.
PARAMETERS: persa like p0001-werks.

SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK selection.

Code: Alles auswählen.

START-OF-SELECTION.

  SELECT * FROM pa0001 INTO CORRESPONDING FIELDS OF TABLE inttab.


  LOOP AT inttab INTO wa_inttab.
    WRITE: / wa_inttab-persarea.
  ENDLOOP.