SET PARAMETER ID 'MAT' not working

[Former Member]

i've created a program in which the user enters the material number, industry sector and material type on the selection screen. these values are set using their parameter id's and are needed to further pass on to the transaction MM01's first screen. except for material number all others get passed. For material number the value doesnot get set.

for setting the parameter i've used the following code:

SET PARAMETER ID 'MAT' FIELD p_matnr.

SET PARAMETER ID 'MTP' FIELD p_mbrsh.

SET PARAMETER ID 'MTA' FIELD p_mtart. where p_matnr, p_mbrsh and p_mtart are parameters.

in the debugger the sy-subrc value is 0 for all the above .

how should i pass the value of matnr on the screen of MM01. plz help.

[Former Member]

i've created a program in which the user enters the material number, industry sector and material type on the selection screen. these values are set using their parameter id's and are needed to further pass on to the transaction MM01's first screen. except for material number all others get passed. For material number the value doesnot get set.

for setting the parameter i've used the following code:

SET PARAMETER ID 'MAT' FIELD p_matnr.

SET PARAMETER ID 'MTP' FIELD p_mbrsh.

SET PARAMETER ID 'MTA' FIELD p_mtart. where p_matnr, p_mbrsh and p_mtart are parameters.

in the debugger the sy-subrc value is 0 for all the above .

how should i pass the value of matnr on the screen of MM01. plz help.

[Former Member]

this is for va01 i hope it is helpfull for u.

&----

---

*& Report YSAI_INTERACTIVEREPORT *

*& *

&----

---

*& *

*& *

&----

---

REPORT YSAI_INTERACTIVEREPORT

NO STANDARD PAGE HEADING

LINE-COUNT (3).

&----

---

*& TABLES *

&----

---

TABLES :

KNA1, " CUSTMOER MASTER TABLE

• VBAK, " SALES ORDER HEADER

• VBAP, " SALES ORDER DETAILS

SPELL. " CURRENCY CONVERTER

&----

---

*& DATA TYPES *

&----

---

TYPES: BEGIN OF TY_KNA1, " STRUCTURE OF TY_KNA1.

KUNNR TYPE KUNNR, " CUSTOMER NUMBER

NAME1 TYPE NAME1, " CUSTOMER NAME

ORT01 TYPE ORT01, " CUSTOMER CITY

LAND1 TYPE LAND1, " COUNTRY

END OF TY_KNA1.

TYPES: BEGIN OF TY_VBAK, " STRUCTURE OF TY_VBAK.

VBELN TYPE VBELN, " ORDER NO

ERDAT TYPE ERDAT, " ORDER DATE

NETWR TYPE NETWR, " ORDER VALUE

END OF TY_VBAK.

TYPES: BEGIN OF TY_VBAP, " STRUCTURE OF TY_VBAP.

NETPR TYPE NETPR, " ITEM VALUE

POSNR TYPE POSNR, " ITEM NO

ARKTX TYPE ARKTX, " ITEM DESCRIPTION

WERKS TYPE WERKS_EXT, " PLANT NUMBER

END OF TY_VBAP.

&----

---

*& DATA TYPE *

&----

---

DATA: A TYPE I,

B TYPE I,

PN LIKE SY-PAGNO,

F(14) TYPE C,

G(15) TYPE C.

" SY-SROWS :THIS SYSTEM FIELD FOR NO OF LINES FOR WINDOW.

A = SY-SROWS. " THIS SY-SROWS IS FOR DECLAREING LINE COUNT GOLBLE

B = SY-SROWS - 2.

&----

---

*& WORK AREAS *

&----

---

DATA : WA_SALES TYPE TY_KNA1, " WORK AREA FOR SALES.

WA_ORDERS TYPE TY_VBAK, " WORK AREA FOR ORDERS.

WA_ITEM TYPE TY_VBAP. " WORK AREA FOR ITAM.

&----

---

*& BODY OF THE 3 INTERNAL TABLES *

&----

---

DATA : T_SALES TYPE STANDARD TABLE OF TY_KNA1 INITIAL SIZE 1, "INTERNAL TABLE FOR SALES.

