Example of Conversion exit

Question

Hi all,
Can anyone send me a example having 'CONVERSION_EXIT_ALPHA_INPUT' 
and 'CONVERSION_EXIT_ALPHA_OUTPUT'  functions.So i can understnad how to use it.
Regards,
Swati garg

Answer 1

Hi Swathi,
   I f you go through this report you can get to know the usage of the conversion exit for the asset number field (anln1) in table ANLA.
*& Report  ZASSET_MASTER                             *
*& Purpose    : Report to display the master details of Assets  
REPORT  zasset_master LINE-SIZE 1023
                      NO STANDARD PAGE HEADING.
TABLES: anla, anlz, zasset_master, zasset_transfer.
TYPE-POOLS: slis.
DATA : fieldcat TYPE slis_fieldcat_alv,          " FIELD CATOLOG
       fieldcat_t TYPE  slis_t_fieldcat_alv,     " FIELD CATOLOG
       pos TYPE sy-tabix,                        " POSITION FOR FIELDCAT
       name TYPE sy-repid,                       " NAME OF THE REPORT
       sort TYPE slis_sortinfo_alv,              " SORTING ITAB
       sort_t TYPE slis_t_sortinfo_alv,          " SORTING ITAB
       top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',
       user_command TYPE slis_formname VALUE 'USER_COMMAND'.
DATA : BEGIN OF it_main OCCURS 0,
         bukrs     TYPE anla-bukrs,              " Company Code
         anln1     TYPE anla-anln1,              " Asset Number
         txt50     TYPE anla-txt50,              " Asset Description
         anlkl     TYPE anla-anlkl,              " Asset Class
         ktogr     TYPE anla-ktogr,              " Account Determination
         aktiv     TYPE anla-aktiv,              " Capitalization Date
         ord41     TYPE anla-ord41,              " Evaluation Group1
         ord42     TYPE anla-ord42,              " Evaluation Group2
         lifnr     TYPE anla-lifnr,              " Vendor Code
         menge     TYPE anla-menge,              " Quantity
         meins     TYPE anla-meins,              " Unit of measure
         invnr     TYPE anla-invnr,              " Inventory No.
         sernr     TYPE anla-sernr,              " Serial No.
         ernam     TYPE anla-ernam,              " Created By
         erdat     TYPE anla-erdat,              " Created Date
         aenam     TYPE anla-aenam,              " Changed By
         aedat     TYPE anla-aedat,              " Changed Date
         gsber     TYPE anlz-gsber,              " Business Area
         kostl     TYPE anlz-kostl,              " Cost Center
         bondno    TYPE zasset_master-bondno,    " Master Bond No.
         boeno     TYPE zasset_master-boeno,     " Bill of Entry No.
         grnno     TYPE zasset_master-grnno,     " GR No.
         zeile     TYPE zasset_master-zeile,     " GR Line Item No.
         pono      TYPE zasset_master-pono,      " PO No.
         prno      TYPE zasset_master-prno,      " PO No.
         currplant    TYPE zasset_transfer-currplant,   " Curr Plant
         currloc      TYPE zasset_transfer-currloc,     " Curr Location
         currseatid   TYPE zasset_transfer-currseatid,  " Curr seatID
         curruser     TYPE zasset_transfer-curruser,    " Current UserID
         sbondno      TYPE zasset_transfer-sbondno,     " Shift Bond No.
         transferdate TYPE zasset_transfer-transferdate," Transfer Date
         anlgr        TYPE anlb-anlgr,                  " Group Asset
       END OF it_main.
DATA: it_anlz TYPE anlz OCCURS 0 WITH HEADER LINE,
      it_zasset_transfer TYPE zasset_transfer OCCURS 0 WITH HEADER LINE,
      wa_zasset_master TYPE zasset_master.
DATA: asset_no TYPE zasset_master-assetno.
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE  text-001.
SELECT-OPTIONS : s_anln1  FOR anla-anln1,
                 s_anlkl  FOR anla-anlkl,
                 s_bukrs  FOR anla-bukrs,
                 s_gsber  FOR anlz-gsber NO INTERVALS NO-EXTENSION,
                 s_kostl  FOR anlz-kostl NO INTERVALS NO-EXTENSION,
                 s_bondno FOR zasset_master-bondno NO INTERVALS
                                                     NO-EXTENSION,
                 s_boeno  FOR zasset_master-bondno NO INTERVALS
                                                     NO-EXTENSION,
                 s_plant  FOR zasset_transfer-currplant NO INTERVALS
                                                    NO-EXTENSION,
                 s_loc    FOR zasset_transfer-currloc NO INTERVALS
                                                    NO-EXTENSION,
                 s_seat   FOR zasset_transfer-currseatid,
                 s_user   FOR zasset_transfer-curruser NO INTERVALS
                                                    NO-EXTENSION,
                 s_ord41  FOR anla-ord41 NO INTERVALS NO-EXTENSION,
                 s_ord42  FOR anla-ord42 NO INTERVALS NO-EXTENSION,
                 s_lifnr  FOR anla-lifnr,
                 s_ernam  FOR anla-ernam NO INTERVALS NO-EXTENSION,
                 s_erdat  FOR anla-erdat,
                 s_aenam  FOR anla-aenam NO INTERVALS NO-EXTENSION,
                 s_aedat  FOR anla-aedat.
