STAT_TW_WRITE_DOCUMENT SAP Function module - CHDO STAT_TW => Gen. by RSSCD000

DATA:
it_icdtxt_stat_tw  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_stat_tw
 
 LIKE LINE OF it_icdtxt_stat_tw
,
it_xissue_s_relation  
 
 TYPE STANDARD TABLE OF VISSUE_S_RELATION,"TABLES PARAM
wa_xissue_s_relation
 
 LIKE LINE OF it_xissue_s_relation
,
it_yissue_s_relation  
 
 TYPE STANDARD TABLE OF VISSUE_S_RELATION,"TABLES PARAM
wa_yissue_s_relation
 
 LIKE LINE OF it_yissue_s_relation
,
it_xtstaprtw  
 
 TYPE STANDARD TABLE OF VTSTAPRTW,"TABLES PARAM
wa_xtstaprtw
 
 LIKE LINE OF it_xtstaprtw
,
it_ytstaprtw  
 
 TYPE STANDARD TABLE OF VTSTAPRTW,"TABLES PARAM
wa_ytstaprtw
 
 LIKE LINE OF it_ytstaprtw
.

 

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

 

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


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

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

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


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

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

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_stat_tw to it_icdtxt_stat_tw.
 

"populate fields of struture and append to itab
append wa_xissue_s_relation to it_xissue_s_relation.
 

"populate fields of struture and append to itab
append wa_yissue_s_relation to it_yissue_s_relation.
 

"populate fields of struture and append to itab
append wa_xtstaprtw to it_xtstaprtw.
 

"populate fields of struture and append to itab
append wa_ytstaprtw to it_ytstaprtw.
.

CALL FUNCTION 'STAT_TW_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_stat_tw =         ld_upd_icdtxt_stat_tw
    upd_issue_s_relation =       ld_upd_issue_s_relation
    n_tstahttw =                 ld_n_tstahttw
    o_tstahttw =                 ld_o_tstahttw
    upd_tstahttw =               ld_upd_tstahttw
    n_tstahtw =                  ld_n_tstahtw
    o_tstahtw =                  ld_o_tstahtw
    upd_tstahtw =                ld_upd_tstahtw
    upd_tstaprtw =               ld_upd_tstaprtw
  TABLES
    icdtxt_stat_tw =             it_icdtxt_stat_tw
    xissue_s_relation =          it_xissue_s_relation
    yissue_s_relation =          it_yissue_s_relation
    xtstaprtw =                  it_xtstaprtw
    ytstaprtw =                  it_ytstaprtw
    .  "  STAT_TW_WRITE_DOCUMENT

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