topic New field in MM01-Basic data in Application Development and Automation Discussions

New field in MM01-Basic data

Former Member — Fri, 24 Nov 2006 08:37:35 GMT

Hello experts,

I got a requirement to add a new filed in MM01->Basic Data1->

( i ) . Please suggest the Screen exit for this

( ii ). for this what are all tables I need to append with the new field

( iii ) And later I have to change the BAPI_MATERIAL_SAVEDATA for this new field .

Please help me with ur valueble inputs so that I can expolre and complete this issue .

Looking forward for ur inputs.

Re: New field in MM01-Basic data

Former Member — Fri, 24 Nov 2006 08:44:45 GMT

run the report to find out the exit

Report zuserexit no standard page heading.

TABLES : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.

TABLES : tstct.

DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.

DATA : field1(30).

DATA : v_devclass LIKE tadir-devclass.

PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.

SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode.

IF sy-subrc EQ 0.

SELECT SINGLE * FROM tadir

WHERE pgmid = 'R3TR' AND

object = 'PROG' AND

obj_name = tstc-pgmna.

MOVE : tadir-devclass TO v_devclass.

IF sy-subrc NE 0.

SELECT SINGLE * FROM trdir

WHERE name = tstc-pgmna.

IF trdir-subc EQ 'F'.

SELECT SINGLE * FROM tfdir

WHERE pname = tstc-pgmna.

SELECT SINGLE * FROM enlfdir

WHERE funcname = tfdir-funcname.

SELECT SINGLE * FROM tadir

WHERE pgmid = 'R3TR' AND

object = 'FUGR' AND

obj_name EQ enlfdir-area.

MOVE : tadir-devclass TO v_devclass.

ENDIF.

SELECT * FROM tadir INTO TABLE jtab

WHERE pgmid = 'R3TR' AND

object = 'SMOD' AND

devclass = v_devclass.

SELECT SINGLE * FROM tstct

WHERE sprsl EQ sy-langu AND

tcode EQ p_tcode.

FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.

WRITE:/(19) 'Transaction Code - ',

20(20) p_tcode,

45(50) tstct-ttext.

SKIP.

IF NOT jtab[] IS INITIAL.

WRITE:/(95) sy-uline.

FORMAT COLOR COL_HEADING INTENSIFIED ON.

WRITE:/1 sy-vline,

2 'Exit Name',

21 sy-vline ,

22 'Description',

95 sy-vline.

WRITE:/(95) sy-uline.

LOOP AT jtab.

SELECT SINGLE * FROM modsapt

WHERE sprsl = sy-langu AND

name = jtab-obj_name.

FORMAT COLOR COL_NORMAL INTENSIFIED OFF.

WRITE:/1 sy-vline,

2 jtab-obj_name HOTSPOT ON,

21 sy-vline ,

22 modsapt-modtext,

95 sy-vline.

ENDLOOP.

WRITE:/(95) sy-uline.

DESCRIBE TABLE jtab.

SKIP.

FORMAT COLOR COL_TOTAL INTENSIFIED ON.

WRITE:/ 'No of Exits:' , sy-tfill.

ELSE.

FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.

WRITE:/(95) 'No User Exit exists'.

ENDIF.

ELSE.

FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.

WRITE:/(95) 'Transaction Code Does Not Exist'.

ENDIF.

AT LINE-SELECTION.

GET CURSOR FIELD field1.

CHECK field1(4) EQ 'JTAB'.

SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).

CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.

Re: New field in MM01-Basic data

Former Member — Fri, 24 Nov 2006 08:46:44 GMT

There is no screen exit to MM01 transaction but there is a BADI for user specified fields & segments.

<b>MG_MASS_NEWSEG</b> - User-Specific Fields & Segments in Mass Maintenance

Re: New field in MM01-Basic data

gopi_narendra — Fri, 24 Nov 2006 08:52:26 GMT

1. there isn't any screen exit for the MM01 tcode, since u need to take the ACESS KEY for that screen where u need to add that field

2. u need to maintain the field in the MARA table for sure, remaining tables ur functional consultant shoudl be able to help u in more perfect way

3. Yes the BAPI would serve the purpose of saving the Material , but since u extend the structure of the table MARA, u need to create an extension for the BAPI also.

Regards

- Gopi