ABAP Tutorials » Function Modules

Display a Popup and Get Values from User

Admin — Fri, 23 Sep 2011 12:19:32 +0000

In some cases, we are needed to get some inputs from the user at run-time of an application based on certain dynamic conditions.

Function Module POPUP_GET_VALUES can be used to display a popup to get inputs from user. The specialty of this function module is we can add as many number of fields as we want. The fields can be of any data type.

REPORT ztestpopup.

DATA: t_fields LIKE sval OCCURS 0 WITH HEADER LINE.

START-OF-SELECTION.

*— Prepare Parameters for FM ————-*
t_fields-tabname = ’BKPF’.
t_fields-fieldname = ’BUDAT’.
APPEND t_fields.

t_fields-tabname = ’BKPF’.
t_fields-fieldname = ’BLART’.
APPEND t_fields.

*—- Function Module Call —————–*
CALL FUNCTION ’POPUP_GET_VALUES’
EXPORTING
* NO_VALUE_CHECK = ’ ’
popup_title = ’Test Popup’
* START_COLUMN = ’5’
* START_ROW = ’5’
* IMPORTING
* RETURNCODE =
TABLES
fields = t_fields
EXCEPTIONS
error_in_fields = 1
OTHERS = 2
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

*— Display Report —————-*
LOOP AT t_fields.
WRITE:/ t_fields-value.
ENDLOOP.

You might also be interested in these posts:

MM02 BDC – Select Specific Material Master View

Admin — Sat, 31 Jul 2010 04:42:58 +0000

Creating a BDC of the MM02 will not be an easy task. As soon as we enter the material and hit enter it will ask us to choose the required Material master views. This popup contains the available material master views and they are not constant. Sometimes MRP1 comes at the 12th line and sometimes it comes to 6th line. This dynamic of the views are solely depended on the Status (MARA-VPSTA).

To overcome of this dynamics we need to get to know where exactly our required view will appear e.g. line 6 or line 10 or line 15. We will use the FM SELECTION_VIEWS_FIND to find out which view will come at which position.

In our BDC, we will follow these steps:
1. Always select the Basic Data 1
2. Get the respective user command for the tab by Executing the FM SELECTION_VIEWS_FIND.

Status (MARA-VPSTA) contains the combination of the View indicator. You can find the relation of the status indicator and view name in the documentation of the data element PSTAT_D or follow this table:

User department Maintenance status

Work scheduling                A
Accounting                     B
Classification                 C
MRP                            D
Purchasing                     E
Production resources/tools     F
Costing                        G
Basic data                     K
Storage                        L
Forecasting                    P
Quality management             Q
Warehouse management           S
Sales                          V
Plant stocks                   X
Storage location stocks        Z

In this my test BDC, I want to update the MRP type. MRP type comes under the “MRP 1″ view of the material master. So, I will first select the Basic Data and than move to MRP 1 view and update the MRP type.

BDC Code:

REPORT ztest_np_mm02
       NO STANDARD PAGE HEADING LINE-SIZE 255.
*
* Local data
DATA:   messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
DATA:   bdcdata LIKE bdcdata    OCCURS 0 WITH HEADER LINE.
*
* Selection Screen
PARAMETERS: p_matnr TYPE mara-matnr OBLIGATORY,
            p_werks TYPE marc-werks OBLIGATORY,
            p_lgort TYPE rmmg1-lgort OBLIGATORY,
            p_dismm TYPE marc-dismm OBLIGATORY.
*
*
START-OF-SELECTION.
*
* Material views …………………………………………….
DATA: l_vpsta LIKE t130m-pstat.
*
SELECT SINGLE vpsta
         INTO   l_vpsta
         FROM   mara
         WHERE matnr = p_matnr.
*
* Get View sequence ………………………………………….
DATA: l_bild LIKE t133a-bilds,
        lt_bild LIKE mbildtab OCCURS 0 WITH HEADER LINE.
