REXC_IT_ICI_WRITE_DOCUMENT SAP Function module - CHDO REXC_IT_ICI => Gen. by RSSCD000

DATA:
it_icdtxt_rexc_it_ici  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_rexc_it_ici
 
 LIKE LINE OF it_icdtxt_rexc_it_ici
,
it_xvixciticidata  
 
 TYPE STANDARD TABLE OF AVIXCITICIDATA,"TABLES PARAM
wa_xvixciticidata
 
 LIKE LINE OF it_xvixciticidata
,
it_yvixciticidata  
 
 TYPE STANDARD TABLE OF AVIXCITICIDATA,"TABLES PARAM
wa_yvixciticidata
 
 LIKE LINE OF it_yvixciticidata
,
it_xvixciticidbud  
 
 TYPE STANDARD TABLE OF AVIXCITICIDBUD,"TABLES PARAM
wa_xvixciticidbud
 
 LIKE LINE OF it_xvixciticidbud
,
it_yvixciticidbud  
 
 TYPE STANDARD TABLE OF AVIXCITICIDBUD,"TABLES PARAM
wa_yvixciticidbud
 
 LIKE LINE OF it_yvixciticidbud
.

 

SELECT single OBJECTID 
  FROM CDHDR 
  INTO @DATA(ld_objectid).

 

SELECT single TCODE 
  FROM CDHDR 
  INTO @DATA(ld_tcode).

 

SELECT single UTIME 
  FROM CDHDR 
  INTO @DATA(ld_utime).

 

SELECT single UDATE 
  FROM CDHDR 
  INTO @DATA(ld_udate).

 

SELECT single USERNAME 
  FROM CDHDR 
  INTO @DATA(ld_username).

 

SELECT single PLANCHNGNR 
  FROM CDHDR 
  INTO @DATA(ld_planned_change_number).

 

SELECT single CHANGE_IND 
  FROM CDHDR 
  INTO @DATA(ld_object_change_indicator).

 

SELECT single CHANGE_IND 
  FROM CDHDR 
  INTO @DATA(ld_planned_or_real_changes).

 

SELECT single CHANGE_IND 
  FROM CDHDR 
  INTO @DATA(ld_no_change_pointers).

 

SELECT single CHNGIND 
  FROM CDPOS 
  INTO @DATA(ld_upd_icdtxt_rexc_it_ici).

 

SELECT single CHNGIND 
  FROM CDPOS 
  INTO @DATA(ld_upd_vixciticidata).

 

SELECT single CHNGIND 
  FROM CDPOS 
  INTO @DATA(ld_upd_vixciticidbud).

 

"populate fields of struture and append to itab
append wa_icdtxt_rexc_it_ici to it_icdtxt_rexc_it_ici.
 

"populate fields of struture and append to itab
append wa_xvixciticidata to it_xvixciticidata.
 

"populate fields of struture and append to itab
append wa_yvixciticidata to it_yvixciticidata.
 

"populate fields of struture and append to itab
append wa_xvixciticidbud to it_xvixciticidbud.
 

"populate fields of struture and append to itab
append wa_yvixciticidbud to it_yvixciticidbud.
.

CALL FUNCTION 'REXC_IT_ICI_WRITE_DOCUMENT'
  EXPORTING
    objectid =                   ld_objectid
    tcode =                      ld_tcode
    utime =                      ld_utime
    udate =                      ld_udate
    username =                   ld_username
    planned_change_number =      ld_planned_change_number
    object_change_indicator =    ld_object_change_indicator
    planned_or_real_changes =    ld_planned_or_real_changes
    no_change_pointers =         ld_no_change_pointers
    upd_icdtxt_rexc_it_ici =     ld_upd_icdtxt_rexc_it_ici
    upd_vixciticidata =          ld_upd_vixciticidata
    upd_vixciticidbud =          ld_upd_vixciticidbud
  TABLES
    icdtxt_rexc_it_ici =         it_icdtxt_rexc_it_ici
    xvixciticidata =             it_xvixciticidata
    yvixciticidata =             it_yvixciticidata
    xvixciticidbud =             it_xvixciticidbud
    yvixciticidbud =             it_yvixciticidbud
    .  "  REXC_IT_ICI_WRITE_DOCUMENT

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