Using Internal tables in ABAP Objects
Page 1 of 1
Using Internal tables in ABAP Objects
*&---------------------------------------------------------------------*
*& Report Z_10
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z_OOPS_10.
TYPES:BEGIN OF TY_EKPO,
EBELN TYPE EBELN,EBELP TYPE EBELP,MENGE TYPE EKPO-MENGE,NETPR TYPE EKPO-NETPR,
END OF TY_EKPO.
DATA: IT_EKPO TYPE STANDARD TABLE OF TY_EKPO.
DATA: WA_EKPO TYPE TY_EKPO.
*----------------------------------------------------------------------*
* CLASS c1 DEFINITION
*----------------------------------------------------------------------*
CLASS C1 DEFINITION.
PUBLIC SECTION.
METHODS: GET_EKPO IMPORTING EBELN TYPE EBELN
EXPORTING ITAB_EKPO TYPE ANY TABLE.
ENDCLASS. "c1 DEFINITION
.
*----------------------------------------------------------------------*
* CLASS c1 IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS C1 IMPLEMENTATION.
METHOD: GET_EKPO.
SELECT EBELN EBELP MENGE NETPR FROM EKPO INTO TABLE ITAB_EKPO
WHERE EBELN = EBELN.
ENDMETHOD. "get_ekpo
ENDCLASS. "c1 IMPLEMENTATION
START-OF-SELECTION.
PARAMETERS: P_EBELN TYPE EBELN.
DATA: O1 TYPE REF TO C1.
CREATE OBJECT O1.
CALL METHOD O1->GET_EKPO
EXPORTING
EBELN = P_EBELN
IMPORTING
ITAB_EKPO = IT_EKPO.
LOOP AT IT_EKPO INTO WA_EKPO.
WRITE: / WA_EKPO-EBELN,WA_EKPO-EBELP,WA_EKPO-MENGE,WA_EKPO-NETPR.
ENDLOOP.
*& Report Z_10
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z_OOPS_10.
TYPES:BEGIN OF TY_EKPO,
EBELN TYPE EBELN,EBELP TYPE EBELP,MENGE TYPE EKPO-MENGE,NETPR TYPE EKPO-NETPR,
END OF TY_EKPO.
DATA: IT_EKPO TYPE STANDARD TABLE OF TY_EKPO.
DATA: WA_EKPO TYPE TY_EKPO.
*----------------------------------------------------------------------*
* CLASS c1 DEFINITION
*----------------------------------------------------------------------*
CLASS C1 DEFINITION.
PUBLIC SECTION.
METHODS: GET_EKPO IMPORTING EBELN TYPE EBELN
EXPORTING ITAB_EKPO TYPE ANY TABLE.
ENDCLASS. "c1 DEFINITION
.
*----------------------------------------------------------------------*
* CLASS c1 IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS C1 IMPLEMENTATION.
METHOD: GET_EKPO.
SELECT EBELN EBELP MENGE NETPR FROM EKPO INTO TABLE ITAB_EKPO
WHERE EBELN = EBELN.
ENDMETHOD. "get_ekpo
ENDCLASS. "c1 IMPLEMENTATION
START-OF-SELECTION.
PARAMETERS: P_EBELN TYPE EBELN.
DATA: O1 TYPE REF TO C1.
CREATE OBJECT O1.
CALL METHOD O1->GET_EKPO
EXPORTING
EBELN = P_EBELN
IMPORTING
ITAB_EKPO = IT_EKPO.
LOOP AT IT_EKPO INTO WA_EKPO.
WRITE: / WA_EKPO-EBELN,WA_EKPO-EBELP,WA_EKPO-MENGE,WA_EKPO-NETPR.
ENDLOOP.
Similar topics
» Interactive ALV Reporting using ABAP Objects in SAP
» Creating multiple Objects in ABAP Objects
» Difference between Procedural ABAP and ABAP Objects
» What is ABAP Objects?
» Advantages of ABAP Objects?
» Creating multiple Objects in ABAP Objects
» Difference between Procedural ABAP and ABAP Objects
» What is ABAP Objects?
» Advantages of ABAP Objects?
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
Mon Aug 20, 2012 4:37 pm by Admin
» Difference between Type and Like
Thu Jun 07, 2012 2:40 pm by Admin
» How to handle table control fields in Module Pool program?
Wed May 09, 2012 2:41 am by govind
» Three tables inner join in SAP
Thu May 03, 2012 4:47 pm by Uma_ABAP
» Creating table type in ABAP
Sat Apr 28, 2012 9:03 pm by Uma_ABAP
» Creating user defined types and structures in ABAP
Sat Apr 28, 2012 8:55 pm by Uma_ABAP
» Creating Dynamic Internal Table and Dynamic Field catalog in SAP-ABAP
Fri Apr 27, 2012 11:00 am by Admin
» Copy Custom PF-Status from Standard program to Custom Program in ALV
Thu Apr 26, 2012 9:52 pm by Uma_ABAP
» Calculate/find number of working days between two dates in SAP
Tue Apr 24, 2012 2:06 pm by Uma_ABAP