FMCI_WRITE_DOCUMENT SAP Function module - CHDO FMCI => Gen. by RSSCD000

DATA:
it_icdtxt_fmci  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_fmci
 
 LIKE LINE OF it_icdtxt_fmci
,
it_xfmci  
 
 TYPE STANDARD TABLE OF CFMCI,"TABLES PARAM
wa_xfmci
 
 LIKE LINE OF it_xfmci
,
it_yfmci  
 
 TYPE STANDARD TABLE OF CFMCI,"TABLES PARAM
wa_yfmci
 
 LIKE LINE OF it_yfmci
,
it_xfmcit  
 
 TYPE STANDARD TABLE OF CFMCIT,"TABLES PARAM
wa_xfmcit
 
 LIKE LINE OF it_xfmcit
,
it_yfmcit  
 
 TYPE STANDARD TABLE OF CFMCIT,"TABLES PARAM
wa_yfmcit
 
 LIKE LINE OF it_yfmcit
,
it_xfmzubsp  
 
 TYPE STANDARD TABLE OF CFMZUBSP,"TABLES PARAM
wa_xfmzubsp
 
 LIKE LINE OF it_xfmzubsp
,
it_yfmzubsp  
 
 TYPE STANDARD TABLE OF CFMZUBSP,"TABLES PARAM
wa_yfmzubsp
 
 LIKE LINE OF it_yfmzubsp
.

 

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_fmci).

 

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

 

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_fmci to it_icdtxt_fmci.
 

"populate fields of struture and append to itab
append wa_xfmci to it_xfmci.
 

"populate fields of struture and append to itab
append wa_yfmci to it_yfmci.
 

"populate fields of struture and append to itab
append wa_xfmcit to it_xfmcit.
 

"populate fields of struture and append to itab
append wa_yfmcit to it_yfmcit.
 

"populate fields of struture and append to itab
append wa_xfmzubsp to it_xfmzubsp.
 

"populate fields of struture and append to itab
append wa_yfmzubsp to it_yfmzubsp.
.

CALL FUNCTION 'FMCI_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_fmci =            ld_upd_icdtxt_fmci
    upd_fmci =                   ld_upd_fmci
    upd_fmcit =                  ld_upd_fmcit
    upd_fmzubsp =                ld_upd_fmzubsp
  TABLES
    icdtxt_fmci =                it_icdtxt_fmci
    xfmci =                      it_xfmci
    yfmci =                      it_yfmci
    xfmcit =                     it_xfmcit
    yfmcit =                     it_yfmcit
    xfmzubsp =                   it_xfmzubsp
    yfmzubsp =                   it_yfmzubsp
    .  "  FMCI_WRITE_DOCUMENT

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