SELECTION-SCREEN END OF BLOCK block1.
START-OF-SELECTION.
  SELECT * FROM anla INTO CORRESPONDING FIELDS OF TABLE it_main
                         WHERE bukrs IN s_bukrs
                           AND anln1 IN s_anln1
                           AND anlkl IN s_anlkl
                           AND ord41 IN s_ord41
                           AND ord42 IN s_ord42
                           AND lifnr IN s_lifnr
                           AND ernam IN s_ernam
                           AND erdat IN s_erdat
                           AND aenam IN s_aenam
                           AND aedat IN s_aedat.
LOOP AT it_main.
   select single anlgr from anlb into it_main-anlgr
              where anln1 eq it_main-anln1.
   SELECT * FROM anlz INTO TABLE it_anlz
              WHERE anln1 EQ it_main-anln1.
     SORT it_anlz DESCENDING BY adatu.
     READ TABLE it_anlz INDEX 1.
      IF it_anlz-gsber IN s_gsber AND it_anlz-kostl IN s_kostl
         AND it_anlz-werks IN s_plant AND it_anlz-stort IN s_loc
         AND it_anlz-raumn IN s_seat AND it_anlz-pernr IN s_user.
         MOVE : it_anlz-gsber TO it_main-gsber,
                it_anlz-kostl TO it_main-kostl,
                it_anlz-werks TO it_main-currplant,
                it_anlz-stort TO it_main-currloc,
                it_anlz-raumn TO it_main-currseatid,
                it_anlz-pernr TO it_main-curruser.
         CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
           EXPORTING
             input         = it_main-anln1
          IMPORTING
             output        = asset_no.
         SELECT SINGLE pbondno pboeno pgrnno pzeile ppono pprno
                       fsbondno ftransferdate
                       INTO  CORRESPONDING FIELDS OF it_main
                 FROM  ( zasset_master   AS p  INNER JOIN
                         zasset_transfer AS f ON passetno = fassetno )
                 WHERE p~assetno EQ asset_no
                   AND f~transferdate EQ it_anlz-adatu.
        IF it_main-bondno in s_bondno and it_main-boeno in s_boeno.
           MODIFY it_main.
        ELSE.
           DELETE it_main WHERE anln1 EQ it_anlz-anln1.
        ENDIF.
      ELSE.
       DELETE it_main WHERE anln1 EQ it_anlz-anln1.
     ENDIF.
clear : asset_no, it_anlz.
refresh : it_anlz.
endloop.
SORT it_main BY anln1.
  CLEAR : fieldcat_t,pos.
  CLEAR fieldcat.
  fieldcat-fieldname = 'ANLN1'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Asset No'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'TXT50'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Asset Description'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'ANLKL'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Asset Class'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'MENGE'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Quantity'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'MEINS'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Unit'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'ORD41'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Evaluation Group1'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'ORD42'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Evaluation Group2'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'INVNR'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Inventory No.'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'SERNR'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Serial No'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'BONDNO'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Master Bond No'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'SBONDNO'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Shift Bond No'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'BOENO'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Bill of Entry No'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'AKTIV'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Capitalization Date'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'ANLGR'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Group Asset'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'CURRPLANT'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Plant'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'CURRLOC'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Location'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'CURRSEATID'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Seat ID'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'CURRUSER'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Employee ID'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'BUKRS'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Company Code'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'GSBER'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Business Area'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'KOSTL'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Cost Center'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'LIFNR'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Vendor'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'PRNO'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Purchase Requisition'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'PONO'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Purchase Order'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'GRNNO'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Goods Receipt Note'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'ZEILE'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'GR Line Item No'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  fieldcat-no_zero = 'X'.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'ERNAM'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Created By'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'ERDAT'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Created Date'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'AENAM'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Changed By'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'AEDAT'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Changed Date'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'TRANSFERDATE'.
  fieldcat-tabname = 'IT_MAIN'.
  fieldcat-seltext_l = 'Last Transfer Date'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program             = sy-repid
    i_callback_top_of_page         =
    i_callback_pf_status_set       = pf_status_set
     i_callback_user_command        = user_command
      i_grid_title                  = 'Asset Master Details'
    is_layout                      = layout
      it_fieldcat                    = fieldcat_t
      it_sort                        = sort_t
    TABLES
      t_outtab                       = it_main.
*&      Form  USERCOMMAND
FORM user_command USING ucomm LIKE sy-ucomm
                     selfield TYPE slis_selfield.
  CASE ucomm.
    WHEN '&IC1'.
      READ TABLE it_main INDEX selfield-tabindex.
       SET PARAMETER ID 'AN1' FIELD it_main-anln1.
       SET PARAMETER ID 'BUK' FIELD it_main-bukrs.
       CALL TRANSACTION 'AS03' AND SKIP FIRST SCREEN.
  ENDCASE.
ENDFORM.                    "user_command3
Reward points if the example is useful.
Regards,
Radhu