ABAP Memory

[Former Member]

Hi ! I am calling a transaction(Standard Report - ME1P) from within my report. Now, as soon as the user clicks on the Material Name in the Calling Report ALV screen the next screen from ME1P should come for the respective material and the vendor.

Using the code in the calling program:-

CASE LV_UCOMM.
 WHEN '&IC1'.
      READ TABLE DISP INDEX SELFIELD-TABINDEX.
      IF SY-SUBRC = 0.
        CASE SELFIELD-FIELDNAME.
          WHEN 'TXZ01'.
            SET PARAMETER ID 'LIF' FIELD DISP-LIFNR.
            SET PARAMETER ID 'MAT' FIELD DISP-MATNR.
            CALL TRANSACTION 'ME1P' AND SKIP FIRST SCREEN.
        ENDCASE.
     ENDIF.
 ENDCASE.

Now, how can I pass the correct material and vendor number to Transaction ME1P ?

[Former Member]

Hi,

Instead of mere CALL TRANSACTION , try with CALL TRANSACTION using BDC DATA ( recorded screen input data).

Hope this may help you.

Regards,

Smart Varghese

[Former Member]

Actually I tried every possibility, But the thing is that the material no. which is getting passed using the parameter ID is not correct. No matter on which material no. the user clicks, the wrong material no. is coming in the parameter ID. That is why we need to use the ABAP memory to pass the material no.

Please help.

[Sandra_Rossi]

In complement of Smart Varghese answer, you should use MODE 'E' so that to remain on the ME1P screen. Note: to fill <itab> of the CALL TRANSACTION ... USING <itab> (BDC DATA as he says), you may use SHDB transaction to see what it should contain.

[Sandeep_Kumar]

Check the screen-field name , i guess for ME1P the selection screen is generated rather than simply defining the parameters.

[Former Member]

Through the Call Transaction, I am passing 2 values - 1.material No. & 2 Vendor No..

Vendor number is coming correctly, but the Material no. is coming wrong.

[former_member536879]

Hi,

In the SELFIELD Structure you will have the line selected value.

and by the below given example you can set the set the values

set PARAMETER ID 'BES' FIELD 'that work area value'.

call TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

With Regards,

Sumodh.P

[Former Member]

Hi ,

Instead of CALL TRANSACTION , USE SUBMIT.

Please check the below code .( Run the below code , which will give you an idea).

REPORT ZTEST.

data: rspar_line TYPE rsparams,

rspar_tab TYPE TABLE OF rsparams.

rspar_line-selname = 'IF_LIFNR'.

rspar_line-kind = 'S'.

rspar_line-sign = 'I'.

rspar_line-option = 'EQ'.

rspar_line-low = '100'. " Change the LIFNR value 100 with your VALUE

APPEND rspar_line TO rspar_tab.

rspar_line-selname = 'TK_MATNR'.

rspar_line-kind = 'S'.

rspar_line-sign = 'I'.

rspar_line-option = 'EQ'.

rspar_line-low = 'P2420000001'. " Change the MATNR value P2420000001 with your VALUE

APPEND rspar_line TO rspar_tab.

SUBMIT RM06IBP0 using selection-SCREEN '1000'

with SELECTION-TABLE rspar_tab

and return.

Hope this will help you.

Regards,

Smart

[Former Member]

Actually what happens is that, the user runs the ALV report ZPOREPORT and he gets a list of Material Number, Material name , Vendor Name etc..

As soon as the user clicks on the Material name, it goes to ME1P transaction with that line specific material no. and the vendor code to pull the purchase order history.

[Former Member]

Hi ,

WHEN '&IC1'.

READ TABLE DISP INDEX SELFIELD-TABINDEX.

IF SY-SUBRC = 0.

CASE SELFIELD-FIELDNAME.

WHEN 'TXZ01'.

Comment the below 3 lines.

• SET PARAMETER ID 'LIF' FIELD DISP-LIFNR.

• SET PARAMETER ID 'MAT' FIELD DISP-MATNR.

• CALL TRANSACTION 'ME1P' AND SKIP FIRST SCREEN.

Here new code.