*
* Screen Sequence for Standard Industry tab pages in material master
l_bild = ’21′.
*
* Get screen sequence
CALL FUNCTION ‘SELECTION_VIEWS_FIND’
    EXPORTING
      bildsequenz     = l_bild
      pflegestatus    = l_vpsta
    TABLES
      bildtab         = lt_bild
    EXCEPTIONS
      call_wrong      = 1
      empty_selection = 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.
*
* Get the Tab page for MRP1 …………………………………..
DATA: l_tab_mrp1 TYPE sy-ucomm.
*
* reading table with MRP view
READ TABLE lt_bild WITH KEY pstat = ‘D’.
IF sy-subrc = 0.
    l_tab_mrp1 = lt_bild-guifu.
ENDIF.
*
* make ok code for the MRP1
CONCATENATE ‘=’ l_tab_mrp1 INTO l_tab_mrp1.
*
* BDC ………………………………………………………
PERFORM bdc_dynpro      USING ‘SAPLMGMM’ ’0060′.
PERFORM bdc_field       USING ‘RMMG1-MATNR’
                                 p_matnr.
PERFORM bdc_field       USING ‘BDC_OKCODE’
                                ‘=ENTR’.
*
PERFORM bdc_dynpro      USING ‘SAPLMGMM’ ’0070′.
PERFORM bdc_field       USING ‘MSICHTAUSW-KZSEL(01)’
                                ‘X’.
PERFORM bdc_field       USING ‘BDC_OKCODE’
                                ‘=ENTR’.
*
PERFORM bdc_dynpro      USING ‘SAPLMGMM’ ’4004′.
PERFORM bdc_field       USING ‘BDC_OKCODE’
                                l_tab_mrp1.
*
PERFORM bdc_dynpro      USING ‘SAPLMGMM’ ’0081′.
PERFORM bdc_field       USING ‘RMMG1-WERKS’
                                p_werks.
PERFORM bdc_field       USING ‘RMMG1-LGORT’
                                p_lgort.
PERFORM bdc_field       USING ‘BDC_OKCODE’
                                ‘=ENTR’.
*
PERFORM bdc_dynpro      USING ‘SAPLMGMM’ ’4000′.
PERFORM bdc_field       USING ‘MARC-DISMM’
                                p_dismm.
PERFORM bdc_field       USING ‘BDC_OKCODE’
                                ‘=BU’.
*
PERFORM bdc_transaction USING ‘MM02′.
*
*&———————————————————————*
*&      Form BDC_DYNPRO
*&———————————————————————*
FORM bdc_dynpro USING p_program
                      p_screen.
*
MOVE: p_program TO bdcdata-program,
        p_screen TO bdcdata-dynpro,
        ‘X’       TO bdcdata-dynbegin.
*
APPEND bdcdata.
CLEAR bdcdata.
*
ENDFORM.                    ” BDC_DYNPRO
*
*&———————————————————————*
*&      Form BDC_FIELD
*&———————————————————————*
FORM bdc_field USING p_field_name
                     p_field_value.
*
MOVE: p_field_name TO bdcdata-fnam,
        p_field_value TO bdcdata-fval.
*
APPEND bdcdata.
CLEAR bdcdata.
*
ENDFORM.                    ” BDC_FIELD
*
*
*&———————————————————————*
*&      Form BDC_TRANSACTION
*&———————————————————————*
FORM bdc_transaction USING tcode.
DATA: l_mstring(480).
DATA: l_subrc LIKE sy-subrc.
* batch input session
REFRESH messtab.
CALL TRANSACTION tcode USING bdcdata
                   MODE   ‘A’
                   “A: show all dynpros
                   “E: show dynpro on error only
                   “N: do not display dynpro
*
                   UPDATE ‘L’
                   MESSAGES INTO messtab.
REFRESH bdcdata.
ENDFORM.                    “BDC_TRANSACTION

Download Code:

MM02 BDC

*source=nimesh

You might also be interested in these posts:

BDC Session – Automatic Execution from Report

Admin — Sun, 20 Jun 2010 13:57:18 +0000

