C14K_CHARACT_CREATE SAP Function module

DATA:
it_i_apicabnt  
 
 TYPE STANDARD TABLE OF APICABNT,"TABLES PARAM
wa_i_apicabnt
 
 LIKE LINE OF it_i_apicabnt
,
it_i_apicawn  
 
 TYPE STANDARD TABLE OF APICAWN,"TABLES PARAM
wa_i_apicawn
 
 LIKE LINE OF it_i_apicawn
,
it_i_apitcme  
 
 TYPE STANDARD TABLE OF APITCME,"TABLES PARAM
wa_i_apitcme
 
 LIKE LINE OF it_i_apitcme
.


DATA(ld_i_client) = 'Check type of data required'.

DATA(ld_i_key_date) = '20210129'.
 

SELECT single AENNR 
  FROM CABN 
  INTO @DATA(ld_i_change_number).

 

SELECT single ATNAM 
  FROM CABN 
  INTO @DATA(ld_i_charact).



DATA(ld_i_datatype) = some text here
 

SELECT single ANZST 
  FROM CABN 
  INTO @DATA(ld_i_number_of_chars).

 

SELECT single ANZDZ 
  FROM CABN 
  INTO @DATA(ld_i_decimal_places).

 

SELECT single ATKLE 
  FROM CABN 
  INTO @DATA(ld_i_lowercase).

 

SELECT single ATDEX 
  FROM CABN 
  INTO @DATA(ld_i_exponent_display_format).

 

SELECT single ATDIM 
  FROM CABN 
  INTO @DATA(ld_i_exponent).

 

SELECT single ATSCH 
  FROM CABN 
  INTO @DATA(ld_i_edit_format).

 

SELECT single ATVOR 
  FROM CABN 
  INTO @DATA(ld_i_negative_vals_allowed).



DATA(ld_i_unit) = some text here
 

SELECT single ATMST 
  FROM CABN 
  INTO @DATA(ld_i_status).

 

SELECT single ATKLA 
  FROM CABN 
  INTO @DATA(ld_i_charact_group).

 

SELECT single ATERF 
  FROM CABN 
  INTO @DATA(ld_i_entry_required).

 

SELECT single ATEIN 
  FROM CABN 
  INTO @DATA(ld_i_multiple_values).

 

SELECT single ATINT 
  FROM CABN 
  INTO @DATA(ld_i_interval_vals_allowed).

 

SELECT single ATFOD 
  FROM CABN 
  INTO @DATA(ld_i_unformatted_entry).

 

SELECT single ATVSC 
  FROM CABN 
  INTO @DATA(ld_i_propose_edit_format).

 

SELECT single ATWRD 
  FROM CABN 
  INTO @DATA(ld_i_value_assignment).

 

SELECT single DOKNR 
  FROM DRAW 
  INTO @DATA(ld_i_document).

 

SELECT single DOKAR 
  FROM DRAW 
  INTO @DATA(ld_i_document_type).

 

SELECT single DOKTL 
  FROM DRAW 
  INTO @DATA(ld_i_document_part).

 

SELECT single DOKVR 
  FROM DRAW 
  INTO @DATA(ld_i_document_version).

 

SELECT single AUSWAHLMGE 
  FROM CABN 
  INTO @DATA(ld_i_selection_choice).

 

"populate fields of struture and append to itab
append wa_i_apicabnt to it_i_apicabnt.
 

"populate fields of struture and append to itab
append wa_i_apicawn to it_i_apicawn.
 

"populate fields of struture and append to itab
append wa_i_apitcme to it_i_apitcme.
.

CALL FUNCTION 'C14K_CHARACT_CREATE'
  EXPORTING
*   i_client =                   ld_i_client
*   i_key_date =                 ld_i_key_date
*   i_change_number =            ld_i_change_number
    i_charact =                  ld_i_charact
    i_datatype =                 ld_i_datatype
    i_number_of_chars =          ld_i_number_of_chars
*   i_decimal_places =           ld_i_decimal_places
*   i_lowercase =                ld_i_lowercase
*   i_exponent_display_format =    ld_i_exponent_display_format
*   i_exponent =                 ld_i_exponent
*   i_edit_format =              ld_i_edit_format
*   i_negative_vals_allowed =    ld_i_negative_vals_allowed
*   i_unit =                     ld_i_unit
*   i_status =                   ld_i_status
*   i_charact_group =            ld_i_charact_group
*   i_entry_required =           ld_i_entry_required
*   i_multiple_values =          ld_i_multiple_values
*   i_interval_vals_allowed =    ld_i_interval_vals_allowed
*   i_unformatted_entry =        ld_i_unformatted_entry
*   i_propose_edit_format =      ld_i_propose_edit_format
*   i_value_assignment =         ld_i_value_assignment
*   i_document =                 ld_i_document
*   i_document_type =            ld_i_document_type
*   i_document_part =            ld_i_document_part
*   i_document_version =         ld_i_document_version
*   i_selection_choice =         ld_i_selection_choice
  TABLES
    i_apicabnt =                 it_i_apicabnt
*   i_apicawn =                  it_i_apicawn
*   i_apitcme =                  it_i_apitcme
    .  "  C14K_CHARACT_CREATE

IF SY-SUBRC EQ 0.
  "All OK
ENDIF.