T_ORDERS TYPE STANDARD TABLE OF TY_VBAK INITIAL SIZE 1, "INTERNAL TABLE FOR ORDERS.

T_ITEM TYPE STANDARD TABLE OF TY_VBAP INITIAL SIZE 1. "INTERNAL TABLE FOR ITEM.

&----

---

*& SELECTING OPTION *

&----

---

SELECTION-SCREEN SKIP 2.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-002 .

*selection-screen comment /2(50) text-001 .

*selection-screen uline /2(8) .

SELECTION-SCREEN SKIP .

SELECT-OPTIONS : S_CUSTNO FOR KNA1-KUNNR.

SELECTION-SCREEN END OF BLOCK B1.

• S_ORDER FOR VBAK-VBELN.

*call selection-screen 1000 starting at 10 10 ending at 90 90.

&----

---

*& EVENT BLOCKS FOR INITIALIZATION *

&----

---

INITIALIZATION.

S_CUSTNO-SIGN = 'I'.

S_CUSTNO-OPTION = 'BT'.

S_CUSTNO-LOW = 1000.

S_CUSTNO-HIGH = 1500.

APPEND S_CUSTNO.

*S_ORDER-SIGN = 'I'.

*S_ORDER-OPTION = 'BT'.

*S_ORDER-LOW = 1000.

*S_ORDER-HIGH = 6000.

*APPEND S_ORDER.

&----

---

*& EVENT BLOCK FOR TOP-OF-PAGE *

&----

---

TOP-OF-PAGE .

FORMAT COLOR OFF INTENSIFIED ON.

ULINE .

WRITE: /30'****************INTERACTIVE REPORT*********************' COLOR 1.

ULINE.

FORMAT COLOR 1.

WRITE: /20'CUSTNO' COLOR 4 INVERSE,

35'CUSTNAME' ,

70'CITY' ,

95'COUNTRY'.

ULINE.

&----

---

*& EVENT BLOCK FOR TOP-OF-PAGE AT LINE-SELECTION FOR CASE 1 *

&----

---

TOP-OF-PAGE DURING LINE-SELECTION .

CASE SY-LSIND.

WHEN '1'.

ULINE.

WRITE: /30'****************CUSTMOER DETAILS*********************' COLOR 1.

ULINE.

WRITE: /05 'CUSTNO :', WA_SALES-KUNNR COLOR 5 ,

'CUSTNAME :', WA_SALES-NAME1 COLOR 5.

ULINE.

FORMAT COLOR 1.

WRITE: /20 'ORDERNO' COLOR 4 INVERSE ,

35 'ORDER DATE',

70 'ORDER VALUE'.

ULINE.

&----

---

*& EVENT BLOCK FOR TOP-OF-PAGE AT LINE-SELECTION FOR CASE 2 *

&----

---

WHEN '2'.

ULINE.

WRITE: /30'****************ITEM DETAILS*********************' COLOR 1.

ULINE.

WRITE: /05 'CUSTNO :', WA_SALES-KUNNR COLOR 5,

25 'CUSTNAME :', WA_SALES-NAME1 COLOR 5,

70 'ORDER NO :', WA_ORDERS-VBELN COLOR 5,

100 'ORDER DATE :', WA_ORDERS-ERDAT COLOR 5.

ULINE.

FORMAT COLOR 1.

WRITE: /20 'ITEM NO' COLOR 4 INVERSE,

35 'ITEM DISCRIPTION',

75 'ITEM VALUE',

95 'PLANT NO'.

ULINE.

ENDCASE.

&----

---

*& EVENT BLOCK FOR END-OF-PAGE *

&----

---

END-OF-PAGE.

FORMAT COLOR 1.

ULINE.

WRITE:/30'**************END OF THE PAGE : ',SY-PAGNO, '***************' .

ULINE.

&----

---

*& REPORT EVENT : AT SELECTION SCREEN *

&----

---

AT SELECTION-SCREEN .

IF S_CUSTNO-LOW = SPACE AND S_CUSTNO-HIGH = SPACE.