When to Use:

Upload programs where you use BDC session method to create Sessions, which should later be executed using transaction SM35.

Requirements before you start:

You need to know the BDC Session name, which is usually an input parameter or is generated by the report programs.

Steps to execute BDC Session from the program:

Step 1: Get BDC Queue ID

CALL FUNCTION ‘BDC_OBJECT_SELECT’

EXPORTING

name = session name

session_creator = sy-uname

datatype = ‘BDC’

client = sy-mandt

qstate = ‘ ‘

date_from = sy-datum

date_to = sy-datum

TABLES

apqitab = itab_apqi

EXCEPTIONS

OTHERS = 1.

Queue ID (QID) = itab_apqi-qid

Step 2: Get Session Info

Get Session info for the queue ID from table APQI.

SELECT SINGLE * FROM apqi INTO session WHERE qid = QID (from Step 1).

Step3: Lock BDC Queue

CALL FUNCTION ‘ENQUEUE_BDC_QID’

EXPORTING

datatyp = session-datatyp

groupid = session-groupid

qid = session-qid

EXCEPTIONS

foreign_lock = 1

system_failure = 99.

Step4: OPEN JOB

DATA: jobname LIKE tbtco-jobname,

jobnumb LIKE rsjobinfo-jobnumb,

Jobname = wa_session-groupid.

CALL FUNCTION ‘JOB_OPEN’

EXPORTING

jobgroup = ‘BATCH-INPUT’

jobname = jobname

sdlstrtdt = sy-datum

sdlstrttm = sy-uzeit

IMPORTING

jobcount = jobnumb

EXCEPTIONS

cant_create_job = 1

invalid_job_data = 2

jobname_missing = 3

OTHERS = 99.

Step5: Execute the Queue

Execute the QUEUE using Submit to Report RSBDCBTC.

SUBMIT rsbdcbtc

TO SAP-SPOOL

DESTINATION space

IMMEDIATELY space

KEEP IN SPOOL space

WITHOUT SPOOL DYNPRO

USER session-userid

VIA JOB jobname

NUMBER jobnumb

WITH queue_id EQ wa_session-qid

WITH mappe EQ jobname

WITH modus EQ ‘N’

WITH logall EQ ‘X’ ” Extended Log

AND RETURN.

If Sy-subrc = 0

Step6: Close Job

CALL FUNCTION ‘JOB_CLOSE’

EXPORTING

jobcount = jobnumb

jobname = jobname

strtimmed = ‘X’

targetsystem = ” ” Target Host

EXCEPTIONS

cant_start_immediate = 1

invalid_startdate = 2

jobname_missing = 3

job_close_failed = 4

job_nosteps = 5

job_notex = 6

lock_failed = 7

OTHERS = 99.

IF sy-subrc = 0

Step 7: Update Session info

UPDATE apqi SET qstate = ‘S’

WHERE destsys = wa_session-destsys

AND destapp = wa_session-destapp

AND datatyp = wa_session-datatyp

AND groupid = wa_session-groupid

AND progid = wa_session-progid

AND formid = wa_session-formid

AND qattrib = wa_session-qattrib

AND qid = wa_session-qid.

COMMIT WORK.

Step 8: Delete Job

If Job Not closed (Sy-subrc <> 0 for step 5 or 6), delete Job.

CALL FUNCTION ‘BP_JOB_DELETE’

EXPORTING

jobname = jobname

jobcount = jobnumb

forcedmode = ‘X’

EXCEPTIONS

OTHERS = 99.

Step 9: Unlock BDC queue

CALL FUNCTION ‘DEQUEUE_BDC_QID’

EXPORTING

datatyp = wa_session-datatyp

groupid = wa_session-groupid

qid = wa_session-qid.

So you are all done. Hope that was simple.

You might also be interested in these posts:

BDC to insert Wage Type in Infotype 0008 (Basic Pay)

Admin — Tue, 25 May 2010 10:18:24 +0000

