Simple ABAP - Create allowed values in a characteristic by BAPI_CHARACT_CREATE

REPORT  znew.
************************************************************************
* Program Name: BAPI CHARACTER CREATE             Creation: 02/20/2009
*
* SAP Name    : ZNEW                              Application: ABAP
*
* Author      : Srivastava.G                      Type: 1
*_______________________________________________________________*
* Description : To create charcterstics using BAPI Techniques replica
*               for the transaction CT04.
*_______________________________________________________________*
* Inputs:
*   Tables:
*    N/A.
*   Select options:
*     N/A.
*   Parameters:
*     N/A
* Outputs:Creation of characterstic in the repository.With proper
*         messages as displays.
*__________________________________________________________ ____*
* External Routines    N/A.
*
*   Function Modules:
*     BAPI_CHARACT_CREATE
*   Transactions    : No
*   Programs        : No
*_______________________________________________________________*
* Return Codes: No
*_______________________________________________________________*
* Ammendments:
*    Programmer        Date     Req. #            Action
* ================  ==========  ======  ===========================
*
***********************************************************************
*" Types declarations..................................................
*"---------------------------------------------------------------------
* Types to hold the data for the fields to be uploaded.
*"---------------------------------------------------------------------
 
TYPES: BEGIN OF types_s_tab,
  charact_name LIKE bapicharactdetail-charact_name,
  data_type LIKE bapicharactdetail-data_type,
  length LIKE bapicharactdetail-length,
  status LIKE bapicharactdetail-status,
  value_assignment LIKE bapicharactdetail-value_assignment,
  language_int LIKE bapicharactdescr-language_int,
  desc LIKE bapicharactdescr-description,
  langu LIKE bapicharactvaluesdescr-description,
  value_char LIKE bapicharactvaluesdescr-value_char,
  description LIKE bapicharactdescr-description,
  value_char1 LIKE bapicharactvalueschar-value_char,
END OF types_s_tab.
 
*" Data declarations...................................................
*"--------------------------------------------------------------------*
* Field string to hold the data for t_tab.
*"--------------------------------------------------------------------*
 
DATA:
  fs_tab TYPE types_s_tab.
 
*"--------------------------------------------------------------------------------------------*
* Field string to hold the data for bapicharactdetail.
*"--------------------------------------------------------------------------------------------*
 
DATA:
  fs_char TYPE bapicharactdetail.
 
*"-------------------------------------------------------------------------------------------*
* Field string to hold the data for bapicharactdescr.
*"-------------------------------------------------------------------------------------------*
 
DATA:
  fs_chardes TYPE bapicharactdescr.
 
*"--------------------------------------------------------------------------------------------------*
* Field string to hold the data for bapicharactvaluesdescr.
*"--------------------------------------------------------------------------------------------------*
 
DATA:
   fs_charvalue TYPE bapicharactvaluesdescr.
 
*"--------------------------------------------------------------------------------------------------*
* Field string to hold the data for bapiret2.
*"---------------------------------------------------------------------------------------------------*
 
DATA:
  fs_return TYPE bapiret2.
*"--------------------------------------------------------------------------------------------------*
* Field string to hold the data for charactvalueschar.
*"--------------------------------------------------------------------------------------------------*
DATA:
  fs_charv TYPE bapicharactvalueschar.
 
*"--------------------------------------------------------------------------------------------------*
* Field string to hold the after upload.
*"--------------------------------------------------------------------------------------------------*
 
DATA:
  fs_updata TYPE bapicharactdetail.
 
DATA:
  fs_upda TYPE bapicharactdescr.
 
*"-----------------------------------------------------------------------------------------------*
* Internal Table to hold data for  table bapicharactdetail.
*"-----------------------------------------------------------------------------------------------*
 
DATA:
     t_tab TYPE
  STANDARD TABLE
        OF types_s_tab.
*"-----------------------------------------------------------------------------------------------*
* Internal Table to hold data for  table bapicharactdetail.
*"-----------------------------------------------------------------------------------------------*
 
DATA:
      t_char TYPE
    STANDARD TABLE
          OF  bapicharactdetail.
 
*"----------------------------------------------------------------------------------------------*
* Internal Table to hold data for bapicharactdescr.
*"----------------------------------------------------------------------------------------------*
 
DATA:
     t_chardes TYPE
      STANDARD TABLE
            OF bapicharactdescr.
 
*"---------------------------------------------------------------------------------------------*
* Internal Table to hold data for bapicharactvaluesdescr.
*"---------------------------------------------------------------------------------------------*
 
DATA:
    t_charvalue TYPE
       STANDARD TABLE
             OF bapicharactvaluesdescr.
 
*"-----------------------------------------------------------------------------------------*
* Internal Table to hold data for bapiret2.
*"-----------------------------------------------------------------------------------------*
 
DATA:
     t_return TYPE
     STANDARD TABLE
           OF bapiret2.
 
*"------------------------------------------------------------------------------------------*
* Internal Table to hold data for charactvalueschar.
*"------------------------------------------------------------------------------------------*
 
DATA:
  t_charv TYPE
 STANDARD TABLE
       OF bapicharactvalueschar.
 
*" Selection-Screen....................................................
 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE input.
 
PARAMETERS:
  p_file TYPE
         rlgrap-filename OBLIGATORY.      " File location Input
 
SELECTION-SCREEN END OF BLOCK b1.
 
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name  = syst-cprog
      dynpro_number = syst-dynnr
    IMPORTING
      file_name     = p_file.
 
START-OF-SELECTION.
 
  PERFORM upload_file USING p_file.
 
*" Populating data....................................................
*"--------------------------------------------------------------------*
 
  LOOP AT t_tab INTO fs_tab.
 
    fs_char-charact_name = fs_tab-charact_name.
    fs_char-data_type = fs_tab-data_type.
    fs_char-length = fs_tab-length.
    fs_char-status = fs_tab-status.
    fs_char-value_assignment = fs_tab-value_assignment.
 
    fs_chardes-language_int = fs_tab-language_int.
    fs_chardes-description = fs_tab-desc.
 
    fs_charvalue-language_int = fs_tab-langu.
    fs_charvalue-value_char = fs_tab-value_char.
    fs_charvalue-description = fs_tab-description.
    fs_charv-value_char = fs_tab-value_char1.
 
    CALL FUNCTION 'BAPI_CHARACT_CREATE'
      EXPORTING
        charactdetail      = fs_char
      TABLES
        charactdescr       = t_chardes
        charactvalueschar  = t_charv
        charactvaluesdescr = t_charvalue
        return             = t_return.
    LOOP AT t_return INTO fs_return.
      WRITE:/ fs_return-type,
              fs_return-id,
              fs_return-number,
              fs_return-message.
    ENDLOOP.
 
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
  ENDLOOP.
*&---------------------------------------------------------------------*
*&      Form  UPLOAD_FILE
*&--------------------------------------------------------------------*
*       Uploading file from presentation server.
*----------------------------------------------------------------------*
*    Interface Paraemeter passed is p_file
*----------------------------------------------------------------------*
FORM upload_file  USING   p_file.
 
  DATA: lw_file TYPE string.
  lw_file = p_file.
 
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = lw_file
      has_field_separator     = 'X'
    TABLES
      data_tab                = t_tab
    EXCEPTIONS
      file_open_error         = 1
      file_read_error         = 2
      no_batch                = 3
      gui_refuse_filetransfer = 4
      invalid_type            = 5
      no_authority            = 6
      unknown_error           = 7
      bad_data_format         = 8
      header_not_allowed      = 9
      separator_not_allowed   = 10
      header_too_long         = 11
      unknown_dp_error        = 12
      access_denied           = 13
      dp_out_of_memory        = 14
      disk_full               = 15
      dp_timeout              = 16
      OTHERS                  = 17.
 
ENDFORM.                    " UPLOAD_FILE