Scribd
Upload
20 views3 pages

Mod Tech

The document is an ABAP report named ZVR_MOD_TECH that includes employee data and displays information for employees in specific departments. It defines a work area for employee details, uses macros to fill and calculate data, and loops through employee records to display their information. The report includes commented-out sections for additional functionality and data manipulation.

Uploaded by

Pradeep S
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
20 views3 pages

Mod Tech

The document is an ABAP report named ZVR_MOD_TECH that includes employee data and displays information for employees in specific departments. It defines a work area for employee details, uses macros to fill and calculate data, and loops through employee records to display their information. The report includes commented-out sections for additional functionality and data manipulation.

Uploaded by

Pradeep S
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd

*&---------------------------------------------------------------------*

*& Report ZVR_MOD_TECH


*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zvr_mod_tech LINE-SIZE 300.

INCLUDE zvi_employee_data.

SKIP 2.
ULINE.
SKIP 2.

INCLUDE zvi_multiple_inlcude.

******************************************************
*INCLUDE zvi_employee_data.
****DISPLAY EMPLOYEE DEPT DATA
*LOOP AT it_emp INTO wa_emp WHERE edept = 'SAP ABAP'.
* WRITE :/ wa_emp-eid,
* wa_emp-ename,
* wa_emp-edept,
* wa_emp-emob,
* wa_emp-email,
* wa_emp-esal,
* wa_emp-eaddr.
*ENDLOOP.

*************************************************
****declaration of work area
*DATA : BEGIN OF wa_emp,
* eid(10) TYPE c,
* ename(35) TYPE c,
* edept(15) TYPE c,
* edesg(20) TYPE c,
* edoj TYPE dats,
* etoj TYPE time,
* emob(10) TYPE n,
* email(50) TYPE c,
* esal TYPE i,
* eaddr TYPE string,
* END OF wa_emp,
* it_emp LIKE TABLE OF wa_emp.
*
****define macro
*DEFINE fill_emp_data.
****fill data manually to work area
* wa_emp-eid = &1.
* wa_emp-ename = &2.
* wa_emp-edept = &3.
* wa_emp-edesg = &4.
* wa_emp-edoj = &5.
* wa_emp-etoj = &6.
* wa_emp-emob = &7.
* wa_emp-email = &8.
* wa_emp-esal = &9.
** wa_emp-eaddr = &10.
* append wa_emp to it_emp.
* clear wa_emp.
*
*END-OF-DEFINITION.
*
****calling pf macro
*fill_emp_data : 'KFS1000' 'SAMEER' 'SAP ABAP' 'TECH CONSULTANT' '10102016'
'101112' '999999' 'SAMEER@[Link]' '50000', " 'AMEERPET'.
* 'KFS2000' 'GIRISH' 'SAP CA' 'SR TECH CONS' '06102015' '091112'
'888888' 'GIRISH@[Link]' '50000',
* 'KFS3000' 'MOHAN' 'SAP OABAP' 'OABAP CONSULTANT' '08102014'
'101112' '7777777' 'MOHAN@[Link]' '50000',
* 'KFS4000' 'NEELESH' 'SAP SD' 'FUNC CONSULTANT' '07102013' '101112'
'6666666' 'NEELESH@[Link]' '50000',
* 'KFS5000' 'SABER' 'SAP MM' 'MM CONSULTANT' '07102012' '101112'
'555555' 'SABER@[Link]' '50000'.
*
*
****DISPLAY EMPLOYEE DEPT DATA
*LOOP AT it_emp INTO wa_emp.
* WRITE :/ wa_emp-eid,
* wa_emp-ename,
* wa_emp-edept,
* wa_emp-edesg,
* wa_emp-edoj,
* wa_emp-etoj,
* wa_emp-emob,
* wa_emp-email,
* wa_emp-esal.
** wa_emp-eaddr.
*ENDLOOP.
********************************************************
****declaration of variables
*DATA : lv_var1 TYPE i VALUE 10,
* lv_var2 TYPE i VALUE 20,
* lv_res TYPE i.
*
****definition of macro
*DEFINE calculation.
*
* lv_res = ( &1 + 10 ) + ( &2 + 20 ).
*
*END-OF-DEFINITION.
*
****calling of macros
*calculation lv_var1 lv_var2.
*WRITE :/ lv_res.
*
*calculation 200 300.
*WRITE :/ lv_res.
*
*calculation 20 30.
*WRITE :/ lv_res.
*
*calculation 120 200.
*WRITE :/ lv_res.

You might also like