Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

RE: user exits

Former Member
0 Kudos

what are the user exits for IW31&IW32

4 REPLIES 4

Former Member
0 Kudos

Hello,

The exit for the Tcode IW31 & IW32 is

Transaction Code - IW31 Create Order

Exit Name Description

IWO10012 Maintenance order: Priority handling on central header

No of Exits: 1

U could use this report to get all the exit of a particular Tcode.

REPORT ZV_FIND_EXIT 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.

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.

*************************************************************

Vasanth

Former Member
0 Kudos

Hi!

Area: Maintenance and service orders

o IWO10001 Creation of maintenance sub-order

o IWO10002 Maintenance order: Customer check for order release

o IWO10004 Maintenance order: Customer check for order completion

o IWO10005 Maintenance order: Customer-specific determination of

profit center

o IWO10006 Maintenance order: Exclusion of function codes through

customer enhancements

o IWO10007 Maintenance order: Customer enhancement for permits in

order

o IWO10008 Maintenance order: Determination of tax jurisdiction code

o IWO10009 Maintenance order: Customer check for "Saving"

o IWO10010 Maintenance order: Determination of WBS element

o IWO10011 Maintenance order: Component selection

o IWO10012 Maintenance order: Priority treatment on central header

o IWO10015 Maintenance order: F4 Help for user fields on operation

o IWO10016 Maintenance order: Check of operation user fields

o IWO10017 Determination of external order number by customer logic

o IWO10018 Maintenance order: User fields on order header

o IWO10020 Maintenance order: Automatic inclusion of task list

o IWO10021 Automatic task list transfer for order creation for

notification

o IWO10022 Determine calendar from customer exit

o IWO10023 Service order: Changes to header data for advance shipment

o IWO10024 Service order: Changes to items for advance shipment

o IWO10025 Maintenance/service order: Determination of responsible

cost center

o IWO10026 User check when setting status "Do not perform"

o IWO10027 Generate user-specific settlement rule

o IWO10029 Inclusion of bill of material in maintenance/service order

o IWO10030 Pre-filling the fields for the result object

o IWO10031 Hiding the employee number in the maintenance-/service

order

o IWO10033 Customer-specific authorization check maintenance-/service

order (triggered by BAdI IWO1_ORDER_BADI)

o IWO10034 Operation status based on the status of the capacity

requirement

o COI20001 Change of persons determined

o COI20002 Alternative procurement of the employee availability data

o CYPP0001 Change of the sequential criteria and the sequential

planning

o IWO20001 Maintenance order: Task list transfer in order

o ICSV0004 Check maintenance object and display object information

o CNEX0013 Maintenance order: Proposal for item category for component

assignment

o CNEX0026 Maintenance order: General check for material

o CNEX0027 Maintenance order: Determination of plant or storage

location for component

o COZF0001 Maintenance order: Change purchase requisition for external

operation

o COZF0002 Maintenance order: Change purchase requisition for external

component

Regards

Tamá

p291102
Active Contributor
0 Kudos

Hi,

I have one program man. U can find out for which TC u can find the userexits are available for that man.

REPORT YMS_USEREXITSTEST 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.

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.

-End of Program-

Thanks,

Shankar

Former Member
0 Kudos

Hi

Go to tht perticular Tcode IW31&IW32

Go to menu bar SYSTEM ->STATUS

we can get program name. open tht program in ATTRIBUTES we can find PACKAGE name.

Go to SMOD give tht package name ,now we get all exits

Regards