Screen exit at MI07

[Former Member]

Hi,

I've to agree a field with the material description (maktx) in the main screen of MI07 transaction, so I thought to use a screen exit. But I dont know how it work.

Can you help me?

Thanks.

Leonardo

[Former Member]

Hi,

I've to agree a field with the material description (maktx) in the main screen of MI07 transaction, so I thought to use a screen exit. But I dont know how it work.

Can you help me?

Thanks.

Leonardo

[Former Member]

Hi leonardo,

screen exit is used to modify the existing screens which has got the facilty to accomodate i/o fields ,checkboxes radiobuttons or any screen elements..

please follow below steps for more clarification and <b>step by step execution</b>

1. Go to the screen>System>Status-->Program (Double

click this program. It will take you to the program.

2. Now, Goto-->Object Directory Entry.

3. Make a note the package name.

4. Now run the transactions SMOD, press F4 and enter the

above noted package, press enter.

5. It will display list of Exits.

6. Now go back to the initial screen SMOD.

7. Specify the exit name here and select the radio button

Components.

8. It will display four group boxes one for FM, second

for Fcodes, thrid for Screen areas and last for

includes.

9. Goto transaction CMOD, create a new project, and

click the button "Enhancement assignments" and

specify your enhancements that you got in SMOD.

10. Now bouble clikc the enhancement, it will take you to editor with some includes starting with Z, double clikc the include you want to edit and proceed.

Reward if helpful...

regards,

pankaj singh

[Former Member]

Hi Pankaj Singh,

I tried what you told me but the list of Exits that I found not had fill the screen area.

[Former Member]

Hi,

To Find a Screen Exit in a Given SAP Standard T-code

copy this in your system, and execute this .. you will get the screen exits

• Program

REPORT YSMOD2 .

TABLES: MODSAP, MODACT, TSTC.

PARAMETERS: INPUT1 LIKE TSTC-TCODE DEFAULT ' ',
            INPUT2 LIKE MODSAP-TYP DEFAULT ' '.

DATA: SEARCH1(6),
      SEARCH2(3),
      SEARCH3 LIKE MODSAP-MEMBER.

DATA : FIRST_ROW VALUE 'Y'.

CONCATENATE: '%' INPUT1 '%' INTO SEARCH1,
'%' INPUT2 INTO SEARCH2.

SELECT * FROM TSTC WHERE TCODE LIKE SEARCH1.

FIRST_ROW = 'Y'.

CHECK TSTC-PGMNA NE SPACE.

CONCATENATE '%' TSTC-PGMNA '%' INTO SEARCH3.

SELECT * FROM MODSAP WHERE TYP LIKE SEARCH2
AND MEMBER LIKE SEARCH3.

SELECT SINGLE * FROM MODACT WHERE MEMBER = MODSAP-NAME.

IF FIRST_ROW EQ 'Y'.
   WRITE: /0 TSTC-TCODE, 6 TSTC-PGMNA, 16 MODSAP-NAME, 32 MODSAP-TYP,
          45 MODSAP-MEMBER, 70 MODACT-NAME.
   FIRST_ROW = 'N'.
ELSE.
   WRITE: /16 MODSAP-NAME, 32 MODSAP-TYP, 45 MODSAP-MEMBER, 70 MODACT-NAME.  
ENDIF.

CLEAR : MODSAP, MODACT.

ENDSELECT.

IF SY-SUBRC NE 0.
   WRITE : /0 TSTC-TCODE, 6 TSTC-PGMNA, 30 'No exits found'. 
ENDIF.

CLEAR TSTC.

ENDSELECT.

END-OF-SELECTION.

CLEAR: SEARCH1, SEARCH2, SEARCH3.

* End

Regards

Sudheer