MESSAGE E001(YSAI).

ELSEIF S_CUSTNO-LOW < 1000 .

MESSAGE E002(YSAI).

ELSEIF S_CUSTNO-HIGH > 8000.

MESSAGE E003(YSAI) WITH S_CUSTNO-HIGH.

ENDIF.

&----

---

*& EVENT BLOCKS FOR START-OF-SELECTION *

&----

---

START-OF-SELECTION.

FORMAT COLOR OFF INTENSIFIED ON. " Intensified - affects the background color BY DEFULT ON.

NEW-PAGE LINE-COUNT A.

&----

---

*& EXTRACTING DATA FROM KNA1 *

&----

---

SELECT

KUNNR

NAME1

ORT01

LAND1

FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE T_SALES

WHERE KUNNR IN S_CUSTNO .

&----

---

*& DISPLAY DATA FROM SALES TABLES *

&----

---

LOOP AT T_SALES INTO WA_SALES.

*FORMAT COLOR 2 FRAMES OFF.

FORMAT COLOR 2 FRAMES ON. "Effects lines and borders. In the default setting FRAMES ON.

WRITE:/20 WA_SALES-KUNNR HOTSPOT COLOR 4 INVERSE ON ,"Determines whether the user can enter data.

35 WA_SALES-NAME1 , "You can change the contents of list lines

70 WA_SALES-ORT01 , "output with the format INPUT on the screen.

95 WA_SALES-LAND1 .

HIDE WA_SALES-KUNNR. "The contents of f related to the current output line are stored.

"If this line is selected, f is filled automatically with the stored value.

ENDLOOP.

*WRITE:/50 WA_SALES-KUNNR INPUT ON.

SKIP TO LINE B.

&----

---

*& EVENT BLOCKS FOR AT LINE-SELECTION *

&----

---

AT LINE-SELECTION.

*WINDOW STARTING AT 15 15 ENDING AT 115 40.

NEW-PAGE LINE-COUNT A.

CASE SY-LSIND.

&----

---

*& FIRST SECONDARY LIST *

&----

---

WHEN '1'.

GET CURSOR FIELD F. " THIS STATEMENT FOR STATING THE CURSOR FIELD FOR KUNNR.

IF F = 'WA_SALES-KUNNR'.

&----

---

*& EXTRACTING DATA FROM VBAK *

&----

---

SELECT

VBELN

ERDAT

NETWR

FROM VBAK INTO CORRESPONDING FIELDS OF TABLE T_ORDERS

WHERE KUNNR = WA_SALES-KUNNR." AND VBELN IN S_ORDER .

&----

---

*& DISPLAY DATA *

&----

---

IF SY-DBCNT NE SPACE.

FORMAT COLOR 2.

LOOP AT T_ORDERS INTO WA_ORDERS.

WRITE:/20 WA_ORDERS-VBELN HOTSPOT COLOR 4 INVERSE,

35 WA_ORDERS-ERDAT HOTSPOT,

60 WA_ORDERS-NETWR .

HIDE WA_ORDERS.

&----

---

*& EVENT BLOCKS FOR ADDING ALL ORDER VALUES *

&----

---

AT LAST.

SUM.

WRITE: /66 SY-ULINE(18).

FORMAT COLOR 3.

WRITE: /22 'SUB-TOTAL OF CUSTOMER',58 'RS',60 WA_ORDERS-NETWR,'/-'.

WRITE: /66 SY-ULINE(18).

&----

---

*& EVENT BLOCKS FOR CALLING FUNCTION SPELL_AMOUNT *

&----

---

CALL FUNCTION 'SPELL_AMOUNT'

EXPORTING

AMOUNT = WA_ORDERS-NETWR

CURRENCY = 'DEM '

IMPORTING

IN_WORDS = SPELL.

WRITE:/ 'TOTAL IN-WORDS:', 20 SPELL-WORD .

WRITE: 75'AND',78 SPELL-DECWORD.

ENDAT.

ENDLOOP.

SKIP TO LINE B.

ELSE. "THIS IS ENDING STATEMENT FOR DBCNT.

