AMDP class Using Select-Options

CLASS zvb_amdp_class1 DEFINITION

  PUBLIC

  FINAL

  CREATE PUBLIC .

 

  PUBLIC SECTION.

    TYPES: tt_vbeln TYPE RANGE OF vbeln,

           BEGIN OF ty_vbak,

             mandt TYPE vbak-mandt,

             vbeln TYPE vbak-vbeln,

             erdat TYPE vbak-erdat,

             ernam TYPE vbak-ernam,

           END OF ty_vbak,

           tt_vbak TYPE TABLE OF ty_vbak.

 

    CLASS-METHODS:so_data IMPORTING VALUE(it_vbeln) TYPE tt_vbeln

                                    VALUE(iv_mandt) TYPE symandt

                          EXPORTING VALUE(et_so)    TYPE tt_vbak  .

 

    INTERFACES:if_amdp_marker_hdb.

  PROTECTED SECTION.

  PRIVATE SECTION.

ENDCLASS.

 

CLASS zvb_amdp_class1 IMPLEMENTATION.

 

  METHOD so_data BY DATABASE PROCEDURE FOR HDB LANGUAGE SQLSCRIPT OPTIONS READ-ONLY USING vbak.

    et_so = select mandt,

                   vbeln,

                   erdat,

                   ernam

                   FROM vbak as a

                   INNER JOIN :it_vbeln as b 

     ON ( a.vbeln between b.low and b.high AND b.sign = 'I' AND b.option = 'BT' )

     OR ( a.vbeln = b.low AND b.sign = 'I' AND b.option = 'EQ' ) 

     WHERE mandt = :iv_mandt;

  ENDMETHOD.

ENDCLASS.

 

Call AMDP in Report

 

REPORT zsd_test.
TABLES: vbak.

SELECT-OPTIONS: so_vbeln FOR vbak-vbeln.

CALL METHOD zvb_amdp_class1=>so_data
  EXPORTING
    it_vbeln = so_vbeln[]
    iv_mandt = sy-mandt
  IMPORTING
    et_so    = DATA(lt_vbeln).

cl_demo_output=>Display( lt_vbeln ).

 

Report:

  

 

Comments

Post a Comment

Popular posts from this blog

Passing Dynamic Variables to SO10 TEXT

REPORT  ZTEST_POPUP . PARAMETERS : A  TYPE  i ,  B  TYPE  i . DATA:  C TYPE  i ,       lv_text  TYPE  string , C  =  A + B .   data : it_final  TYPE  TABLE  OF  tline . DATA : CHANGED  TYPE  STRING . CALL  FUNCTION  'READ_TEXT'    EXPORTING     CLIENT                         =  SY - MANDT      id                             =  'ST'      language                       =  SY - LANGU  ...
Read more

Implicit Enhancement with Example

    Implicit Enhancement : Implicit point is available at the starting or at the last of the Program,Sub routines, Function Modules etc. We will create the Implicit Implementation using those points  Example:  Changing the Title of the Presentation Layer while using the Function Module 'F4_FILENAME'. 1.Go to T-code 'SE37'. 2.Execute the FM 'F4_FILENAME'.   Now the title is 'File Select.'. We are changing this title to 'Choose file'.  3.The Title is coming from the FM 'WS_FILENAME_GET'. Steps to create Implicit Enhancement: 1.Go to T-code 'SE37'. 2.Enter FM ' WS_FILENAME_GET'. 3.Click on 'Display'. 4.click on 'Edit'. 5.Click on 'Enhancement Operations'.  6.Click on 'Show Implicit Enhancement Options'.   7.Click on the 'Enhance' Icon.  8.Right click on the implicit points (""""""""""""""""""...
Read more

TMG Events

Image
In SAP ABAP, TMG (Table Maintenance Generator) events are used to customize the behavior of table maintenance dialogs generated by the Table Maintenance Generator. The Table Maintenance Generator is a tool provided by SAP that allows developers to create basic maintenance screens for database tables without having to write extensive ABAP code. TMG events are predefined function modules that are called at specific points during the execution of the table maintenance dialog. These events provide developers with hooks to add custom logic or validations to the standard table maintenance process without modifying the generated code. Some common TMG events in SAP ABAP include: BEFORE OUTPUT: This event is triggered before the maintenance screen is displayed. Developers can use this event to modify the screen layout or initialize screen fields. AFTER INPUT: This event is triggered after the user enters data on the maintenance screen and clicks the save button. Developers can ...
Read more