SAP ABAP

Some time requirments to convert amount in word here example to converting amount in word DATA : amount             TYPE  p  DECIMALS  2 ,      amt_in_words ( 255 )  TYPE  c ,      lv_text1           TYPE  string ,      lv_text2           TYPE  string . amount   =  gs_finalt - amount . CALL  FUNCTION  'HR_IN_CHG_INR_WRDS'    EXPORTING     amt_in_num          =  amount    IMPORTING     amt_in_words        =  amt_in_words    EXCEPTIONS     data_type_mismatch  =  1      OTHERS              =  2 . IF  sy - subrc <>  0 . * Implement suitable error handling here ENDIF . CLEAR :  lv_text1 , lv_text2 . SPLIT  amt_in_words  AT  'Rupees'  INTO  lv_text1 lv_text2 . CONDENSE :  lv_text1 , lv_text2 . CONCATENATE  'Rupees'  lv_text1 lv_text2  INTO  amnt_wrds                              SEPARATED  BY  space . *  AMNT_WRDS = amt_in_words.

With the help of below T-code you can write serach help  Serch Help In Module Pool Programming Language  PROCESS  ON  VALUE-REQUEST .    FIELD  vbak - ZZPORTLD  MODULE  f4_ZZORTLD . MODULE  f4_zzortld  INPUT .    TYPES :  BEGIN  OF  ty_value ,        ZCODE    TYPE   ZCODE ,        ZSDPORT  TYPE   ZSDPORT1 ,           END  OF  ty_value .    DATA :  lt_value  TYPE  STANDARD  TABLE  OF  ty_value ,         lw_value  TYPE  ty_value .    SELECT  ZCODE ZSDPORT  INTO  TABLE  lt_value  FROM  ZSDPORT . *    WHERE ebeln = rm08m-ebeln.    SORT  lt_value  BY  ZCODE ZSDPORT .    DELETE  ADJACENT  DUPLICATES  FROM  lt_value  COMPARING  ZCODE ZSDPORT .    CALL  FUNCTION  'F4IF_INT_TABLE_VALUE_REQUEST'      EXPORTING       retfield         =  'ZCODE'       dynpprog         =  sy - repid       dynpnr           =  sy - dynnr       dynprofield      =  'VBAK-ZZPORTLD'       value_org        =  'S'      TABLES       value_tab        =  lt_

Some time requirment to add some values and read some values in set     TYPES :  BEGIN  OF  TY_UNAME ,           BNAME  TYPE  USR01 - BNAME ,           PLANT  TYPE  CHAR4 ,                   END  OF  TY_UNAME .    DATA :  t_set_values   TYPE  TABLE  OF  rgsb4 ,         wa_tsetvalues  TYPE  rgsb4 ,         LT_UNAME  TYPE  TABLE  OF  TY_UNAME ,         LS_UNAME  TYPE  TY_UNAME .    CALL  FUNCTION  'G_SET_GET_ALL_VALUES'      EXPORTING        client         =  sy - mandt       setnr          =  'ZP2POFFAPR'        table          =  'USR01'        class          =  '0000'       fieldname      =  'BNAME'      TABLES       set_values     =  t_set_values      EXCEPTIONS       set_not_found  =  1        OTHERS         =  2 .    IF  sy - subrc  EQ  0 .      LOOP  AT  t_set_values  INTO  wa_tsetvalues .       LS_UNAME - BNAME  =  wa_tsetvalues - from+0 ( 7 ) .       LS_UNAME - PLANT  =  wa_tsetvalues - from+7 ( 4 ) .         APP

   APPEND  IF_BIL_NUMBER  TO  LT_BIL_NUMBER . * read invoice data from db or buffer    CALL  FUNCTION  'LB_BIL_INV_OUTP_READ_DBDATA'         EXPORTING               IT_BIL_NUMBER          =  LT_BIL_NUMBER               IF_LANGUAGE            =  IF_LANGUAGE               IS_DB_DATA_TO_READ     =  LS_DB_DATA_TO_READ               IF_READ_MODE           =  ' ' *             IF_REFRESH_BUFFER     = ' '        IMPORTING               ES_BIL_OUTP_DBDATA     =  LS_BIL_OUTP_DBDATA        EXCEPTIONS               RECORDS_NOT_FOUND      =  1               RECORDS_NOT_REQUESTED  =  2                OTHERS                 =  3 .    IF  SY - SUBRC <>  0 . *   Fehlerprotokoll    ENDIF .

