ABAP REPORTS: August 2008

SAP ABAP SYNTAX LEARNING POINT

Find syntax for different key words of sap abap here.

ADD CORRESPONDING

ASSIGN PART ONE

ASSIGN PART TWO

CONTROL BREAK

EVENTS IN LISTS

EVENTS IN LISTS PART TWO

EVENTS ON SELECTION SCREEN PART ONE

EVENTS ON SELECTION SCREEN PART TWO

AUTHORITY CHECK

BACK

BREAK POINT

CALL FUNCTION PART ONE

CALL FUNCTION PART TWO

CALL FUNCTION PART THREE

CALL FUNCTION PART FOUR

CALL FUNCTION PART FIVE

CALL METHOD

CALL SCREEN

CALL TRANSACTION

CHECK

CHECK WITH IN LOOP

CLEAR

CLOSE AND CNT

COLLECT

COMMIT

COMMUNICATION PART ONE

COMMUNICATION PART TWO

COMMUNICATION PART THREE

COMMUNICATION PART FOUR

COMMUNICATION PART FIVE

COMPUTE PART ONE

COMPUTE PART TWO

COMPUTE PART THREE

CONCATENATE

CONDENSE

CONSTANTS

TABLE CONTROL

CONVERT

CREATE

DATA PART ONE

DATA PART TWO

DATA PART THREE

DATA PART FOUR

DATA PART FIVE

DATA PART SIX

DEFINE

DELETE PART ONE

DELETE PART TWO

DELETE PART THREE

DELETE PART FOUR

DELETE PART FIVE

DELETE FROM DATA

DELETE PROGRAM

DESCRIBE PART ONE

DESCRIBE PART TWO

DESCRIBE PART THREE

DESCRIBE PART FOUR

DESCRIBE PART FIVE

DESCRIBE PART SIX

DESCRIBE PART SEVEN

DETAIL

DIVIDE

DO

EDITOR CALL PART ONE

EDITOR CALL PART TWO

ELSE AND ELSE-IF

EXEC

EXPORT PART ONE

EXPORT PART TWO

FETCH

FIELD SYMBOLS

FORM

FORM PART TWO

ABAP COMPLETE SERIES

Welcome to the ABAP WORLD ,the wonderful programming language of SAP.

This FIFTY SEVEN DAY COURSE will teach every thing regarding SAP ABAP ,right from basics to most advanced topics.

Let us start browsing day wise

SAP NAVIGATION DAY 1

SAP ARCHETECHERE DAY 2

ABAP WORK BENCH TOOLS DAY 3

ABAP DATA OBJECTS DAY 4

SAP DATA BASE DIALOG DAY 5

INTERNAL PROGRAM MODULSRIZATION DAY 6

USER DIALOGS AND LISTS DAY 7

USER DIALOG AND SELECTION DAY 8

USER DIALOGS AND SCREEN DAY 9

REUSE COMPONENTS IN ABAP DAY 10

MANAGING ABAP PROJECT OBJECTS DAY 11

ABAP DICTIONARY INTRODUCTION DAY 12

PERFORMANCE DURING TABLE ACCESS IN ABAP DAY 13

DATA CONSISTENCY IN ABAP DAY 14

DEPENDENCIES IN ABAP DICTIONARY DAY 15

CHANGING DATA BASE TABLES IN SAP DAY 16

DATA BASE VIEWS IN ABAP DAY 17

SEARCH HELP USING ABAP DAY 18

ABAP RUN TIME ENVIRONMENT DAY 19

DATA TYPES AND DATA OBJECTS DAY 20

ABAP STATEMENTS DAY 21

ROLE OF INTERNAL TABLE IN ABAP DAY 22

ABAP SUB ROUTINES DAY 23

FUNCTION GROUPS AND FUNCTION MODULES IN ABAP DAY 24

CALLING PROGRAMS AND PASSING DATA IN SAP DAY 25

TECHNIQUES FOR LIST CREATION DAY 26

LOGICAL DATA BASES LDB DAY 28

SELECTOIN SCREEN FOR ABAP PROGRAM DAY 29

PROGRAMMING DATA RETRIVAL IN ABAP DAY 30

SAP QUARY ADMISTRATION DAY 31

DATA FORMATION FOR OUTPUT DAY 32

SAVING LISTS IN BACK GROUND DAY 33

ALV GRID CONTROL IN REPORTS DAY 34

INTERACTIVE REPORTS BASICS DAY 35

PROGRAM INTERFACE AN INTRODUCTION DAY 36

INTERACTIVE REPORT LIST TECHNIQUES DAY 37

SCREEN PROGRAMMING AN INTRODUCTION DAY 38

SCREEN ELEMENTS FOR OUTPUT ABAP REPORT DAY 39

SCREEN ELEMENTS FOR INPUT DAY 40

SCREEN ELEMENTS AND SUB SCREENS DAY 41

SCREEN ELEMENTS IN TABLE DAY 42

CONTEXT MENU IN THE SCREEN DAY 43

LISTS IN SCREEN PROGRAMMING DAY 44

DATA BASE UPDATAS AN OVERVIEW DAY 45

LWS AND CLINET SERVER DAY 46

SAP LOCK CONCEPT DAY 47

ORGANIZING DATA BASE UPDATS DAY 48

COMPLEX LUW PROCESSING DAY 49

AUTHORIZATION CHECKS IN ABAP DAY 50

CHANGING THE SAP STANDARD DAY 51

ENHANCEMENTS TO ABAP DICTIONARY DAY 52

BUSINESS TRANSACTION EVENTS IN SAP DAY 53

ENHANCEMENTS USING CUSTOMER EXITS DAY 54

BUSINESS ADD-IN'S IN SAP DAY 55

MODIFICAITONS TO SAP DAY 56

MODIFICATIONS TO SAP EXTENDED DAY 57

All adapters (including IDoc and HTTP) are configured centrally in the Integration Directory. There you can specify whether an adapter is to be located at the inbound channel (sender adapter) or at the outbound channel (receiver adapter) of an Integration Engine Reuse of Integration Directory’s existing versioning and transport capabilities Central administration and monitoring over adapters, Integration Server, Integration Engine through Runtime Workbench Adapters can be hosted separately, possible on another host The J2EE adapter engine is based on the open JCA architecture. This is part of the J2EE standard.

Read the remaining article about SAP XI ADAPTER ENGINE HERE.

BADI DEFINATION SCREEN SHOTS

Sap business enhancements definition and its process can be learned here.

Define an interface for the enhancement in the SAP menu under Tools ® ABAP Workbench ® Utilities ® Business Add-Ins (transaction SE18) and call this interface at the appropriate point in their application program. Customers can then select the add-in and implement it according to their needs.

Read complete article heref.

SAP ABAP MODIFICATIONS OVER VIEW

CODE FOR FINDING EXITS,BADIS

*& Selection Texts:
*& P_ALV   ALV format
*& P_AUTH   Include authority-check search
*& P_BADI   Display BADIs
*& P_BTE   Display business trans events
*& P_DEVC   Show development class exits
*& P_EXIT   Display user exits
*& P_FUNC   Show function modules
*& P_LIMIT   Limit no. of submits to search
*& P_LST   Standard list format
*& P_PNAME   Program name
*& P_PROG   Display program exits
*& P_SUBM   Show submits
*& P_TCODE   Transaction code
*& P_TEXT   Search for text
*& P_WFLOW   Display workflow links
*&--------------------------------------------------------------------&*
*& Text symbols:
*& M01   Enter TCode or program
*& M02   Enter at least one scope criteria
*& S01   Selection data (TCode takes precedence over program name)
*& S02   Scope criteria
*& S03   Display criteria
*&--------------------------------------------------------------------&*
   report  z_userexit
     no standard page heading
     line-size 201.

   tables: sxs_attr,
           tobjt,
           tstct,               "TCode texts
           trdirt,              "Program texts
           sxc_exit.            "BADI exits

   type-pools: slis.            "Globale Typen für generische Listbausteine

   data: tabix         like sy-tabix,
         w_linnum      type i,
         w_off         type i,
         w_index       like sy-tabix,
         w_include     like trdir-name,
         w_prog        like trdir-name,
         w_incl        like trdir-name,
         w_area        like rs38l-area,
         w_level,
         w_str(50)     type c,
         w_cnt(2)      type c,
         w_funcname    like tfdir-funcname,
         w_fsel        like sy-ucomm,    " Determination of screen field
         w_gridtxt(70) type c.           "ALV grid title

   constants: c_fmod(40) type c value 'Function modules searched: ',
              c_subm(40) type c value 'Submit programs searched: ',
              c_devc(60) type c value 'User-exits from development classes in function modules',
              c_col1(12) type c value 'Enhanmt Type',
              c_col2(40) type c value 'Enhancement',
              c_col3(30) type c value 'Program/Include',
              c_col4(20) type c value 'Enhancement Name',
              c_col5(40) type c value 'Enhancement Description',
              c_col6(8)  type c value 'Project',
              c_col7(1)  type c value 'S',
              c_col8(12) type c value 'ChangeName',
              c_col9(10) type c value 'ChangeDate',
              c_x        type c value 'X'.

