adding custom fields in vt01

Former Member — Sun, 25 Jun 2006 20:52:42 GMT

Hi,

I need to add custom fields in tran vt01, vt02, vt03

and these custom fields added in sap table vttp.

thanks

Re: adding custom fields in vt01

Manohar2u — Sun, 25 Jun 2006 21:09:10 GMT

First step is to find the user exits available for VT01 transaction.

Here is the program to find the exits for a given TCode

REPORT z_find_userexit NO STANDARD PAGE HEADING.
 
 
 
*&---------------------------------------------------------------------*
 
*&  Enter the transaction code that you want to search through in order
 
*&  to find which Standard SAP User Exits exists.
 
*&
 
*&---------------------------------------------------------------------*
 
 
 
*&---------------------------------------------------------------------*
 
*& Tables
 
*&---------------------------------------------------------------------*
 
 
 
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.
 
    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.

Then include z fields to vttp's CI Include, then write your code in FM exits to update and display dbase fields.

Please mark the helpful answers

Re: adding custom fields in vt01

Former Member — Sun, 25 Jun 2006 21:30:46 GMT

You can use the exit EXIT_SAPLV56U_004, anyway see the enhancement (trx CMOD) beginning V56*

Max

Re: adding custom fields in vt01

Former Member — Mon, 26 Jun 2006 01:29:40 GMT

Please let me know

what enhancement should i take for SMOD and

what routine should i take.

topic adding custom fields in vt01 in Application Development and Automation Discussions

adding custom fields in vt01

Re: adding custom fields in vt01

Re: adding custom fields in vt01

Re: adding custom fields in vt01