Addition of new WageTypes to Infotype 0008 often comes as an urgent requirement. Instead of adding WageTypes to individuals, we can upload it through a BDC.

BDC Source Code:

*&———————————————————————*
*& Report ZHR_BDC_0008_INSERT                                         *
*&                                                                     *
*&———————————————————————*
*& About: the BDC inserts a new Wage Type into the infotype0008 for    *
*&        Per.No. provided in flat file.                               *
*&———————————————————————*
*& BDC / Flat File Structure:                                          *
*&———————————————————————*
*& PersonnelNo BeginDate EndDate WageType Amount                     *
*&———————————————————————*
*&———————————————————————*

REPORT ZHR_BDC_0008_INSERT no standard page heading line-size 255.

DATA : BDCTAB LIKE BDCDATA OCCURS 100 WITH HEADER LINE.

DATA BEGIN OF itab1 OCCURS 0.
        INCLUDE STRUCTURE p0001.
DATA END OF itab1.
DATA BEGIN OF itab7 OCCURS 0.
        INCLUDE STRUCTURE p0007.
DATA END OF itab7.
DATA BEGIN OF itab8 OCCURS 0.
        INCLUDE STRUCTURE p0008.
DATA END OF itab8.
DATA BEGIN OF itabn OCCURS 0.
        INCLUDE STRUCTURE pbwla.
DATA END OF itabn.
DATA: pos(2).

SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK K1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP 1.
PARAMETERS : READFILE like rlgrap-filename DEFAULT
‘c:\textfile.txt’ LOWER CASE.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK K1.

data: begin of record OCCURS 10,
      pernr like PA0001-pernr,
      begda like PA0001-begda,
      endda like PA0001-endda,
      lgart like PA0008-lga01,
      amount(12),
      end of record.

start-of-selection.

PERFORM OPEN_GROUP.
PERFORM UPLOAD.

if record[] is NOT INITIAL.
*do.
    LOOP AT record.
*read dataset dataset into record.
      if sy-subrc <> 0. exit. endif.
      data: tbegda(10),
            tendda(10).
      write: record-begda to tbegda,
             record-endda to tendda.
      data: wgtype(20),
            amount(20).
* Get Personnel Data
      PERFORM GET_PERS_DATA.
      clear: pos.
      LOOP AT itabn where endda = ’99991231′.
        pos = pos + 1.
      ENDLOOP.
* Move to new line
      pos = pos + 1.
* Setting position in Table Control
      concatenate ‘Q0008-LGART(‘ pos ‘)’ into wgtype.
      concatenate ‘Q0008-BETRG(‘ pos ‘)’ into amount.
      perform bdc_dynpro      using ‘SAPMP50A’ ’1000′.
      perform bdc_field       using ‘BDC_OKCODE’
                                    ‘=COP’.
      perform bdc_field       using ‘RP50G-PERNR’
*                              ’1341′.
                                     record-pernr.
*perform bdc_field       using ‘RP50G-TIMR6′
*                              ‘X’.
      perform bdc_field       using ‘BDC_CURSOR’
                                    ‘RP50G-CHOIC’.
      perform bdc_field       using ‘RP50G-CHOIC’
                                    ’8′.
      perform bdc_dynpro      using ‘MP000800′ ’2040′.
      perform bdc_field       using ‘BDC_OKCODE’
                                    ‘/00′.
      perform bdc_field       using ‘P0008-BEGDA’
*                              ’01.04.2010′.
                                     tbegda.
      perform bdc_field       using ‘P0008-ENDDA’
*                              ’31.12.9999′.
                                     tendda.
