MPP- model dialog box in ABAP

 Step 1: Goto SE80. 

Step 2: Select program and give program name and click on display (If we click on display button it is asking to create).

Step 3: Select create with top include check box and press enter. Give top include name.

Step 4: Save the program.

Step 5: Right click on program name and choose to create and click on screen. Give screen number and press enter.



Step 6: Give short description and choose Dynpro type (Normal screen). Save the screen and activate.
Step 7: Right click on program name and choose to create and click on screen. Give screen number and press enter.

Step 8:  Give short description and choose Dynpro type (Model dialog box). Save the screen and activate.

Step 9: Double click on top include and write code related to structure, work area, internal tables. 

                      PROGRAM zab_mpp_mdb.

        TABLES: vbak.
        TYPES: BEGIN OF ls_vbak,
             vbeln TYPE vbak-vbeln,
             erdat TYPE vbak-erdat,
             erzet TYPE vbak-erzet,
             ernam TYPE vbak-ernam,
             auart TYPE vbak-auart,
               END OF ls_vbak.
        DATA: lr_vbak TYPE ls_vbak,
              lt_vbak TYPE TABLE OF ls_vbak,
              p_vbeln TYPE vbak-vbeln.

Step 10: Double click on 1000 screen number, click on layout design screen.

                * Click on text field and drag give name (VBELN_LA) and text.

                * Click on input/output field and drag and give name(P_VBELN). 

                * Click on push button and drag give name, text, fctcode(FSUBMIT).



             * Save and activate the screen.

Step 11: Double click on 2000 screen number, click on layout design screen.

            * Click on 'dictionary/program fields' and give table name VBAK and click on 'get from dictionary'.

               * Choose fields and select ok.

               * Click on push button and drag give name, text, fctcode(FOK).

              * Change output field name because I declared Work area as LR_VBAK.

              * Declared like LR_VBAK-VBELN.


Step 12: Double click on 1000 screen number and uncomment the module user command.

            * Double click on module user command and create object.

            * Write code.

        MODULE user_command_1000 INPUT.
      CASE  sy-ucomm.
        WHEN 'FSUBMIT'.

          SELECT SINGLE  vbeln erdat erzet ernam auart
            FROM vbak
            INTO lr_vbak
            WHERE vbeln = p_vbeln.
          CALL SCREEN 2000 STARTING AT 10 20
                     ENDING AT 40 50.
      ENDCASE.
    ENDMODULE.

Step 13: Double click on 2000 screen number and uncomment the module user command.

            * Double click on module user command and create object.

            * Write code.

       MODULE user_command_2000 INPUT.

      CASE sy-ucomm.
        WHEN 'FOK'.
          LEAVE TO SCREEN 0.
      ENDCASE.
    ENDMODULE.

Step 14: Right click on program and create transaction code.

            * Give t code name and short text. and start object dialog transaction. Press enters.

    * Give program name and screen number and click on save.


Input



Output



Full code

INCLUDE zab_mpp_mdb_top                      

MODULE user_command_1000 INPUT.
  CASE  sy-ucomm.
    WHEN 'FSUBMIT'.

      SELECT SINGLE  vbeln erdat erzet ernam auart
        FROM vbak
        INTO lr_vbak
        WHERE vbeln = p_vbeln.
      CALL SCREEN 2000 STARTING AT 10 20
                     ENDING AT 40 50.
  ENDCASE.
ENDMODULE.

MODULE user_command_2000 INPUT.
  CASE sy-ucomm.
    WHEN 'FOK'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.

*******************************Top*********************************

PROGRAM zab_mpp_mdb.

TABLES: vbak.
TYPES: BEGIN OF ls_vbak,
         vbeln TYPE vbak-vbeln,
         erdat TYPE vbak-erdat,
         erzet TYPE vbak-erzet,
         ernam TYPE vbak-ernam,
         auart TYPE vbak-auart,
       END OF ls_vbak.
