How to change the description in CV03(N) transaction ?

Question

How to chnage the long test description in CV03N transaction  
Posted: Jan 10, 2010 11:36 PM     Edit          Reply 
Hi Friends,
I have a requirement as below:
1. Excecute the transaction CV04N
2. Give Document value(s) and Excecute
3. Double click on any row on the ALV generated which takes you to CV03N transaction
4. Here in the additional data Tab, I need to concatenate Subject1,Subject3,Subject3 values and this value need to be put Description in the Document data Tab.
Ex:
If Subject1 = Test1, Subject2 = Test2 and Subject3 = Test3 then i have to change the description as Test1
Test2 Test3 When the change followed by save is clicked.
Please drop your suitable answers ASAP.
Below is the code i have used using the BADI 'DOCUMENT_MAIN01' and the method 'AFTER_SAVE'.
Below is the code :
  TYPES:
    BEGIN OF ty_ausp,
      objek TYPE ausp-objek,        "Key of object to be classified
      atinn TYPE ausp-atinn,        "Internal characteristic
      atwrt TYPE ausp-atwrt,        "Characteristic Value
    END OF ty_ausp.
  DATA:
    w_objek      TYPE ausp-objek,
    w_ltext(120) TYPE c,
    w_name       TYPE thead-tdname,        "Name
    wa_drat      TYPE drat,
    wa_ausp      TYPE ty_ausp,
    wa_tline     TYPE tline,
    wa_draw      TYPE draw,
    t_ausp       TYPE STANDARD TABLE OF ty_ausp,
    wa_thead      TYPE thead,              "SAPscript: Text Header
    t_tline      TYPE STANDARD TABLE OF tline.
  CLEAR w_objek.
  w_objek+0(3)  = draw-dokar.
  w_objek+3(25) = draw-doknr.
  w_objek+28(2) = draw-dokvr.
  w_objek+30(3) = draw-doktl.
  SELECT objek                         " Key of object to be classified
         atinn                         " Internal characteristic
         atwrt                         " Characteristic Value
    INTO TABLE t_ausp
    FROM ausp
   WHERE objek = w_objek
     AND atinn IN ('0000000858', '0000001038', '0000001039' ).
  IF sy-subrc = 0.
    SORT t_ausp BY objek atinn.
  ENDIF.                               " IF sy-subrc = 0.
  LOOP AT t_ausp INTO wa_ausp.
    CONCATENATE w_ltext wa_ausp-atwrt INTO w_ltext SEPARATED BY space.
  ENDLOOP.                             " LOOP AT t_ausp INTO wa_ausp.
  CLEAR w_name.
  MOVE draw TO wa_draw.
  w_name+0(3) = wa_draw-mandt.
  w_name+3(3) = wa_draw-dokar.
  w_name+6(25) = wa_draw-doknr.
  w_name+31(2) = wa_draw-dokvr.
  w_name+33(3) = wa_draw-doktl.
  REFRESH t_tline.
  CALL FUNCTION 'DELETE_TEXT'
    EXPORTING
    CLIENT                = SY-MANDT
      id                    = 'LTXT'
      language              = 'E'
      name                  = w_name
      object                = 'DRAT'
    savemode_direct        = ' '
    textmemory_only        = ' '
    local_cat              = ' '
   EXCEPTIONS
     not_found              = 1
     OTHERS                 = 2.
  IF sy-subrc <> 0.                    "IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.                               "IF sy-subrc <> 0.
  wa_tline-tdformat = '='.
  wa_tline-tdline = w_ltext.
  APPEND wa_tline TO t_tline.
  wa_thead-tdobject = 'DRAT'.
  wa_thead-tdname = w_name.
  wa_thead-tdid = 'LTXT'.
  wa_thead-tdspras = 'E'.
wa_thead-tdtitle = w_ltext.
  DATA:
    w_function TYPE c,
    wa_newheader  TYPE thead.
  CALL FUNCTION 'SAVE_TEXT'
    EXPORTING
     CLIENT                = SY-MANDT
      header                = wa_thead
      insert                = ' '
     SAVEMODE_DIRECT        = 'V'
    OWNER_SPECIFIED       = ' '
    LOCAL_CAT             = ' '
   IMPORTING
     function              = w_function
     newheader             = wa_newheader
    TABLES
      lines                 = t_tline
   EXCEPTIONS
      id                    = 1
      language              = 2
      name                  = 3
      object                = 4
      OTHERS                = 5.
  IF sy-subrc <> 0.                    "IF sy-subrc <> 0.
Raise message
  ENDIF.
  REFRESH t_tline[].
  CLEAR wa_thead.
  CALL FUNCTION 'READ_TEXT'
    EXPORTING
    CLIENT                        = SY-MANDT
      id                    = 'LTXT'
      language              = 'E'
      name                  = w_name
      object                = 'DRAT'
    ARCHIVE_HANDLE                = 0
    LOCAL_CAT                     = ' '
   IMPORTING
     header                        = wa_thead
    TABLES
      lines                         = t_tline
   EXCEPTIONS
     id                            = 1
     language                      = 2
     name                          = 3
     not_found                     = 4
     object                        = 5
     reference_check               = 6
     wrong_access_to_archive       = 7
     OTHERS                        = 8.
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
Please help why it is not getting effeted OR
Give a differnt way of Solving this issue.
Please drop your suitable answers ASAP.
Regards,
Rama.P

Answer 1

Hi Claud,
Go to SPROSRM ServerCross App Basic SettingsNumber rangesDefine transaction typesSelect BUS2200 and double click on transaction typesHere you will see BID (transaction type)--Just double click on this and in the screen that follows change the description.
PS: The system will generate a transport request.
Regards,
Nikhil