PERFORM call_ME1P using <LIFNR> <MATNR>.

ENDCASE.

ENDIF.

ENDCASE.

This is the subroutine code.

FORM call_ME1P using <LIFNR> <MATNR>.

data: rspar_line TYPE rsparams,

rspar_tab TYPE TABLE OF rsparams.

rspar_line-selname = <LIFNR>. " This is your LIFNR

rspar_line-kind = 'S'.

rspar_line-sign = 'I'.

rspar_line-option = 'EQ'.

rspar_line-low = '100'.

APPEND rspar_line TO rspar_tab.

rspar_line-selname = <MATNR>. " This is your MATNR.

rspar_line-kind = 'S'.

rspar_line-sign = 'I'.

rspar_line-option = 'EQ'.

rspar_line-low = 'P2420000001'.

APPEND rspar_line TO rspar_tab.

submit RM06IBP0 using selection-SCREEN '1000'

with SELECTION-TABLE rspar_tab

and return.

ENDFORM.

Regards,

Smart

[kesavadas_thekkillath]

Try this

data:i_params type table of RSPARAMS.
data:wa_params type rsparams.

CASE LV_UCOMM.
 WHEN '&IC1'.
      READ TABLE DISP INDEX SELFIELD-TABINDEX.
      IF SY-SUBRC = 0.
        CASE SELFIELD-FIELDNAME.
          WHEN 'TXZ01'.

wa_params-selname = 'TK_MATNR'.
wa_params-kind = 'S'.
wa_params-sign = 'I'.
wa_params-option = 'EQ'.
wa_params-low = DISP-MATNR
append wa_params to i_params.


wa_params-selname = 'IF_LIFNR'.
wa_params-kind = 'S'.
wa_params-sign = 'I'.
wa_params-option = 'EQ'.
wa_params-low = DISP-LIFNR
append wa_params to i_params.

  CALL FUNCTION 'SUBMIT_REPORT'
    EXPORTING
      report                 = 'RM06IBP0'
      SKIP_SELSCREEN         = 'X' 
    TABLES
     SELECTION_TABLE        = i_params[]
  EXCEPTIONS
     JUST_VIA_VARIANT       = 1
     NO_SUBMIT_AUTH         = 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.
endif.
 ENDCASE.

[Former Member]

Thank you very much. But how after seeing the ME1P screen the program comes back to the Report or the ALV screen.

[kesavadas_thekkillath]

there is a parameter return_via_leave in the function module , mark it as X

[Former Member]

RET_VIA_LEAVE = 'X'. But it is doing nothing.

[kesavadas_thekkillath]

Use this

DATA:i_bdcdata TYPE TABLE OF bdcdata,
     wa_data TYPE bdcdata.

CASE lv_ucomm.
  WHEN '&IC1'.
    READ TABLE disp INDEX selfield-tabindex.
    IF sy-subrc = 0.
      CASE selfield-fieldname.
        WHEN 'TXZ01'.
          CLEAR wa_data.
          wa_data-program  = 'RM06IBP0'.
          wa_data-dynpro   = '1000'.
          wa_data-dynbegin = 'X'.
          APPEND wa_data TO i_bdcdata.
          CLEAR wa_data.
          wa_data-fnam = 'BDC_CURSOR'.
          wa_data-fval = 'TK_MATNR-LOW'.
          APPEND wa_data TO i_bdcdata.
          CLEAR wa_data.
          wa_data-fnam = 'BDC_OKCODE'.
          wa_data-fval = '=ONLI'.
          APPEND wa_data TO i_bdcdata.
          CLEAR wa_data.
          wa_data-fnam = 'IF_LIFNR-LOW'.
          wa_data-fval = '0000003910'."disp-lifnr.
          APPEND wa_data TO i_bdcdata.
          CLEAR wa_data.
          wa_data-fnam = 'TK_MATNR-LOW'.
          wa_data-fval = 'C-201' ."disp-matnr.
          APPEND wa_data TO i_bdcdata.
          CALL TRANSACTION 'ME1P' USING i_bdcdata MODE 'E'.
        ENDIF.
    ENDCASE.