* Work Areas: ABAP Workbench
   data: begin of wa_d010inc.
   data: master type d010inc-master.
   data: end of wa_d010inc.

   data: begin of wa_tfdir.
   data: funcname type tfdir-funcname,
         pname    type tfdir-pname,
         include  type tfdir-include.
   data: end of wa_tfdir.

   data: begin of wa_tadir.
   data: devclass type tadir-devclass.
   data: end of wa_tadir.

   data: begin of wa_tstc.
   data: pgmna type tstc-pgmna.
   data: end of wa_tstc.

   data: begin of wa_tstcp.
   data: param type tstcp-param.
   data: end of wa_tstcp.

   data: begin of wa_enlfdir.
   data: area type enlfdir-area.
   data: end of wa_enlfdir.

* Work Areas: BADIs
   data: begin of wa_sxs_attr.
   data: exit_name type sxs_attr-exit_name.
   data: end of wa_sxs_attr.

   data: begin of wa_sxs_attrt.
   data: text type sxs_attrt-text.
   data: end of wa_sxs_attrt.

* Work Areas: Enhancements
   data: begin of wa_modsap.
   data: member type modsap-member.
   data: end of wa_modsap.

   data: begin of wa_modsapa.
   data: name type modsapa-name.
   data: end of wa_modsapa.

   data: begin of wa_modsapt.
   data: modtext type modsapt-modtext.
   data: end of wa_modsapt.

*Work Areas: Business Transaction Events
   data: begin of wa_tbe01t.
   data: text1 type tbe01t-text1.
   data: end of wa_tbe01t.

   data: begin of wa_tps01t.
   data: text1 type tps01t-text1.
   data: end of wa_tps01t.

*user-exits
   types:  begin of ty_mod,
             member  like modact-member,
             name    like modact-name,
             status  like modattr-status,
             anam    like modattr-anam,
             adat    like modattr-adat,
           end of ty_mod.
   data:   w_mod  type ty_mod.

   types: begin of t_userexit,
         type(12) type c,
         pname    like trdir-name,
         txt(300),
         level    type c,
         modname(30) type c,
         modtext(60) type c,
         modattr     type ty_mod,
         colour(4)   type c,
   end of t_userexit.
   data: i_userexit type standard table of t_userexit with header line.

*Function module developmnet classes
   types: begin of t_devclass,
         clas   like trdir-clas,
   end of t_devclass.
   data: i_devclass type standard table of t_devclass with header line.

*Submit programs
   types: begin of t_submit,
         pname     like trdir-name,
         level,
         done,
   end of t_submit.
   data: i_submit type standard table of t_submit with header line.

*Source code
   types: begin of t_sourcetab,                        "#EC * (SLIN lügt!)
           line(200),                                  "#EC * (SLIN lügt!)
         end of t_sourcetab.                           "#EC * (SLIN lügt!)
   data: sourcetab type standard table of t_sourcetab with header line.
   data c_overflow(30000) type c.

*Description of an ABAP/4 source analysis token
   data: i_stoken type standard table of stokex with header line.
   data wa_stoken like i_stoken.

*Description of an ABAP/4 source analysis statement
   data: i_sstmnt type standard table of sstmnt with header line."#EC NEEDED

*keywords for searching ABAP code
   types: begin of t_keywords,
         word(30),
   end of t_keywords.
   data: keywords type standard table of t_keywords with header line.

*function modules within program
   types: begin of t_fmodule,
         name   like rs38l-name,
         pname  like trdir-name,
         pname2 like trdir-name,
         level,
         bapi,
         done,
   end of t_fmodule.
   data: i_fmodule type standard table of t_fmodule with header line.

*ALV definitions
   data i_fieldcat type slis_t_fieldcat_alv with header line.
   data i_layout   type slis_layout_alv.
   data i_sort     type slis_t_sortinfo_alv with header line.


   selection-screen begin of block selscr1 with frame title text-s01.
   parameter: p_pname like trdir-name,
              p_tcode like syst-tcode,
              p_limit(4) type n default 500.
   selection-screen skip.
   selection-screen end of block selscr1.

   selection-screen begin of block selscr2 with frame title text-s02.
   parameter: p_badi  as checkbox default c_x,
              p_bte   as checkbox default c_x,
              p_exit  as checkbox default c_x,
              p_prog  as checkbox default c_x,
              p_wflow as checkbox,
              p_auth  as checkbox.
   selection-screen skip.
   parameter: p_text(40) type c.
   selection-screen end of block selscr2.

   selection-screen begin of block selscr3 with frame title text-s03.
   parameter: p_alv radiobutton group rad1 default 'X',
              p_lst radiobutton group rad1.
   selection-screen skip.
   parameter: p_devc  like rihea-dy_ofn default ' ' modif id a01,
              p_func  like rihea-dy_ofn default ' ' modif id a01,
              p_subm  like rihea-dy_ofn default ' ' modif id a01.
   selection-screen end of block selscr3.

   start-of-selection.

     if p_pname is initial and p_tcode is initial.
       message i000(g01) with text-m01.
       stop.
     endif.

     if p_badi  is initial and
        p_exit  is initial and
        p_bte   is initial and
        p_wflow is initial and
        p_auth  is initial and
        p_prog  is initial.
       message i000(g01) with text-m02.
       stop.
     endif.

*ensure P_LIMIT is not zero.
     if p_limit = 0.
       p_limit = 1.
     endif.

     perform data_select.
     perform get_submit_data.
     perform get_fm_data.
     perform get_additional_data.
     perform data_display.


   form data_select.

*data selection message to sap gui
     call function 'SAPGUI_PROGRESS_INDICATOR'
       destination 'SAPGUI'
       keeping logical unit of work
       EXPORTING
         text                  = 'Get programs/includes'       "#EC NOTEXT
       EXCEPTIONS
         system_failure
         communication_failure
       .                                                       "#EC *

*get TCode name for ALV grid title
     clear w_gridtxt.
     if not p_tcode is initial.
       select single * from tstct where tcode = p_tcode
                                    and sprsl = sy-langu.
       concatenate 'TCode:' p_tcode tstct-ttext into w_gridtxt
                                   separated by space.
     endif.
*get program name for ALV grid title
     if not p_pname is initial.
       select single * from trdirt where name = p_pname
                                    and sprsl = sy-langu.
       concatenate 'Program:' p_pname tstct-ttext into w_gridtxt
                                   separated by space.
     endif.

*  determine search words
     keywords-word = 'CALL'.
     append keywords.
     keywords-word = 'FORM'.
     append keywords.
     keywords-word = 'PERFORM'.
     append keywords.
     keywords-word = 'SUBMIT'.
     append keywords.
     keywords-word = 'INCLUDE'.
     append keywords.
     keywords-word = 'AUTHORITY-CHECK'.
     append keywords.

     if not p_tcode is initial.
* get program name from TCode
       select single pgmna from tstc into wa_tstc-pgmna
                    where tcode eq p_tcode.
       if not wa_tstc-pgmna is initial.
         p_pname = wa_tstc-pgmna.
*TCode does not include program name, but does have reference TCode
       else.
         select single param from tstcp into wa_tstcp-param
                      where tcode eq p_tcode.
         if sy-subrc = 0.
           check wa_tstcp-param(1)   = '/'.
           check wa_tstcp-param+1(1) = '*'.
           if wa_tstcp-param ca ' '.
           endif.
           w_off = sy-fdpos + 1.
           subtract 2 from sy-fdpos.
           if sy-fdpos gt 0.
             p_tcode = wa_tstcp-param+2(sy-fdpos).
           endif.
           select single pgmna from tstc into wa_tstc-pgmna
                  where tcode eq p_tcode.
           p_pname = wa_tstc-pgmna.
           if sy-subrc  0.
             message s110(/saptrx/asc) with 'No program found for: ' p_tcode."#EC NOTEXT
             stop.
           endif.
         else.
           message s110(/saptrx/asc) with 'No program found for: ' p_tcode."#EC NOTEXT
           stop.
         endif.

       endif.
     endif.