*perform bdc_field       using ‘P0008-TRFAR’
*                              ‘SK’.
*perform bdc_field       using ‘P0008-BSGRD’
*                              ’100.00′.
*perform bdc_field       using ‘P0008-TRFGB’
*                              ‘SK’.
*perform bdc_field       using ‘P0008-DIVGV’
*                              ’100.00′.
*perform bdc_field       using ‘P0008-TRFGR’
*                              ‘JT MGR’.
*perform bdc_field       using ‘P0008-TRFST’
*                              ‘GE’.
*perform bdc_field       using ‘P0008-ANCUR’
*                              ‘INR’.
*perform bdc_field       using ‘Q0008-IBBEG’
*                              ’25.05.2010′.
*perform bdc_field       using ‘P0008-WAERS’
*                              ‘INR’.
*perform bdc_field       using ‘Q0008-LGART(07)’
*                              ’1MDA’.
*perform bdc_field       using ‘Q0008-LGART(07)’
*                              ’1MDA’.
      perform bdc_field       using wgtype
                                     record-lgart.
*perform bdc_field       using ‘Q0008-BETRG(07)’
*                              ‘               500′.
      perform bdc_field       using amount
                                     record-amount.
      perform bdc_dynpro      using ‘MP000800′ ’2040′.
      perform bdc_field       using ‘BDC_CURSOR’
                                    ‘P0008-BEGDA’.
      perform bdc_field       using ‘BDC_OKCODE’
                                    ‘=UPD’.
      perform bdc_field       using ‘P0008-BEGDA’
*                              ’01.04.2010′.
                                     tbegda.
      perform bdc_field       using ‘P0008-ENDDA’
*                              ’31.12.9999′.
                                     tendda.
*perform bdc_field       using ‘P0008-TRFAR’
*                              ‘SK’.
*perform bdc_field       using ‘P0008-BSGRD’
*                              ’100.00′.
*perform bdc_field       using ‘P0008-TRFGB’
*                              ‘SK’.
*perform bdc_field       using ‘P0008-DIVGV’
*                              ’100.00′.
*perform bdc_field       using ‘P0008-TRFGR’
*                              ‘JT MGR’.
*perform bdc_field       using ‘P0008-TRFST’
*                              ‘GE’.
*perform bdc_field       using ‘P0008-ANCUR’
*                              ‘INR’.
*perform bdc_field       using ‘Q0008-IBBEG’
*                              ’25.05.2010′.
*perform bdc_field       using ‘P0008-WAERS’
*                              ‘INR’.
*perform bdc_transaction using ‘PA30′.
      CALL FUNCTION ‘BDC_INSERT’
          EXPORTING
               TCODE             = ‘PA30′
*         POST_LOCAL       = NOVBLOCAL
*         PRINTING         = NOPRINT
           TABLES
                DYNPROTAB        = BDCTAB
*    EXCEPTIONS
*         INTERNAL_ERROR   = 1
*         NOT_OPEN         = 2
*         QUEUE_ERROR      = 3
*         TCODE_INVALID    = 4
*         PRINTING_INVALID = 5
*         POSTING_INVALID = 6
*         OTHERS           = 7
                .
      IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      REFRESH BDCTAB.
    endloop.

    CALL FUNCTION ‘BDC_CLOSE_GROUP’
*    EXCEPTIONS
*         NOT_OPEN    = 1
*         QUEUE_ERROR = 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.
*perform close_group.
*perform close_dataset using dataset.
endif.
*&———————————————————————*
*&      Form BDC_DYNPRO
*&———————————————————————*
*       text
*———————————————————————-*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCTAB.
BDCTAB-PROGRAM = PROGRAM.
BDCTAB-DYNPRO   = DYNPRO.
BDCTAB-DYNBEGIN = ‘X’.
APPEND BDCTAB.

ENDFORM. “BDC_DYNPRO

*&———————————————————————*
*&      Form BDC_FIELD
*&———————————————————————*
*       text
*———————————————————————-*
FORM BDC_FIELD USING FNAM FVAL.
* IF FVAL <> NODATA.
CLEAR BDCTAB.
BDCTAB-FNAM = FNAM.
BDCTAB-FVAL = FVAL.
APPEND BDCTAB.
* ENDIF.
ENDFORM.                    “BDC_FIELD
*&———————————————————————*
*&      Form UPLOAD
*&———————————————————————*
*       text
*———————————————————————-*
FORM UPLOAD .

