Classical ABAP interactive report

*&---------------------------------------------------------------------*
*& Report ZREP_006
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZREP_006 NO STANDARD PAGE HEADING.

TABLES: PA0001.

TYPES: BEGIN OF T_PA0001,
PERNR TYPE PA0001-PERNR,
SUBTY TYPE PA0001-SUBTY,
OBJPS TYPE PA0001-OBJPS,
SPRPS TYPE PA0001-SPRPS,
ENDDA TYPE PA0001-ENDDA,
BEGDA TYPE PA0001-BEGDA,
SEQNR TYPE PA0001-SEQNR,
BUKRS TYPE PA0001-BUKRS,
WERKS TYPE PA0001-WERKS,
PERSG TYPE PA0001-PERSG,
PERSK TYPE PA0001-PERSK,
BTRTL TYPE PA0001-BTRTL,

ORGEH TYPE PA0001-ORGEH,
PLANS TYPE PA0001-PLANS,
ENAME TYPE PA0001-ENAME,
END OF T_PA0001.

TYPES: BEGIN OF T_PA0185,
PERNR TYPE PA0185-PERNR,
SUBTY TYPE PA0185-SUBTY,
OBJPS TYPE PA0185-OBJPS,
SPRPS TYPE PA0185-SPRPS,
ENDDA TYPE PA0185-ENDDA,
BEGDA TYPE PA0185-BEGDA,
SEQNR TYPE PA0185-SEQNR,
ICNUM TYPE PA0185-ICNUM,
END OF T_PA0185.

DATA: IT_PA0001 TYPE TABLE OF T_PA0001 WITH HEADER LINE,
WA_PA0001 TYPE T_PA0001,

IT_PA0185 TYPE TABLE OF T_PA0185,
WA_PA0185 TYPE T_PA0185.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_PERNR FOR PA0001-PERNR.

SELECT-OPTIONS: S_PERSG FOR PA0001-PERSG.
SELECT-OPTIONS: S_PERSK FOR PA0001-PERSK.
SELECT-OPTIONS: S_WERKS FOR PA0001-WERKS.
SELECT-OPTIONS: S_BTRTL FOR PA0001-BTRTL.
SELECTION-SCREEN END OF BLOCK B1.

START-OF-SELECTION.

SELECT PERNR
SUBTY
OBJPS
SPRPS
ENDDA
BEGDA
SEQNR
BUKRS
WERKS
PERSG
PERSK
BTRTL
ORGEH
PLANS
ENAME FROM PA0001 INTO TABLE IT_PA0001
WHERE PERNR IN S_PERNR
AND ENDDA EQ '99991231'

AND PERSG IN S_PERSG
AND PERSK IN S_PERSK
AND WERKS IN S_WERKS
AND BTRTL IN S_BTRTL.

ULINE.
WRITE: 58 'Employee Information' COLOR 7.
ULINE.ULINE.

WRITE : 000 'Employee No' COLOR 1, 019 SY-VLINE,
020 'Employee Name' COLOR 2, 059 SY-VLINE,
060 'Company Code' COLOR 3, 079 SY-VLINE,
080 'Emp Group'

COLOR 4, 099 SY-VLINE,

100 'Emp Subgroup' COLOR 5.
ULINE.

LOOP AT IT_PA0001." INTO WA_PA0001.

WRITE : IT_PA0001-PERNR UNDER 'Employee No' , 019 SY-VLINE,
IT_PA0001-ENAME UNDER 'Employee Name', 059 SY-VLINE,
IT_PA0001-BUKRS UNDER 'Company Code' , 079 SY-VLINE,
IT_PA0001-PERSG UNDER 'Emp Group' , 099 SY-VLINE,
IT_PA0001-PERSK UNDER 'Emp Subgroup' .
HIDE IT_PA0001-PERNR.
ULINE.

ENDLOOP.

AT LINE-SELECTION.

SELECT PERNR
SUBTY
OBJPS
SPRPS
ENDDA
BEGDA
SEQNR
ICNUM FROM PA0185
INTO TABLE IT_PA0185
WHERE PERNR = IT_PA0001-PERNR.

LOOP AT IT_PA0185 INTO WA_PA0185.

WRITE : WA_PA0185-PERNR ,
IT_PA0001-ENAME ,
WA_PA0185-ICNUM .
SKIP.

ENDLOOP.

Classical ABAP interactive report

Recommended

Recommended

More Related Content

Viewers also liked

Viewers also liked (20)

Similar to Classical ABAP interactive report

Similar to Classical ABAP interactive report (20)

Recently uploaded

Recently uploaded (20)

Classical ABAP interactive report