*Call customer-function aus Program coding
     read report p_pname into sourcetab.
     if sy-subrc > 0.
       message e017(enhancement) with p_pname raising no_program."#EC *
     endif.

     scan abap-source sourcetab tokens     into i_stoken
                                statements into i_sstmnt
                                keywords   from keywords
                                overflow into c_overflow
                                with includes.                 "#EC
     if sy-subrc > 0. "keine/syntakt. falsche Ablauflog./Fehler im Skanner
       message e130(enhancement) raising syntax_error.         "#EC
     endif.

*check I_STOKEN for entries
     clear w_linnum.
     describe table i_stoken lines w_linnum.
     if w_linnum gt 0.
       w_level = '0'.
       w_prog = ''.
       w_incl = ''.
       perform data_search tables i_stoken using w_level w_prog w_incl.
     endif.

   endform.                        "DATA_SELECT

   form get_fm_data.

*data selection message to sap gui
     call function 'SAPGUI_PROGRESS_INDICATOR'
       destination 'SAPGUI'
       keeping logical unit of work
       EXPORTING
         text                  = 'Get function module data'    "#EC NOTEXT
       EXCEPTIONS
         system_failure
         communication_failure
       .                                                       "#EC *

*  Function module data
     sort i_fmodule by name.
     delete adjacent duplicates from i_fmodule comparing name.

     loop at i_fmodule where done  ne c_x.

       clear:   i_stoken, i_sstmnt, sourcetab, wa_tfdir, w_include .
       refresh: i_stoken, i_sstmnt, sourcetab.

       clear wa_tfdir.
       select single funcname pname include from tfdir into wa_tfdir
                               where funcname = i_fmodule-name.
       check sy-subrc = 0.

       call function 'FUNCTION_INCLUDE_SPLIT'
         EXPORTING
           program = wa_tfdir-pname
         IMPORTING
           group   = w_area.

       concatenate 'L' w_area 'U' wa_tfdir-include into w_include.
       i_fmodule-pname  = w_include.
       i_fmodule-pname2 = wa_tfdir-pname.
       modify i_fmodule.

       read report i_fmodule-pname into sourcetab.
       if sy-subrc = 0.

         scan abap-source sourcetab tokens     into i_stoken
                                    statements into i_sstmnt
                                    keywords   from keywords
                                    with includes.
         if sy-subrc > 0.
           message e130(enhancement) raising syntax_error.
         endif.

*check i_stoken for entries
         clear w_linnum.
         describe table i_stoken lines w_linnum.
         if w_linnum gt 0.
           w_level = '1'.
           w_prog  = i_fmodule-pname2.
           w_incl =  i_fmodule-pname.
           perform data_search tables i_stoken using w_level w_prog w_incl.
         endif.
       endif.

     endloop.

*store development classes
     if p_devc = c_x.
       loop at i_fmodule.
         clear: wa_tadir, wa_enlfdir.

         select single area from enlfdir into wa_enlfdir-area
                               where funcname = i_fmodule-name.
         check not wa_enlfdir-area is initial.

         select single devclass into wa_tadir-devclass
                         from tadir where pgmid    = 'R3TR'
                                      and object   = 'FUGR'
                                      and obj_name = wa_enlfdir-area.
         check not wa_tadir-devclass is initial.
         move wa_tadir-devclass to i_devclass-clas.
         append i_devclass.
         i_fmodule-done = c_x.
         modify i_fmodule.
       endloop.

       sort i_devclass.
       delete adjacent duplicates from i_devclass.
     endif.

   endform.                        "GET_FM_DATA


   form get_submit_data.

*data selection message to sap gui
     call function 'SAPGUI_PROGRESS_INDICATOR'
       destination 'SAPGUI'
       keeping logical unit of work
       EXPORTING
         text                  = 'Get submit data'             "#EC NOTEXT
       EXCEPTIONS
         system_failure
         communication_failure
       .                                                       "#EC *

     sort i_submit.
     delete adjacent duplicates from i_submit comparing pname.
     w_level = '0'.

     loop at i_submit where done ne c_x.

       clear:   i_stoken, i_sstmnt, sourcetab.
       refresh: i_stoken, i_sstmnt, sourcetab.

       read report i_submit-pname into sourcetab.
       if sy-subrc = 0.

         scan abap-source sourcetab tokens     into i_stoken
                                    statements into i_sstmnt
                                    keywords   from keywords
                                    with includes.
         if sy-subrc > 0.
*message e130(enhancement) raising syntax_error.
           continue.
         endif.

*check i_stoken for entries
         clear w_linnum.
         describe table i_stoken lines w_linnum.
         if w_linnum gt 0.
           w_prog  = i_submit-pname.
           w_incl = ''.
           perform data_search tables i_stoken using w_level w_prog w_incl.
         endif.
       endif.

*restrict number of submit program selected for processing
       describe table i_submit lines w_linnum.
       if w_linnum ge p_limit.
         w_level = '1'.
       endif.
       i_submit-done = c_x.
       modify i_submit.
     endloop.

   endform.                       "GET_SUBMIT_DATA


   form data_search tables p_stoken structure stoken
                           using p_level l_prog l_incl.

     loop at p_stoken.

       clear i_userexit.

*Workflow
       if p_wflow = c_x.
         if p_level eq '1'.    " do not perform for function modules (2nd pass)
           if  p_stoken-str+1(16) cs 'SWE_EVENT_CREATE'.
             replace all occurrences of '''' in p_stoken-str with ''.
             i_userexit-type = 'WorkFlow'.
             i_userexit-txt  = p_stoken-str.
             concatenate l_prog '/' l_incl into i_userexit-pname.
             append i_userexit.
           endif.
         endif.
       endif.

       tabix = sy-tabix + 1.
       i_userexit-level = p_level.
       if i_userexit-level = '0'.
         if l_incl is initial.
           i_userexit-pname = p_pname.
         else.
           concatenate  p_pname '-' l_incl into i_userexit-pname.
         endif.
       else.
         if l_incl is initial.
           i_userexit-pname = l_prog.
         else.
           concatenate  l_prog '-' l_incl into i_userexit-pname.
         endif.
       endif.

*AUTHORITY-CHECKS
       if p_auth = c_x.
         if p_stoken-str eq 'AUTHORITY-CHECK'.
           check p_level eq '0'.    " do not perform for function modules (2nd pass)
           w_index = sy-tabix + 2.
           read table p_stoken index w_index into wa_stoken.
           check not wa_stoken-str cs 'STRUCTURE'.
           check not wa_stoken-str cs 'SYMBOL'.
           read table i_submit with key pname = wa_stoken-str.
           if sy-subrc  0.
             i_userexit-pname = i_submit-pname.
             i_userexit-type = 'AuthCheck'.
             i_userexit-txt  = wa_stoken-str.
             replace all occurrences of '''' in i_userexit-txt with space.
             clear tobjt.
             select single * from tobjt where object = i_userexit-txt
                                          and langu  = sy-langu.
             i_userexit-modname = 'AUTHORITY-CHECK'.
             i_userexit-modtext = tobjt-ttext.
             append i_userexit.
           endif.
         endif.
       endif.

*Text searches
       if not p_text is initial.
         if p_stoken-str cs p_text.
           i_userexit-pname = i_submit-pname.
           i_userexit-type = 'TextSearch'.
           i_userexit-txt  = wa_stoken-str.
           i_userexit-modname = 'Text Search'.
           i_userexit-modtext = p_stoken-str.
           append i_userexit.
         endif.
       endif.

*Include (SE38)
       if p_stoken-str eq 'INCLUDE'.
         check p_level eq '0'.    " do not perform for function modules (2nd pass)
         w_index = sy-tabix + 1.
         read table p_stoken index w_index into wa_stoken.
         check not wa_stoken-str cs 'STRUCTURE'.
         check not wa_stoken-str cs 'SYMBOL'.
         read table i_submit with key pname = wa_stoken-str.
         if sy-subrc  0.
           i_submit-pname = wa_stoken-str.
           i_submit-level = p_level.
           append i_submit.
         endif.
       endif.