CALL FUNCTION ‘UPLOAD’
    EXPORTING
      FILENAME                = READFILE
      FILETYPE                = ‘DAT’
    TABLES
      DATA_TAB                = record
    EXCEPTIONS
      CONVERSION_ERROR        = 1
      FILE_OPEN_ERROR         = 2
      FILE_READ_ERROR         = 3
      INVALID_TYPE            = 4
      NO_BATCH                = 5
      UNKNOWN_ERROR           = 6
      INVALID_TABLE_WIDTH     = 7
      GUI_REFUSE_FILETRANSFER = 8
      CUSTOMER_ERROR          = 9
      OTHERS                  = 10.

ENDFORM. ” UPLOAD

*&———————————————————————*
*& Form OPEN_GROUP
*&———————————————————————*
* text
*———————————————————————-*
FORM OPEN_GROUP .

CALL FUNCTION ‘BDC_OPEN_GROUP’
      EXPORTING
           CLIENT              = SY-MANDT
           GROUP               = sy-uname “‘HR_DELIMT’
           KEEP                = ‘X’
           USER                = SY-UNAME
      EXCEPTIONS
           CLIENT_INVALID      = 1
           DESTINATION_INVALID = 2
           GROUP_INVALID       = 3
           GROUP_IS_LOCKED     = 4
           HOLDDATE_INVALID    = 5
           INTERNAL_ERROR      = 6
           QUEUE_ERROR         = 7
           RUNNING             = 8
           SYSTEM_LOCK_ERROR   = 9
           USER_INVALID        = 10
           OTHERS              = 11
            .

ENDFORM.                    ” OPEN_GROUP
*&———————————————————————*
*&      Form GET_PERS_DATA
*&———————————————————————*
*       text
*———————————————————————-*
FORM GET_PERS_DATA .
CLEAR : itab1,itab7,itab8,itabn.
REFRESH : itab1,itab7,itab8,itabn.

CALL FUNCTION ‘RP_FILL_WAGE_TYPE_TABLE_EXT’
    EXPORTING
      begda                        = record-begda “i0008-begda
      endda                        = ’99991231′
      infty                        = ’0008′
      tclas                        = ‘A’
      pernr                        = record-pernr “i0008-pernr
    TABLES
      pp0001                       = itab1
      pp0007                       = itab7
      pp0008                       = itab8
      ppbwla                       = itabn
    EXCEPTIONS
      error_at_indirect_evaluation = 1
      OTHERS                       = 2.

ENDFORM. ” GET_PERS_DATA

Note: The WageTypes should be updated one at a time (i.e., run BDC for all employee for a specific Wage Type. Execute it from SM35. Now repeat the process for another WageType).

BDC Source Code: BDC Insert WageType in Infotype 0008

You might also be interested in these posts:

Debugging RFC functions in SAP

Admin — Wed, 12 May 2010 06:20:04 +0000

During the integrated tests, sometimes we need to debug a RFC that has been called from ASP.NET, just because the bug we are facing does not happens at SE37.

So, everytime we needed to debug the RFC, we have to insert code something like following:

IF <>. WHILE 1 EQ 1. BREAK-POINT. ENDWHILE. ENDIF.
By doing so, the program may get stuck. Then we have to go to SM50 and debug it.

Following are the easy alternate steps for RFC debugging:

Get the username that makes the RFC call into SAP in ASP
Fire up SE37, go to the code section of your RFC
Look at the menu on top, click on ‘Utilities’
Click on Settings
Go for the Debugging tab
Fill in the username that will make the call from ASP
Click IP Matching ( otherwise a debug session appears for every time any user makes the call )
Session breakpoint active immediately is nice to click as well
Put your external breakpoint where you need it ( click the icon with the stop sign and the little man )
Test your ASP connector
The breakpoint should come into effect , a debug window will pop up
You might not have the authorization to do this, if it doesnt work, use SU53 to find out what you’re missing.

This should work.

You might also be interested in these posts: