ICLCLAIM_WRITE_DOCUMENT SAP Function module - CHDO ICLCLAIM => Gen. by RSSCD000

DATA:
it_xiclpartocc  
 
 TYPE STANDARD TABLE OF VICLPARTOCC,"TABLES PARAM
wa_xiclpartocc
 
 LIKE LINE OF it_xiclpartocc
,
it_yiclpartocc  
 
 TYPE STANDARD TABLE OF VICLPARTOCC,"TABLES PARAM
wa_yiclpartocc
 
 LIKE LINE OF it_yiclpartocc
,
it_xiclsubcl  
 
 TYPE STANDARD TABLE OF VICLSUBCL,"TABLES PARAM
wa_xiclsubcl
 
 LIKE LINE OF it_xiclsubcl
,
it_yiclsubcl  
 
 TYPE STANDARD TABLE OF VICLSUBCL,"TABLES PARAM
wa_yiclsubcl
 
 LIKE LINE OF it_yiclsubcl
.

 

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


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

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

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

 

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

 

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

 

"populate fields of struture and append to itab
append wa_xiclpartocc to it_xiclpartocc.
 

"populate fields of struture and append to itab
append wa_yiclpartocc to it_yiclpartocc.
 

"populate fields of struture and append to itab
append wa_xiclsubcl to it_xiclsubcl.
 

"populate fields of struture and append to itab
append wa_yiclsubcl to it_yiclsubcl.
.

CALL FUNCTION 'ICLCLAIM_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
    n_iclclaim =                 ld_n_iclclaim
    o_gs_claim_old =             ld_o_gs_claim_old
    upd_iclclaim =               ld_upd_iclclaim
    upd_iclpartocc =             ld_upd_iclpartocc
    upd_iclsubcl =               ld_upd_iclsubcl
  TABLES
    xiclpartocc =                it_xiclpartocc
    yiclpartocc =                it_yiclpartocc
    xiclsubcl =                  it_xiclsubcl
    yiclsubcl =                  it_yiclsubcl
    .  "  ICLCLAIM_WRITE_DOCUMENT

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