SADOCATTR_WRITE_DOCUMENT SAP Function module - CHDO SADOCATTR => Gen. by RSSCD000

DATA:
it_icdtxt_sadocattr  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_sadocattr
 
 LIKE LINE OF it_icdtxt_sadocattr
,
it_xsadocattrkeywchg  
 
 TYPE STANDARD TABLE OF VSADOCATTRKEYWCHG,"TABLES PARAM
wa_xsadocattrkeywchg
 
 LIKE LINE OF it_xsadocattrkeywchg
,
it_ysadocattrkeywchg  
 
 TYPE STANDARD TABLE OF VSADOCATTRKEYWCHG,"TABLES PARAM
wa_ysadocattrkeywchg
 
 LIKE LINE OF it_ysadocattrkeywchg
,
it_xsadocattrlnkchg  
 
 TYPE STANDARD TABLE OF VSADOCATTRLNKCHG,"TABLES PARAM
wa_xsadocattrlnkchg
 
 LIKE LINE OF it_xsadocattrlnkchg
,
it_ysadocattrlnkchg  
 
 TYPE STANDARD TABLE OF VSADOCATTRLNKCHG,"TABLES PARAM
wa_ysadocattrlnkchg
 
 LIKE LINE OF it_ysadocattrlnkchg
,
it_xsadocattruserchg  
 
 TYPE STANDARD TABLE OF VSADOCATTRUSERCHG,"TABLES PARAM
wa_xsadocattruserchg
 
 LIKE LINE OF it_xsadocattruserchg
,
it_ysadocattruserchg  
 
 TYPE STANDARD TABLE OF VSADOCATTRUSERCHG,"TABLES PARAM
wa_ysadocattruserchg
 
 LIKE LINE OF it_ysadocattruserchg
.

 

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


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

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

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

 

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

 

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_sadocattr to it_icdtxt_sadocattr.
 

"populate fields of struture and append to itab
append wa_xsadocattrkeywchg to it_xsadocattrkeywchg.
 

"populate fields of struture and append to itab
append wa_ysadocattrkeywchg to it_ysadocattrkeywchg.
 

"populate fields of struture and append to itab
append wa_xsadocattrlnkchg to it_xsadocattrlnkchg.
 

"populate fields of struture and append to itab
append wa_ysadocattrlnkchg to it_ysadocattrlnkchg.
 

"populate fields of struture and append to itab
append wa_xsadocattruserchg to it_xsadocattruserchg.
 

"populate fields of struture and append to itab
append wa_ysadocattruserchg to it_ysadocattruserchg.
.

CALL FUNCTION 'SADOCATTR_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_sadocattr =       ld_upd_icdtxt_sadocattr
    n_sadocattrchanged =         ld_n_sadocattrchanged
    o_sadocattrchanged =         ld_o_sadocattrchanged
    upd_sadocattrchanged =       ld_upd_sadocattrchanged
    upd_sadocattrkeywchg =       ld_upd_sadocattrkeywchg
    upd_sadocattrlnkchg =        ld_upd_sadocattrlnkchg
    upd_sadocattruserchg =       ld_upd_sadocattruserchg
  TABLES
    icdtxt_sadocattr =           it_icdtxt_sadocattr
    xsadocattrkeywchg =          it_xsadocattrkeywchg
    ysadocattrkeywchg =          it_ysadocattrkeywchg
    xsadocattrlnkchg =           it_xsadocattrlnkchg
    ysadocattrlnkchg =           it_ysadocattrlnkchg
    xsadocattruserchg =          it_xsadocattruserchg
    ysadocattruserchg =          it_ysadocattruserchg
    .  "  SADOCATTR_WRITE_DOCUMENT

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