topic Re: User Exit for QA32 in Application Development and Automation Discussions

User Exit for QA32

Former Member — Fri, 11 Jun 2010 13:06:21 GMT

Dear All ,

I am doing QA32 and execute it without filling any field.It will give the worklist for inspection lots.I have select a row and click on Usage decision (UD). Without giving UD code I have click on tab Inspection lot stock and fill the value in "To unrestricted use" and press enter then it will give a warning message "Inspection is still active. Remaining sample quantity is equal to 0.000 PC".

Now my requirement is to convert this warning message to error message.

Thanks in advance.

Regards

Alok

Re: User Exit for QA32

Former Member — Fri, 11 Jun 2010 13:46:16 GMT

This message was moderated.

Re: User Exit for QA32

Former Member — Sat, 12 Jun 2010 04:49:35 GMT

Hi Vanket ,

Thanks for the reply me soon.

Tell me how to find these Exits.

Regards

Alok

Re: User Exit for QA32

p291102 — Sat, 12 Jun 2010 06:11:52 GMT

This message was moderated.

Re: User Exit for QA32

Former Member — Thu, 08 Dec 2011 11:03:17 GMT

Done..

Re: User Exit for QA32

Former Member — Thu, 08 Dec 2011 11:27:15 GMT

Hi Vishnoi,

Find this code to fine user exits,

TABLES : tstc, "SAP Transaction Codes

tadir, "Directory of Repository Objects

modsapt, "SAP Enhancements - Short Texts

modact, "Modifications

trdir, "System table TRDIR

tfdir, "Function Module

enlfdir, "Additional Attributes for Function Modules

tstct. "Transaction Code Texts

&----

*& Variables

&----

DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.

DATA : field1(30).

DATA : v_devclass LIKE tadir-devclass.

&----

*& Selection Screen Parameters

&----

SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-001.

SELECTION-SCREEN SKIP.

PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN END OF BLOCK a01.

&----

*& Start of main program

&----

START-OF-SELECTION.

Validate Transaction Code

SELECT SINGLE * FROM tstc

WHERE tcode EQ p_tcode.

Find Repository Objects for transaction code

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 = enlfdir-area.

MOVE : tadir-devclass TO v_devclass.

ENDIF.

Find SAP Modifactions

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.

Take the user to SMOD for the Exit that was selected.

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.

Thanks and Regards,

Ramkumar R

Re: User Exit for QA32

Former Member — Fri, 14 Sep 2012 18:27:15 GMT

Hi,

Please find the list of user exits for QA32.

QEVA0004 Exit for changing information line in usage decision he

QEVA0005 User subscreen for displaying add. data for usage decis

QEVA0006 Entry to usage decision transactions

QEVA0007 UD: Control of compulsory comment or long text presettings

QEVA0008 Usage decision: Customer function key (e.g. to cancel U

QEVA0009 UD: Predefinition of quantity to be posted to sample testing

QEVA0010 UD: Usage decision check

QLCO0001 QM: Call alternative costs report from UD

QSS10001 Possibility of calling a different print report

Best regards,

Venkata Siva.