*Enhancements (SMOD)
       if p_exit = c_x.
         if p_stoken-str eq 'CUSTOMER-FUNCTION'.
           clear w_funcname.
           read table p_stoken index tabix.
           translate p_stoken-str using ''' '.
           condense p_stoken-str.
           if l_prog is initial.
             concatenate 'EXIT' p_pname p_stoken-str into w_funcname
                          separated by '_'.
           else.
             concatenate 'EXIT' l_prog p_stoken-str into w_funcname
                    separated by '_'.
           endif.
           select single member from modsap into wa_modsap-member
                 where member = w_funcname.
           if sy-subrc = 0.   " check for valid enhancement
             i_userexit-type = 'Enhancement'.
             i_userexit-txt  = w_funcname.
             append i_userexit.
           else.
             clear wa_d010inc.
             select single master into wa_d010inc-master
                   from d010inc
                      where include = l_prog.
             concatenate 'EXIT' wa_d010inc-master p_stoken-str into w_funcname
                    separated by '_'.
             i_userexit-type = 'Enhancement'.
             i_userexit-txt  = w_funcname.
           endif.
         endif.
       endif.

*BADIs (SE18)
       if p_badi = c_x.
         if p_stoken-str cs 'cl_exithandler='.
           w_index = sy-tabix + 4.
           read table p_stoken index w_index into wa_stoken.
           i_userexit-txt = wa_stoken-str.
           replace all occurrences of '''' in i_userexit-txt with space.
           i_userexit-type = 'BADI'.
           clear sxs_attr.   " ensure a real BADI
           select single * from sxs_attr where exit_name = i_userexit-txt.
           if sy-subrc = 0.
             append i_userexit.
           endif.
         endif.
       endif.

*Business transaction events (FIBF)
       if p_bte = c_x.
         if p_stoken-str cs 'OPEN_FI_PERFORM'.
           i_userexit-type = 'BusTrEvent'.
           i_userexit-txt = p_stoken-str.
           replace all occurrences of '''' in i_userexit-txt with space.
           i_userexit-modname =  i_userexit-txt+16(8).
           case i_userexit-txt+25(1).
             when 'E'.
               clear wa_tbe01t.
               select single text1 into wa_tbe01t-text1 from tbe01t
                                where event = i_userexit-txt+16(8)
                                  and spras = sy-langu.
               if wa_tbe01t-text1 is initial.
                 i_userexit-modtext = ''.          "#EC NOTEXT
               else.
                 i_userexit-modtext = wa_tbe01t-text1.
               endif.
               i_userexit-modname+8 = '/P&S'.                  "#EC NOTEXT
             when 'P'.
               clear wa_tps01t.
               select single text1 into wa_tps01t-text1 from tps01t
                                where procs = i_userexit-txt+16(8)
                                  and spras = sy-langu.
               i_userexit-modtext = wa_tps01t-text1.
               i_userexit-modname+8 = '/Process'.
           endcase.

           append i_userexit.
         endif.
       endif.

*Program exits (SE38)
       if p_prog = c_x.
         if p_stoken-str cs 'USEREXIT_'.
           check not p_stoken-str cs '-'.   " ensure not USEREXIT_XX-XXX
           check not p_stoken-str cs '('.   " ensure not SUBMIT_XX(X)
           i_userexit-type = 'Program Exit'.
           i_userexit-txt = p_stoken-str.
           replace all occurrences of '''' in i_userexit-txt with space.
           append i_userexit.
         endif.
       endif.