MESSAGE E000(YSAI).

ENDIF.

ELSE. "THIS IS ENDING STATEMENT FOR SORSOR FIELD.

MESSAGE E004(YSAI).

ENDIF.

&----

---

*& SECOND SECONDARY LIST *

&----

---

WHEN '2'.

GET CURSOR FIELD G. " THIS STATEMENT FOR STATING THE CURSOR FIELD.

IF G = 'WA_ORDERS-VBELN'.

&----

---

*& EXTRACTING DATA FROM VBAP *

&----

---

SELECT

NETPR

POSNR

ARKTX

WERKS

FROM VBAP INTO CORRESPONDING FIELDS OF TABLE T_ITEM

WHERE VBELN = WA_ORDERS-VBELN .

&----

---

*& DISPLAY DATA OF ITEM TABLE *

&----

---

FORMAT COLOR 2.

WINDOW STARTING AT 15 15 ENDING AT 115 40.

LOOP AT T_ITEM INTO WA_ITEM.

WRITE:/20 WA_ITEM-POSNR COLOR 4 INVERSE,

35 WA_ITEM-ARKTX,

70 WA_ITEM-NETPR,

95 WA_ITEM-WERKS.

&----

---

*& EVENT BLOCKS FOR ADDING ALL ITEM VALUES *

&----

---

AT LAST.

SUM.

SKIP.

ULINE 72(18).

FORMAT COLOR 3.

WRITE: /22 'SUB-TOTAL OF ITEMS VALUE ',65 'RS',70 WA_ITEM-NETPR,'/-'.

WRITE: /72 SY-ULINE(18).

&----

---

*& EVENT BLOCKS FOR CALLING FUNCTION SPELL_AMOUNT *

&----

---

CALL FUNCTION 'SPELL_AMOUNT'

EXPORTING

AMOUNT = WA_ITEM-NETPR

CURRENCY = 'DEM '

IMPORTING

IN_WORDS = SPELL.

WRITE: / 'TOTAL IN-WORDS:', 20 SPELL-WORD,/33 'AND', 38 SPELL-DECWORD.

FORMAT COLOR OFF.

ENDAT.

ENDLOOP.

SKIP TO LINE B.

ELSE.

IF G = 'WA_ORDERS-ERDAT'.

&----

---

*& EVENT BLOCKS FOR SETING PARAMETER AND CALLING TRANSACTION *

&----

---

SET PARAMETER ID 'AUN' FIELD WA_ORDERS-VBELN.

CALL TRANSACTION 'VA02'.

ELSE.

MESSAGE I005(YSAI).

ENDIF.

ENDIF.

SCROLL LIST INDEX 1 TO FIRST PAGE.

ENDCASE.

[Former Member]

just use

SET PARAMETER ID 'MAT' FIELD p_matnr.

SET PARAMETER ID 'MTP' FIELD p_mbrsh.

SET PARAMETER ID 'MTA' FIELD p_mtart.

call transaction 'MM01' and skip first screen.

it will automatic fill the data required for first screen data in MM01 by set parameter id.

regards

shiba dutta

null

[Former Member]

i've tried already as u all have suggested. But its not working in that way. please tell how to populate the userdefined data on to the screen of transaction MM01. Especially material number

plz help.

[thomas13_scheuermann]

Hi,

this is SAP-special code for MM01. Material number will be cleared, if the program not recognizes, that an other program will call it.

For this, fill the parameter id 'MXX' e.g. with your program name. This should work.

Means:

SET PARAMETER ID 'MXX' FIELD 'SOMETHING'. " <=== new

SET PARAMETER ID 'MAT' FIELD p_matnr.

SET PARAMETER ID 'MTP' FIELD p_mbrsh.

SET PARAMETER ID 'MTA' FIELD p_mtart. where p_matnr, p_mbrsh and p_mtart are parameters.

You can look in the function 'EINSTIEGS_DATEN_VORSCHLAGEN' ( SE37 ) or in the code 'LMGMMO0F' ( SE38 ).

I hope it will work in your release.

Best regards

Thomas Scheuermann