DATA: lr_vbak TYPE ls_vbak,
      lt_vbak TYPE TABLE OF ls_vbak,
      p_vbeln TYPE vbak-vbeln.


******************************End of top*********************************

******************************Thank You***************************

Comments

Post a Comment

Popular posts from this blog

Pf status and user command in factory method - OOPS ALV in ABAP

Image
  1. Goto  SE38 . 2. Give  program name  and click on  create . 3. Give  title  and  click on save . 4. Write  code. REPORT  zab_rp_oops_pfstatus_ucomm . TABLES :   ekko , ekpo . TYPES :   BEGIN  OF  ty_ekko ,          ebeln  TYPE  ekko - ebeln ,          bukrs  TYPE  ekko - bukrs ,          bstyp  TYPE  ekko - bstyp ,          bsart  TYPE  ekko - bsart ,         END  OF  ty_ekko . TYPES :   BEGIN  OF  ty_ekpo ,          ebeln  TYPE  ekpo - ebeln ,          ebelp  TYPE  ekpo - ebelp ,          matnr  TYPE  ekpo - matnr ,          werks  TYPE  ekpo - werks ,         END  OF  ty_ekpo . DATA :   lt_ekko  TYPE  TABLE  OF  ty_ekko ,       lr_ekko  TYPE  ty_ekko ,       lt_ekpo  TYPE  TABLE  OF  ty_ekpo ,       lr_ekpo  TYPE  ty_ekpo . DATA :   lo_salv1 TYPE   REF  TO  cl_salv_table ,       lo_salv2  TYPE  REF  TO  cl_salv_table ,       lo_events  TYPE  REF  TO  cl_salv_events_table ,       lo_grid    TYPE  REF  TO  cl_gui_alv_grid ,       lt_rows    TYPE  lvc_t_row ,       lr_rows    TYPE 
Read more

fetch the data from table and send an email in ABAP

Image
  Send an email in abap. REPORT  ZAJAY_EF_ZSTU . tables : zstu . data :  maildata  LIKE  sodocchgi1 ,       mailtxt   LIKE  solisti1  OCCURS  10  WITH  HEADER  LINE ,       mailrec   LIKE  somlrec90  OCCURS  0  WITH  HEADER  LINE ,       it_zstu  type  table  of  zstu  WITH  HEADER  LINE ,       wa_zstu  type  zstu . START-OF-SELECTION .      clear : maildata , mailtxt , mailrec .      REFRESH : mailtxt , mailrec . select-OPTIONS  :  s_id  for  zstu - zstu_id . SELECT  *  from  zstu  into  TABLE  it_zstu  where  zstu_id  in  s_id .    sort  it_zstu  by  zstu_id . maildata - obj_descr  =  | Employee details | . mailtxt  =  '<!DOCTYPE html>' . append  mailtxt . mailtxt  =  '<html lang="en">' . append  mailtxt . mailtxt  =  '<head>' . append  mailtxt .   mailtxt  =  '<title>Email Functionality</title>' .   append  mailtxt . * mailtxt = ' <style>'. * append mailtxt. * *  mailtxt = 'table, th, td { bor
Read more

Enhancements in abap

 Enhancements     *  Will enhance the sap functionality in customer name space.     *  Customer  name space-> (z or y) Modifications      *  Will enhance the sap functionality in sap name space.     *  Name  should not start with z or y. Types      1. Implicit and Explicit enhancements { enhancements }      2. Customer exit. { enhancements }      3. Badi { enhancements }      4. User exit { modification } Implicit      *  Implicit point is available at the starting or at the last of program.     *  Subroutines, function  modules  etc. Explicit        *  Explicit point & section are available at any line.     *  Point  - It will not give default implementation .                     -  You can only add additional codes, you can't replace the existing code.     *  Section - It will give default implementation .      -  You can change or replace the existing code. BADI             - Badi is an enhancement. we enhance the sap functionalities in customer name space. -
Read more