*Submit programs (SE38)
       if p_stoken-str cs 'SUBMIT'.
         check p_level eq '0'.    " do not perform for function modules (2nd pass)
         check not p_stoken-str cs '_'.   " ensure not SUBMIT_XXX
         w_index = sy-tabix + 1.
         read table p_stoken index w_index into wa_stoken.
         check not wa_stoken-str cs '_'.   " ensure not SUBMIT_XXX
         replace all occurrences of '''' in wa_stoken-str with space.
         read table i_submit with key pname = wa_stoken-str.
         if sy-subrc  0.
           i_submit-pname = wa_stoken-str.
           i_submit-level = p_level.
           append i_submit.
         endif.
       endif.

*  Perform routines (which reference external programs)
       if p_stoken-str cs 'PERFORM'.
         check p_level eq '0'.    " do not perform for function modules (2nd pass)
         w_index = sy-tabix + 1.
         read table p_stoken index w_index into wa_stoken.
         if not wa_stoken-ovfl is initial.
           w_off = wa_stoken-off1 + 10.
           w_str = c_overflow+w_off(30).
           find ')' in w_str match offset w_off.
           if sy-subrc = 0.
             w_off = w_off + 1.
             wa_stoken-str = w_str(w_off).
           endif.
         endif.

         check wa_stoken-str cs '('.
         w_off = 0.
         while sy-subrc  = 0.
           if wa_stoken-str+w_off(1) eq '('.
             replace section offset w_off length 1 of wa_stoken-str with ''.
             replace all occurrences of ')' in wa_stoken-str with space.
             read table i_submit with key pname = wa_stoken-str.
             if sy-subrc  0.
               i_submit-pname = wa_stoken-str.
               append i_submit.
             endif.
             exit.
           else.
             replace section offset w_off length 1 of wa_stoken-str with ''.
             shift wa_stoken-str left deleting leading space.
           endif.
         endwhile.
       endif.

*  Function modules (SE37)
       if p_stoken-str cs 'FUNCTION'.

         clear i_fmodule.
         if p_level eq '0'.    " do not perform for function modules (2nd pass)
           w_index = sy-tabix + 1.
           read table p_stoken index w_index into wa_stoken.

           if wa_stoken-str cs 'BAPI'.
             i_fmodule-bapi = c_x.
           endif.

           replace first occurrence of '''' in wa_stoken-str with space.
           replace first occurrence of '''' in wa_stoken-str with space.
           if sy-subrc = 4.   " didn't find 2nd quote (ie name truncated)
             clear wa_tfdir.
             concatenate wa_stoken-str '%' into wa_stoken-str.
             select single funcname into wa_tfdir-funcname from tfdir
                          where funcname like wa_stoken-str.
             if sy-subrc = 0.
               i_fmodule-name = wa_tfdir-funcname.
             else.
               continue.
             endif.
           else.
             i_fmodule-name = wa_stoken-str.
           endif.
           i_fmodule-level = p_level.
           append i_fmodule.
         endif.
       endif.

     endloop.

   endform.                        "DATA_SEARCH


   form get_additional_data.

*data selection message to sap gui
     call function 'SAPGUI_PROGRESS_INDICATOR'
       destination 'SAPGUI'
       keeping logical unit of work
       EXPORTING
         text                  = 'Get additional data'         "#EC NOTEXT
       EXCEPTIONS
         system_failure
         communication_failure
       .                                                       "#EC *

     loop at i_userexit.

*Workflow
       if i_userexit-type eq 'WorkFlow'.
         continue.
       endif.



*Enhancement data
       if  i_userexit-type cs 'Enh'.
         clear: wa_modsapa.
         select single name into wa_modsapa-name from modsap
                           where member = i_userexit-txt.
         check sy-subrc = 0.
         i_userexit-modname = wa_modsapa-name.

         clear wa_modsapt.
         select single modtext into wa_modsapt-modtext from modsapt
                           where name = wa_modsapa-name
                                        and sprsl = sy-langu.
         i_userexit-modtext = wa_modsapt-modtext.

*Get the CMOD project name
         clear w_mod.
         select single modact~member modact~name modattr~status
                       modattr~anam  modattr~adat
           into w_mod
           from modact
           inner join modattr
             on modattr~name = modact~name
           where modact~member = wa_modsapa-name
             and modact~typ    = space.
         if sy-subrc = 0.
           i_userexit-modattr  = w_mod.
         endif.
       endif.


*BADI data
       if  i_userexit-type eq 'BADI'.
         clear wa_sxs_attr.
         select single exit_name into wa_sxs_attr-exit_name from sxs_attr
                                       where exit_name = i_userexit-txt.
         if sy-subrc = 0.
           i_userexit-modname = i_userexit-txt.
         else.
           i_userexit-modname = 'Dynamic call'.                "#EC NOTEXT
         endif.
         clear wa_sxs_attrt.
         select single text into wa_sxs_attrt-text from sxs_attrt
                                        where exit_name = wa_sxs_attr-exit_name
                                          and sprsl = sy-langu.
         i_userexit-modtext = wa_sxs_attrt-text.
       endif.

*BADI Implementation
       if  i_userexit-type eq 'BADI'.
         clear sxc_exit.
         select COUNT( * ) from sxc_exit where exit_name = i_userexit-txt.
         w_cnt = sy-dbcnt.
*determine id BADI is for interal or external use
         clear sxs_attr.
         select single * from sxs_attr where exit_name = i_userexit-txt.
         if sxs_attr-internal = 'X'.
           wa_sxs_attrt-text = 'SAP '.
         else.
           wa_sxs_attrt-text = 'CUST'.
         endif.
*  concatenate wa_sxs_attrt-text w_cnt into i_userexit-modattr-name
*  separated by space.
         write wa_sxs_attrt-text to i_userexit-modattr-name.
         write w_cnt             to i_userexit-modattr-name+5.
       endif.

       modify i_userexit.
     endloop.

*get enhancements via program package
     clear wa_tadir.
     select single devclass into wa_tadir-devclass from tadir
                                where pgmid    = 'R3TR'
                                  and object   = 'PROG'
                                  and obj_name = p_pname.
     if sy-subrc = 0.
       clear: wa_modsapa, wa_modsapt.
       select name from modsapa into wa_modsapa-name
                             where devclass = wa_tadir-devclass.
         select single modtext from modsapt into wa_modsapt-modtext
                             where name = wa_modsapa-name
                               and sprsl = sy-langu.

         clear i_userexit.
         read table i_userexit with key modname = wa_modsapa-name.
         if sy-subrc  0.
           i_userexit-modtext = wa_modsapt-modtext.
           i_userexit-type = 'Enhancement'.                    "#EC NOTEXT
           i_userexit-modname  = wa_modsapa-name.
           i_userexit-txt = 'Determined from program DevClass'."#EC NOTEXT
           i_userexit-pname = 'Unknown'.                       "#EC NOTEXT
           append i_userexit.
         endif.
       endselect.
     endif.

*set row colour.
     loop at i_userexit.
       case i_userexit-type.
         when 'BADI'.
           i_userexit-colour = 'C601'.
         when 'Enhancement'.
           i_userexit-colour = 'C501'.
         when 'Program Exit'.
           i_userexit-colour = 'C401'.
         when 'WorkFlow'.
           i_userexit-colour = 'C301'.
         when 'BusTrEvent'.
           i_userexit-colour = 'C201'.
       endcase.
       modify i_userexit.
     endloop.

   endform.                        "GET_ADDITIONAL_DATA

   form data_display.

*data selection message to sap gui
     call function 'SAPGUI_PROGRESS_INDICATOR'
       destination 'SAPGUI'
       keeping logical unit of work
       EXPORTING
         text                  = 'Prepare screen for display'  "#EC NOTEXT
       EXCEPTIONS
         system_failure
         communication_failure
       .                                                       "#EC *

     sort i_userexit by type txt modname.
     delete adjacent duplicates from i_userexit comparing txt pname modname.

*ensure records selected.
     describe table i_userexit lines w_linnum.
     if w_linnum = 0.
       message s003(g00).   "No data records were selected
       exit.
     endif.

     if p_alv = ' '.

*format headings
       write: 'Enhancements from main program: ', p_pname.
       write: 'Enhancements from TCode: ', p_tcode.
       write: 201''.
       uline.
       format color col_heading.
       write: /    sy-vline,
              (12) c_col1,                    "Enhanmt Type
                   sy-vline,
              (40) c_col2,                    "Enhancement
                   sy-vline,
              (30) c_col3,                    "Program/Include
                   sy-vline,
              (20) c_col4,                    "Enhancement name
                   sy-vline,
              (40) c_col5,                    "Enhancement description
                   sy-vline,
              (8)  c_col6,                    "Project
                   sy-vline,
              (1)  c_col7,                    "S
                   sy-vline,
              (12) c_col8,                    "ChangeName
                   sy-vline,
              (10)  c_col9,                    "ChangeDate
                   sy-vline.
       format reset.
       uline.

*  format lines
       loop at i_userexit.
*set line colour
         case i_userexit-type.
           when 'Enhancement'.
             format color 3 intensified off.
           when 'BADI'.
             format color 4 intensified off.
           when 'BusTrEvent'.
             format color 5 intensified off.
           when 'Program Exit'.
             format color 6 intensified off.
           when others.
             format reset.
         endcase.
         write: / sy-vline,
                  i_userexit-type,
                  sy-vline,
                  i_userexit-txt(40),
                  sy-vline,
                  i_userexit-pname(30),
                  sy-vline,
                  i_userexit-modname(20),
                  sy-vline,
                  i_userexit-modtext(40),
                  sy-vline.

         write:  i_userexit-modattr-name,
                 sy-vline,
                 i_userexit-modattr-status,
                 sy-vline,
                 i_userexit-modattr-anam,
                 sy-vline,
                 i_userexit-modattr-adat no-zero,
                 sy-vline.
         hide: i_userexit-modname, i_userexit-type, i_userexit-modattr-name.

       endloop.
       format reset.
       uline.

*user-exits from development class of function modules
       if p_devc = c_x.
         write: /.
         write: / c_devc.
         write: 201''.
         uline (90).
         write: 201''.

         loop at i_devclass.
           clear wa_modsapa.
           select name from modsapa into wa_modsapa
                        where devclass = i_devclass-clas.
             select single name modtext into corresponding fields of wa_modsapt
                                        from modsapt
                                          where name  = wa_modsapa-name
                                            and sprsl = sy-langu.
             format color 3 intensified off.
             write: / sy-vline,
                      (12) 'Enhancement',
                      sy-vline,
                     wa_modsapa-name,
                     sy-vline,
                     wa_modsapt-modtext,
                     sy-vline.
           endselect.
         endloop.
         write: 201''.
         uline (90).
         format reset.
       endif.

*  display fuction modules used in program
       write /.
       describe table i_fmodule lines w_linnum.
       write: / c_fmod , at 35 w_linnum.                       "#EC NOTEXT
       write: 201''.

       if p_func = c_x.
         uline (38).
         write: 201''.
         loop at i_fmodule.
           write: sy-vline,
                  i_fmodule-name,
                  sy-vline,
                  i_fmodule-bapi,
                  sy-vline.
           write: 201''.
         endloop.
         write: 201''.
         uline (38).
       endif.

*display submit programs used in program
       write /.
       describe table i_submit lines w_linnum.
       write: / c_subm , at 35 w_linnum.                       "#EC NOTEXT
       write: 201''.
       if p_subm = c_x.
         uline (44).
         write: 201''.
         loop at i_submit.
           write: sy-vline,
                  i_submit-pname,
                  sy-vline.
           write: 201''.
         endloop.
         write: 201''.
         uline (44).
       endif.

*issue message with number of user-exits displayed
       describe table i_userexit lines w_linnum.
       message s697(56) with w_linnum.

     else.    " Show in alv format

*issue message with number of user-exits displayed
       describe table i_userexit lines w_linnum.
       message s697(56) with w_linnum.

*Create field catalog
       perform create_field_catalog using 'TYPE'           'T_USEREXIT' ' ' 'Type'.
       perform create_field_catalog using 'PNAME'          'T_USEREXIT' ' ' 'Prog?am name'.
       perform create_field_catalog using 'TXT'            'T_USEREXIT' ' ' 'Enhancement'.
       perform create_field_catalog using 'LEVEL'          'T_USEREXIT' c_x 'Level'.
       perform create_field_catalog using 'MODNAME'        'T_USEREXIT' ' ' 'Enhancement name'.
       perform create_field_catalog using 'MODTEXT'        'T_USEREXIT' ' ' 'Enhancement text'.
       perform create_field_catalog using 'MODATTR-MEMBER' 'T_USEREXIT' c_x 'Member'.
       perform create_field_catalog using 'MODATTR-NAME'   'T_USEREXIT' ' ' 'Project'.
       perform create_field_catalog using 'MODATTR-STATUS' 'T_USEREXIT' ' ' 'Status'.
       perform create_field_catalog using 'MODATTR-ANAM'   'T_USEREXIT' ' ' 'Changed by'.
       perform create_field_catalog using 'MODATTR-ADAT'   'T_USEREXIT' ' ' 'Change date'.

*Layout
       clear i_layout.
       i_layout-colwidth_optimize = c_x.
       i_layout-info_fieldname    = 'COLOUR'.

*Sort
       clear i_sort.
       i_sort-fieldname = 'TYPE'.
       i_sort-tabname   = 'T_USEREXIT'.
       i_sort-up = c_x.
       append i_sort.

       call function 'REUSE_ALV_GRID_DISPLAY'
         EXPORTING
           i_callback_program      = sy-cprog
           i_callback_user_command = 'USER_COMMAND'
           is_layout               = i_layout
           it_fieldcat             = i_fieldcat[]
           it_sort                 = i_sort[]
           i_default               = c_x
           i_save                  = 'A'
           i_grid_title            = w_gridtxt
         TABLES
           t_outtab                = i_userexit.

     endif.

*issue message with number of user-exits displayed
     describe table i_userexit lines w_linnum.
     message s697(56) with w_linnum.

   endform.                        "DATA_DISPLAY

   form create_field_catalog using    p_fieldname
                                      p_tabname
                                      p_hide
                                      p_text.

     i_fieldcat-fieldname        = p_fieldname.
     i_fieldcat-tabname          = p_tabname.
     i_fieldcat-no_out           = p_hide.
     i_fieldcat-seltext_l        = p_text.

     append i_fieldcat.

   endform.                    " CREATE_FIELD_CATALOG


   form user_command using r_ucomm like sy-ucomm
                           rs_selfield type slis_selfield.
     read table i_userexit index rs_selfield-tabindex.
     check sy-subrc = 0.
     case r_ucomm.
       when '&IC1'.
         case rs_selfield-sel_tab_field.
           when 'T_USEREXIT-MODNAME'.
             read table i_userexit index rs_selfield-tabindex.
             case i_userexit-type.
               when 'Enhancement'.
                 set parameter id 'MON' field i_userexit-modname.
                 call transaction 'SMOD'.
               when 'BADI'.
                 set parameter id 'EXN' field i_userexit-modname.
                 call transaction 'SE18' and skip first screen.
               when 'BusTrEvent'.
                 submit rfopfi00 with event = i_userexit-modname(8) and return.
               when others.
                 message s030(cj). "Navigation not possible
             endcase.
           when 'T_USEREXIT-MODATTR-NAME'.
             if not i_userexit-modattr-name is initial.
               set parameter id 'MON_KUN' field i_userexit-modattr-name.
               call transaction 'CMOD'.
             else.
               message s030(cj)."Navigation not possible
             endif.
           when others.
             message s030(cj)."Navigation not possible
         endcase.
     endcase.

   endform.                    "user_command

   at line-selection.

     get cursor field w_fsel.

     case w_fsel.

       when 'I_USEREXIT-MODNAME'.
         case i_userexit-type.
           when 'Enhancement'.
             set parameter id 'MON' field i_userexit-modname.
             call transaction 'SMOD'.
           when 'BADI'.
             set parameter id 'EXN' field i_userexit-modname.
             call transaction 'SE18' and skip first screen.
           when 'BusTrEvent'.
             submit rfopfi00 with event = i_userexit-modname(8) and return.
           when others.
             message s030(cj)."Navigation not possible
         endcase.

       when 'I_USEREXIT-MODATTR-NAME'.
         if not i_userexit-modattr-name is initial.
           set parameter id 'MON_KUN' field i_userexit-modattr-name.
           call transaction 'CMOD'.
         else.
           message s030(cj)."Navigation not possible
         endif.

       when others.
         message s030(cj)."Navigation not possible

     endcase.
   at selection-screen on radiobutton group rad1.

*grey-out checkboxes if ALV selected
   at selection-screen output.
     loop at screen.
       if p_alv = c_x.
         if screen-group1 = 'A01'.
           screen-input = '0'.
           modify screen.
         endif.
       else.
         if screen-group1 = 'A01'.
           screen-input = '1'.
           modify screen.
         endif.
       endif.
     endloop....

CALLING SMART FORM FORM PRINT PROGRAM

DATA : it_ekpo TYPE z50871_ekpo_t.
DATA : wa_ekko TYPE z50871_ekko_s,
wa_lfa1 TYPE z50871_lfa1_s.

*Variable Declarations
DATA : v_funcname TYPE rs38l_fnam, "Function Module Name
v_ebeln TYPE ebeln. "Purchase Document Number

---------------------------------------------------------------------

SELECTION-SCREEN

---------------------------------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE tit1.
PARAMETERS : p_ebeln TYPE ekko-ebeln OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.

---------------------------------------------------------------------

INITIALIZATION

---------------------------------------------------------------------
INITIALIZATION.
tit1 = text-001.

---------------------------------------------------------------------

AT SELECTION-SCREEN

---------------------------------------------------------------------
AT SELECTION-SCREEN ON p_ebeln.
PERFORM validate_ebeln.
---------------------------------------------------------------------

START-OF-SELECTION

---------------------------------------------------------------------
START-OF-SELECTION.
PERFORM get_headerdata.
PERFORM get_itemdata.
PERFORM get_vendordata.
PERFORM call_smartform.

&---------------------------------------------------------------------
*& Form get_headerdata
&---------------------------------------------------------------------
FORM get_headerdata.
SELECT SINGLE ebeln bstyp bsart aedat ernam
INTO wa_ekko
FROM ekko
WHERE ebeln = p_ebeln.
ENDFORM. "get_headerdata
&---------------------------------------------------------------------
*& Form get_vendordata
&---------------------------------------------------------------------
FORM get_vendordata.
SELECT SINGLE lf~lifnr lf~name1 lf~ort01 lf~land1 lf~adrnr
INTO wa_lfa1
FROM lfa1 AS lf INNER JOIN ekko AS ek
ON lf~lifnr = ek~lifnr
WHERE ek~ebeln = p_ebeln.
ENDFORM. "get_vendordata
&---------------------------------------------------------------------
*& Form get_itemdata
&---------------------------------------------------------------------
FORM get_itemdata.
SELECT ebelp ematn matkl netpr
INTO TABLE it_ekpo
FROM ekpo
WHERE ebeln = p_ebeln.
ENDFORM. "get_itemdata
&---------------------------------------------------------------------
*& Form validate_ebeln
&---------------------------------------------------------------------
FORM validate_ebeln.
SELECT SINGLE ebeln
FROM ekko
INTO v_ebeln
WHERE ebeln = p_ebeln.
IF sy-subrc NE 0.
MESSAGE e020(z50871msg) WITH 'Purchase Document Number Is Invalid'(002).
EXIT.
ENDIF.
ENDFORM. "VALIDATE_EBELN

&---------------------------------------------------------------------
*& Form CALL_SMARTFORM
&---------------------------------------------------------------------
FORM call_smartform.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'Z50871MM_SMARTFORM'
IMPORTING
fm_name = v_funcname
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

****/1BCDWB/SF00000721

CALL FUNCTION v_funcname
EXPORTING
wa_lfa1 = wa_lfa1
wa_ekko = wa_ekko
TABLES
it_ekpo = it_ekpo[]
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

ENDFORM. "CALL_SMARTFORM

VENDOR MASTER BDC SAMPLE CODE

report ZBDC_XK01
no standard page heading line-size 255.

*include bdcrecx1.

*parameters: dataset(132) lower case.

DO NOT CHANGE - the generated data section - DO NOT CHANGE ****

If it is nessesary to change the data section use the rules:
1.) Each definition of a field exists of two lines
2.) The first line shows exactly the comment
'* data element: ' followed with the data element
which describes the field.
If you don't have a data element use the
comment without a data element name
3.) The second line shows the fieldname of the
structure, the fieldname must consist of
a fieldname and optional the character '_' and
three numbers and the field length in brackets
4.) Each field must be type C.
Generated data section with specific formatting - DO NOT CHANGE ***

DATA: file_path TYPE string.

DATA:
l_log_handle TYPE balloghndl,
l_s_log TYPE bal_s_log,
l_s_msg TYPE bal_s_msg,
l_msgno TYPE symsgno.

DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

messages of call transaction

DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

error session opened (' ' or 'X')

DATA: E_GROUP_OPENED.

message texts

TABLES: T100.

data: begin of record occurs 0,

data element: BUKRS

BUKRS_001(004),

data element: EKORG

EKORG_002(004),

data element: KTOKK

KTOKK_003(004),

data element: ANRED

ANRED_004(015),

data element: NAME1_GP

NAME1_005(035),

data element: NAME2_GP

NAME2_006(035),

data element: NAME3_GP

NAME3_007(035),

data element: NAME4_GP

NAME4_008(035),

data element: STRAS_GP

SORT1(020),

data element: STRAS_GP

STRAS_009(035),

data element: ORT01_GP

ORT01_010(035),

data element: PSTLZ

PSTLZ_011(010),

data element: LAND1_GP

LAND1_012(003),

data element: LAND1_GP

REGION(003),

data element: SPRAS

SPRAS_013(002),

data element: TELF1

TELF1_014(016),

data element: TELFX

TELFX_015(031),

data element: URL

EMAIL(241),

data element: STCEG

STCEG_017(020),

data element: BRSCH

BRSCH_018(004),

data element: AKONT

AKONT_019(010),

data element: FDGRV

FDGRV_020(010),

data element: ALTKN

ALTKN_021(010),

data element: DZTERM

ZTERM_022(004),

data element: REPRF

REPRF_023(001),

data element: DZWELS

ZWELS_024(010),
J_1IEXCD(040),
J_1IEXRN(040),
J_1IEXRG(060),
J_1IEXDI(060),
J_1IEXCO(060),
J_1IVTYP(002),
J_1ICSTNO(040),
J_1ILSTNO(040),
J_1ISERN(040),
J_1IPANNO(040),

data element: QLAND

QLAND_025(003),

data element: WITHT

WITHT_01_026(002),

data element: WITHT

WITHT_02_027(002),

data element: WITHT

WITHT_03_028(002),

data element: WITHT

WITHT_04_029(002),

data element: WITHT

WITHT_05_030(002),

data element: WITHT

WITHT_06_031(002),

data element: WT_WITHCD

WT_WITHCD_01_032(002),

data element: WT_WITHCD

WT_WITHCD_02_033(002),

data element: WT_WITHCD

WT_WITHCD_03_034(002),

data element: WT_SUBJCT

WT_SUBJCT_01_035(001),

data element: WT_SUBJCT

WT_SUBJCT_02_036(001),

data element: WT_SUBJCT

WT_SUBJCT_03_037(001),

data element: WT_SUBJCT

WT_SUBJCT_04_038(001),

data element: WT_SUBJCT

WT_SUBJCT_05_039(001),

data element: WT_SUBJCT

WT_SUBJCT_06_040(001),

data element: WT_QSREC

QSREC_01_041(002),

data element: WT_QSREC

QSREC_02_042(002),

data element: WT_QSREC

QSREC_03_043(002),

data element: WT_QSREC

QSREC_04_044(002),

data element: WT_QSREC

QSREC_05_045(002),

data element: WT_QSREC

QSREC_06_046(002),

data element: QLAND

QLAND_047(003),

data element: BSTWA

WAERS_048(005),

data element: DZTERM

ZTERM_049(004),

data element: KALSK

KALSK_050(002),

data element: WEBRE

WEBRE_051(001),

data element: XNBWY

XNBWY_052(001),

data element: LEBRE

LEBRE_053(001),
end of record.
End generated data section ***

start-of-selection.

SELECTION-SCREEN BEGIN OF BLOCK mode WITH FRAME TITLE text-003 .
*PARAMETERS ctumode LIKE ctu_params-dismode DEFAULT 'N'.

PARAMETERS: file_url TYPE rlgrap-filename MODIF ID xyz .
SELECTION-SCREEN END OF BLOCK mode .

INITIALIZATION.
PERFORM log_create.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR file_url.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = syst-cprog
dynpro_number = syst-dynnr
field_name = 'FILE_URL'
IMPORTING
file_name = file_url.

start-of-selection.

IF NOT file_url IS INITIAL.

MOVE file_url TO file_path.
PERFORM read_file.
ENDIF.

loop at record.
perform bdc_dynpro using 'SAPMF02K' '0100'.
perform bdc_field using 'BDC_CURSOR'
'RF02K-KTOKK'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'RF02K-BUKRS'
record-BUKRS_001.
perform bdc_field using 'RF02K-EKORG'
record-EKORG_002.
perform bdc_field using 'RF02K-KTOKK'
record-KTOKK_003.
perform bdc_field using 'USE_ZAV'
'X'.

perform bdc_dynpro using 'SAPMF02K' '0111'.

perform bdc_field using 'BDC_CURSOR'
'LFA1-LFURL'.

perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'SZA1_D0100-TITLE_MEDI'
record-ANRED_004.
perform bdc_field using 'ADDR1_DATA-NAME1'
record-NAME1_005.
perform bdc_field using 'ADDR1_DATA-NAME2'
record-NAME2_006.
perform bdc_field using 'ADDR1_DATA-NAME3'
record-NAME3_007.
perform bdc_field using 'ADDR1_DATA-NAME4'
record-NAME4_008.
perform bdc_field using 'ADDR1_DATA-SORT1'
record-sort1.

perform bdc_field using 'ADDR1_DATA-STREET'
record-STRAS_009.
perform bdc_field using 'ADDR1_DATA-CITY1'
record-ORT01_010.
perform bdc_field using 'ADDR1_DATA-POST_CODE1'
record-PSTLZ_011.
perform bdc_field using 'ADDR1_DATA-COUNTRY'
record-LAND1_012.
perform bdc_field using 'ADDR1_DATA-REGION'
record-region.

perform bdc_field using 'ADDR1_DATA-LANGU'
record-SPRAS_013.
perform bdc_field using 'SZA1_D0100-TEL_NUMBER'
record-TELF1_014.
perform bdc_field using 'SZA1_D0100-FAX_NUMBER'
record-TELFX_015.
perform bdc_field using 'SZA1_D0100-SMTP_ADDR'
record-EMAIL.

perform bdc_dynpro using 'SAPMF02K' '0120'.
perform bdc_field using 'BDC_CURSOR'
'LFA1-STCEG'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'LFA1-STCEG'
record-STCEG_017.
perform bdc_field using 'LFA1-BRSCH'
record-BRSCH_018.

perform bdc_dynpro using 'SAPMF02K' '0130'.
perform bdc_field using 'BDC_CURSOR'
'LFBK-BANKS(01)'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.

perform bdc_dynpro using 'SAPMF02K' '0380'.
perform bdc_field using 'BDC_CURSOR'
'KNVK-NAMEV(01)'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.

perform bdc_dynpro using 'SAPMF02K' '0210'.
perform bdc_field using 'BDC_CURSOR'
'LFB1-ALTKN'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'LFB1-AKONT'
record-AKONT_019.
perform bdc_field using 'LFB1-FDGRV'
record-FDGRV_020.
perform bdc_field using 'LFB1-ALTKN'
record-ALTKN_021.

perform bdc_dynpro using 'SAPMF02K' '0215'.
perform bdc_field using 'BDC_CURSOR'
'LFB1-ZWELS'.
perform bdc_field using 'BDC_OKCODE'
'=OPFI'.
perform bdc_field using 'LFB1-ZTERM'
record-ZTERM_022.
perform bdc_field using 'LFB1-REPRF'
record-REPRF_023.
perform bdc_field using 'LFB1-ZWELS'
record-ZWELS_024.

perform bdc_dynpro using 'SAPLJ1I_MASTER' '0100'.

perform bdc_field using 'BDC_CURSOR'
'LFB1-ZWELS'.

perform bdc_field using 'BDC_OKCODE'
'=CIN_VENDOR_FC2'.
perform bdc_field using 'J_1IMOVEND-J_1IEXCD'
record-J_1IEXCD.
perform bdc_field using 'J_1IMOVEND-J_1IEXRN'
record-J_1IEXRN.
perform bdc_field using 'J_1IMOVEND-J_1IEXRG'
record-J_1IEXRG.
perform bdc_field using 'J_1IMOVEND-J_1IEXDI'
record-J_1IEXDI.
perform bdc_field using 'J_1IMOVEND-J_1IEXCO'
record-J_1IEXCO.
perform bdc_field using 'J_1IMOVEND-J_1IVTYP'
record-J_1IVTYP.

perform bdc_dynpro using 'SAPLJ1I_MASTER' '0100'.

perform bdc_field using 'BDC_CURSOR'
'LFB1-ZWELS'.

perform bdc_field using 'BDC_OKCODE'
'=CIN_VENDOR_FC3'.
perform bdc_field using 'J_1IMOVEND-J_1ICSTNO'
record-J_1ICSTNO.
perform bdc_field using 'J_1IMOVEND-J_1ILSTNO'
record-J_1ILSTNO.
perform bdc_field using 'J_1IMOVEND-J_1ISERN'
record-J_1ISERN.

perform bdc_dynpro using 'SAPLJ1I_MASTER' '0100'.

perform bdc_field using 'BDC_CURSOR'
'LFB1-ZWELS'.

perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'J_1IMOVEND-J_1IPANNO'
record-J_1IPANNO.

perform bdc_dynpro using 'SAPLJ1I_MASTER' '0100'.

perform bdc_field using 'BDC_CURSOR'
'LFB1-ZWELS'.

perform bdc_field using 'BDC_OKCODE'
'=BACK'.
perform bdc_field using 'J_1IMOVEND-J_1IPANNO'
record-J_1IPANNO.

perform bdc_dynpro using 'SAPMF02K' '0215'.
perform bdc_field using 'BDC_CURSOR'
'LFB1-ZWELS'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'LFB1-ZTERM'
record-ZTERM_022.
perform bdc_field using 'LFB1-REPRF'
record-REPRF_023.
perform bdc_field using 'LFB1-ZWELS'
record-ZWELS_024.

perform bdc_dynpro using 'SAPMF02K' '0220'.
perform bdc_field using 'BDC_CURSOR'
'LFB5-MAHNA'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_dynpro using 'SAPMF02K' '0610'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'BDC_CURSOR'
'LFBW-QSREC(06)'.
perform bdc_field using 'LFB1-QLAND'
record-QLAND_025.
perform bdc_field using 'LFBW-WITHT(01)'
record-WITHT_01_026.
perform bdc_field using 'LFBW-WITHT(02)'
record-WITHT_02_027.
perform bdc_field using 'LFBW-WITHT(03)'
record-WITHT_03_028.
perform bdc_field using 'LFBW-WITHT(04)'
record-WITHT_04_029.
perform bdc_field using 'LFBW-WITHT(05)'
record-WITHT_05_030.
perform bdc_field using 'LFBW-WITHT(06)'
record-WITHT_06_031.
perform bdc_field using 'LFBW-WT_WITHCD(01)'
record-WT_WITHCD_01_032.
perform bdc_field using 'LFBW-WT_WITHCD(02)'
record-WT_WITHCD_02_033.
perform bdc_field using 'LFBW-WT_WITHCD(03)'
record-WT_WITHCD_03_034.
perform bdc_field using 'LFBW-WT_SUBJCT(01)'
record-WT_SUBJCT_01_035.
perform bdc_field using 'LFBW-WT_SUBJCT(02)'
record-WT_SUBJCT_02_036.
perform bdc_field using 'LFBW-WT_SUBJCT(03)'
record-WT_SUBJCT_03_037.
perform bdc_field using 'LFBW-WT_SUBJCT(04)'
record-WT_SUBJCT_04_038.
perform bdc_field using 'LFBW-WT_SUBJCT(05)'
record-WT_SUBJCT_05_039.
perform bdc_field using 'LFBW-WT_SUBJCT(06)'
record-WT_SUBJCT_06_040.
perform bdc_field using 'LFBW-QSREC(01)'
record-QSREC_01_041.
perform bdc_field using 'LFBW-QSREC(02)'
record-QSREC_02_042.
perform bdc_field using 'LFBW-QSREC(03)'
record-QSREC_03_043.
perform bdc_field using 'LFBW-QSREC(04)'
record-QSREC_04_044.
perform bdc_field using 'LFBW-QSREC(05)'
record-QSREC_05_045.
perform bdc_field using 'LFBW-QSREC(06)'
record-QSREC_06_046.
perform bdc_dynpro using 'SAPMF02K' '0610'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'BDC_CURSOR'
'LFB1-QLAND'.
perform bdc_field using 'LFB1-QLAND'
record-QLAND_047.
perform bdc_dynpro using 'SAPMF02K' '0310'.
perform bdc_field using 'BDC_CURSOR'
'LFM1-XNBWY'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'LFM1-WAERS'
record-WAERS_048.
perform bdc_field using 'LFM1-ZTERM'
record-ZTERM_049.
perform bdc_field using 'LFM1-KALSK'
record-KALSK_050.
perform bdc_field using 'LFM1-WEBRE'
record-WEBRE_051.
perform bdc_field using 'LFM1-XNBWY'
record-XNBWY_052.
perform bdc_field using 'LFM1-LEBRE'
record-LEBRE_053.
perform bdc_dynpro using 'SAPMF02K' '0320'.
perform bdc_field using 'BDC_CURSOR'
'RF02K-LIFNR'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
perform bdc_transaction." using 'XK01'.

clear bdcdata[].
clear record.
endloop.

PERFORM log_show.

----------------------------------------------------------------------

Start new screen *

----------------------------------------------------------------------
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM. "BDC_DYNPRO

----------------------------------------------------------------------

Insert field *

----------------------------------------------------------------------
FORM BDC_FIELD USING FNAM FVAL.

IF FVAL NODATA.

CLEAR BDCDATA.
BDCDATA-FNAM = FNAM.
BDCDATA-FVAL = FVAL.
APPEND BDCDATA.

ENDIF.

ENDFORM. "BDC_FIELD

&---------------------------------------------------------------------
*& Form bdc_transaction
&---------------------------------------------------------------------

text

----------------------------------------------------------------------
FORM bdc_transaction .
DATA tcode LIKE tstc-tcode.
tcode = 'XK01'.
CALL TRANSACTION tcode USING bdcdata
MODE 'A'
MESSAGES INTO messtab.

PERFORM msg_generation.
ENDFORM. "bdc_transaction

&---------------------------------------------------------------------
*& Form read_file
&---------------------------------------------------------------------

text

----------------------------------------------------------------------
FORM read_file .
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = file_path
filetype = 'ASC'
has_field_separator = 'X'

HEADER_LENGTH = 0

read_by_line = 'X'

DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
IMPORTING
FILELENGTH =
HEADER =

TABLES
data_tab = record

EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
OTHERS = 17

.
IF sy-subrc 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " read_file

&---------------------------------------------------------------------
*& Form msg_generation
&---------------------------------------------------------------------

text

----------------------------------------------------------------------

--> p1 text
<-- p2 text

----------------------------------------------------------------------
FORM msg_generation .
DATA: l_mstring(480).
DATA: l_subrc LIKE sy-subrc.
DATA: l_error TYPE c.

LOOP AT messtab.

add message to log file

CLEAR l_s_msg.
l_s_msg-msgty = messtab-msgtyp.
l_s_msg-msgid = messtab-msgid.
l_s_msg-msgno = messtab-msgnr.
l_s_msg-msgv1 = messtab-msgv1.
l_s_msg-msgv2 = messtab-msgv2.
l_s_msg-msgv3 = messtab-msgv3.
l_s_msg-msgv4 = messtab-msgv4.

CALL FUNCTION 'BAL_LOG_MSG_ADD'
EXPORTING
i_log_handle = l_log_handle
i_s_msg = l_s_msg
EXCEPTIONS
OTHERS = 1.

IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

IF messtab-msgtyp EQ 'E' OR l_subrc NE 0.
l_error = 'X'.
ENDIF.
ENDLOOP.

CLEAR messtab[].

ENDFORM. " msg_generation
&---------------------------------------------------------------------
*& Form log_create
&---------------------------------------------------------------------

text

----------------------------------------------------------------------

--> p1 text
<-- p2 text

----------------------------------------------------------------------
FORM log_create .

CALL FUNCTION 'BAL_LOG_CREATE'
EXPORTING
i_s_log = l_s_log
IMPORTING
e_log_handle = l_log_handle
EXCEPTIONS
OTHERS = 1.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

ENDFORM. " log_create
&---------------------------------------------------------------------
*& Form log_show
&---------------------------------------------------------------------

text

----------------------------------------------------------------------

--> p1 text
<-- p2 text

----------------------------------------------------------------------
FORM log_show .
DATA:
l_s_display_profile TYPE bal_s_prof.

get a prepared profile

CALL FUNCTION 'BAL_DSP_PROFILE_SINGLE_LOG_GET'
IMPORTING
e_s_display_profile = l_s_display_profile
EXCEPTIONS
OTHERS = 1.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

use grid for display if wanted

l_s_display_profile-use_grid = 'X'.

set report to allow saving of variants

l_s_display_profile-disvariant-report = sy-repid.

when you use also other ALV lists in your report,
please specify a handle to distinguish between the display
variants of these different lists, e.g:

l_s_display_profile-disvariant-handle = 'LOG'.

call display function module
We do not specify any filter (like I_S_LOG_FILTER, ...,
I_T_MSG_HANDLE) since we want to display all logs available

CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'
EXPORTING
i_s_display_profile = l_s_display_profile
EXCEPTIONS
OTHERS = 1.
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

ENDFORM. " log_show

DEPENDENCIES OF DICTIONARY OBJECTS

PERFORMANCE DURING TABLE ACCESS

ENHANCEMENTS TO DICTIONARY ELEMENTS

If you are interested in SAP ABAP syntax for format check here.

ABAP REPORTS

SAP AND ABAP TOPICS

SAP ABAP SYNTAX LEARNING POINT

ABAP COMPLETE SERIES

SAP XI ADAPTER OVERVIEW

BADI DEFINATION SCREEN SHOTS

SAP ABAP MODIFICATIONS OVER VIEW

CODE FOR FINDING EXITS,BADIS

CALLING SMART FORM FORM PRINT PROGRAM

VENDOR MASTER BDC SAMPLE CODE