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: 

User Exits for TM01, TS01, TM_51

Former Member
0 Kudos

Hi Gurus,

I am looking for a suitable exit or BAdI to modify the value of the field VTGFHA-MERKM (Characteristics in Administration tab) in the forementioned transactions.

Does anyone have any information on the subject?

thanks in advance,

Sergio

1 ACCEPTED SOLUTION

former_member188685
Active Contributor

Hi There is a program to find user exits...

run this and find the user exits...

report z_find_user_exit no standard page heading.
 
tables: tstc, tadir, modsapt, modact,
        trdir, tfdir, enlfdir, tstct.
 
data : jtab like tadir occurs 0 with header line.
data : hotspot(30).
 
parameters : p_tcode like tstc-tcode obligatory.
 
at line-selection.
  get cursor field hotspot.
  check hotspot(4) eq 'JTAB'.
  set parameter id 'MON' field sy-lisel+1(10).
  call transaction 'SMOD' and skip first screen.
 
start-of-selection.
 
  perform get_data.
  perform write_list.
 
 
*---------------------------------------------------------------------*
*       FORM get_data                                                 *
*---------------------------------------------------------------------*
form get_data.
 
  select single * from tstc
              where tcode eq p_tcode.
  check sy-subrc eq 0.
 
  select single * from tadir
            where pgmid = 'R3TR'
              and object = 'PROG'
              and obj_name = tstc-pgmna.
 
 
  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.
    endif.
 
  endif.
 
  select * from tadir into table jtab
             where pgmid = 'R3TR'
               and object = 'SMOD'
               and devclass = tadir-devclass.
 
  select single * from tstct
          where sprsl eq sy-langu
            and tcode eq p_tcode.
 
endform.
 
*---------------------------------------------------------------------*
*       FORM write_list                                               *
*---------------------------------------------------------------------*
form write_list.
 
  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.
 
endform.

2 REPLIES 2

Former Member
0 Kudos

Hi!

Choose the one suits your needs from following enhancements:

F64O0001 Enhancement for Treasury/Securities/Order management

FV970001 Enhancement for Treasury/Securities/Cash flow calculator

FVVW0105 ISIS Securities - sec.account transfer - subscreen

FVVW0110 ISIS Securities - sec.account transfer - create other flows

FVVW0200 ISIS Securities - Maintain sec.account master data

FVVWCF02 ISIS Securities - CASH_FLOW_CONSTRUCT_SECURITY

FWF1001 Treasury Securities: Posting Interface

Regards,

Maxim.

former_member188685
Active Contributor

Hi There is a program to find user exits...

run this and find the user exits...

report z_find_user_exit no standard page heading.
 
tables: tstc, tadir, modsapt, modact,
        trdir, tfdir, enlfdir, tstct.
 
data : jtab like tadir occurs 0 with header line.
data : hotspot(30).
 
parameters : p_tcode like tstc-tcode obligatory.
 
at line-selection.
  get cursor field hotspot.
  check hotspot(4) eq 'JTAB'.
  set parameter id 'MON' field sy-lisel+1(10).
  call transaction 'SMOD' and skip first screen.
 
start-of-selection.
 
  perform get_data.
  perform write_list.
 
 
*---------------------------------------------------------------------*
*       FORM get_data                                                 *
*---------------------------------------------------------------------*
form get_data.
 
  select single * from tstc
              where tcode eq p_tcode.
  check sy-subrc eq 0.
 
  select single * from tadir
            where pgmid = 'R3TR'
              and object = 'PROG'
              and obj_name = tstc-pgmna.
 
 
  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.
    endif.
 
  endif.
 
  select * from tadir into table jtab
             where pgmid = 'R3TR'
               and object = 'SMOD'
               and devclass = tadir-devclass.
 
  select single * from tstct
          where sprsl eq sy-langu
            and tcode eq p_tcode.
 
endform.
 
*---------------------------------------------------------------------*
*       FORM write_list                                               *
*---------------------------------------------------------------------*
form write_list.
 
  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.
 
endform.