THX_CD_HREL_WRITE_DOCUMENT SAP Function module - Write change documents for hrel/hitem/hinst

DATA:
it_icdtxt_thx_cd_hrel  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_thx_cd_hrel
 
 LIKE LINE OF it_icdtxt_thx_cd_hrel
,
it_xthxt_hinst  
 
 TYPE STANDARD TABLE OF VTHXT_HINST,"TABLES PARAM
wa_xthxt_hinst
 
 LIKE LINE OF it_xthxt_hinst
,
it_ythxt_hinst  
 
 TYPE STANDARD TABLE OF VTHXT_HINST,"TABLES PARAM
wa_ythxt_hinst
 
 LIKE LINE OF it_ythxt_hinst
,
it_xthxt_hitem  
 
 TYPE STANDARD TABLE OF VTHXT_HITEM,"TABLES PARAM
wa_xthxt_hitem
 
 LIKE LINE OF it_xthxt_hitem
,
it_ythxt_hitem  
 
 TYPE STANDARD TABLE OF VTHXT_HITEM,"TABLES PARAM
wa_ythxt_hitem
 
 LIKE LINE OF it_ythxt_hitem
.

 

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

 

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

 

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


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

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

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

 

"populate fields of struture and append to itab
append wa_icdtxt_thx_cd_hrel to it_icdtxt_thx_cd_hrel.
 

"populate fields of struture and append to itab
append wa_xthxt_hinst to it_xthxt_hinst.
 

"populate fields of struture and append to itab
append wa_ythxt_hinst to it_ythxt_hinst.
 

"populate fields of struture and append to itab
append wa_xthxt_hitem to it_xthxt_hitem.
 

"populate fields of struture and append to itab
append wa_ythxt_hitem to it_ythxt_hitem.
.

CALL FUNCTION 'THX_CD_HREL_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_thx_cd_hrel =     ld_upd_icdtxt_thx_cd_hrel
    upd_thxt_hinst =             ld_upd_thxt_hinst
    upd_thxt_hitem =             ld_upd_thxt_hitem
    n_thxt_hrel =                ld_n_thxt_hrel
    o_thxt_hrel =                ld_o_thxt_hrel
    upd_thxt_hrel =              ld_upd_thxt_hrel
  TABLES
    icdtxt_thx_cd_hrel =         it_icdtxt_thx_cd_hrel
    xthxt_hinst =                it_xthxt_hinst
    ythxt_hinst =                it_ythxt_hinst
    xthxt_hitem =                it_xthxt_hitem
    ythxt_hitem =                it_ythxt_hitem
    .  "  THX_CD_HREL_WRITE_DOCUMENT

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