DATA G_VARIANT LIKE DISVARIANT . PARAMETERS P_VAR LIKE DISVARIANT-VARIANT . INITIALIZATION. G_VARIANT-REPORT = SY- REPID . AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VAR . CALL FUNCTION 'REUSE_ALV_VARIANT_F4' EXPORTING IS_VARIANT = G_VARIANT I_SAVE = 'A' IMPORTING ES_VARIANT = G_VARIANT EXCEPTIONS NOT_FOUND = 1 PROGRAM_ERROR = 2 OTHERS = 3 . IF SY- SUBRC = 0 . P_VAR = G_VARIANT-VARIANT . ELSE. MESSAGE ID SY- MSGID TYPE SY- MSGTY NUMBER SY- MSGNO WITH SY- MSGV1 SY- MSGV2 SY- MSGV3 SY- MSGV4 . ENDIF. In your FM REUSE_ALV_GRID_DISPLAY , pass G_VARIANT to the parameter IS_VARIANT of the FM .

Read Po long text DATA :  lt_lines  TYPE  STANDARD  TABLE  OF  tline ,       wa_line   TYPE  tline ,       lv_name   TYPE  thead - tdname .          CALL  FUNCTION  'READ_TEXT'        EXPORTING *       CLIENT   = SY-MANDT          id        =  'F07'          language  =  sy - langu         name      =  lv_name         object    =  'EKKO'        TABLES          lines     =  lt_lines        .      IF  sy - subrc <>  0 .        EXIT .      ELSE .        DELETE  lt_lines  WHERE  tdline  IS  INITIAL .        LOOP  AT  lt_lines  INTO  wa_line .         lv_borker  =  wa_line - tdline .        ENDLOOP .      ENDIF .      MOVE  LV_PAYMENT  TO  gs_final - LV_PAYMENT .      REFRESH :  lt_lines[] .      CLEAR :  wa_line .

REPORT  zpo_texts . TABLES :  ekko . TYPE-POOLS  :  abap ,  slis ,  rsanm ,  icon . DATA :  lt_ekko  TYPE  STANDARD  TABLE  OF  ekko . DATA :  l_rec ( 5 )   TYPE  n . * Internal table and type definition TYPES :  BEGIN  OF  ty_alv ,          bukrs   TYPE  ekko - bukrs ,          ebeln   TYPE  ekko - ebeln ,          ekorg   TYPE  ekko - ekorg ,          ernam   TYPE  ekko - ernam ,          aedat   TYPE  ekko - aedat ,          lifnr   TYPE  ekko - lifnr ,          tdline  TYPE  tline - tdline ,         END  OF  ty_alv . TYPES :  BEGIN  OF  ty_tdname ,          tdname  TYPE  stxh - tdname ,         END  OF  ty_tdname . DATA :  ls_tdname  TYPE  ty_tdname ,       lt_tdname  TYPE  STANDARD  TABLE  OF  ty_tdname ,       ls_line    TYPE  tline ,       lv_lines   TYPE  i . DATA :  lt_stxh  TYPE  STANDARD  TABLE  OF  stxh . DATA :  lt_alv  TYPE  STANDARD  TABLE  OF  ty_alv ,       ls_alv  TYPE  ty_alv . DATA :  lt_text   TYPE  STANDARD  TABLE  OF  tdline ,