ISU_ESETTLUNIT_WRITE_DOCUMENT SAP Function module - CHDO ISU_ESETTLUNIT => Gen. by RSSCD000

DATA:
it_icdtxt_isu_esettlunit  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_isu_esettlunit
 
 LIKE LINE OF it_icdtxt_isu_esettlunit
,
it_xeedmsettlunith  
 
 TYPE STANDARD TABLE OF VEEDMSETTLUNITH,"TABLES PARAM
wa_xeedmsettlunith
 
 LIKE LINE OF it_xeedmsettlunith
,
it_yeedmsettlunith  
 
 TYPE STANDARD TABLE OF VEEDMSETTLUNITH,"TABLES PARAM
wa_yeedmsettlunith
 
 LIKE LINE OF it_yeedmsettlunith
,
it_xeedmsettlunitt  
 
 TYPE STANDARD TABLE OF VEEDMSETTLUNITT,"TABLES PARAM
wa_xeedmsettlunitt
 
 LIKE LINE OF it_xeedmsettlunitt
,
it_yeedmsettlunitt  
 
 TYPE STANDARD TABLE OF VEEDMSETTLUNITT,"TABLES PARAM
wa_yeedmsettlunitt
 
 LIKE LINE OF it_yeedmsettlunitt
.

 

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


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

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

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

 

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


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

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

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_isu_esettlunit to it_icdtxt_isu_esettlunit.
 

"populate fields of struture and append to itab
append wa_xeedmsettlunith to it_xeedmsettlunith.
 

"populate fields of struture and append to itab
append wa_yeedmsettlunith to it_yeedmsettlunith.
 

"populate fields of struture and append to itab
append wa_xeedmsettlunitt to it_xeedmsettlunitt.
 

"populate fields of struture and append to itab
append wa_yeedmsettlunitt to it_yeedmsettlunitt.
.

CALL FUNCTION 'ISU_ESETTLUNIT_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_isu_esettlunit =    ld_upd_icdtxt_isu_esettlunit
    n_eedmsettlunit =            ld_n_eedmsettlunit
    o_eedmsettlunit =            ld_o_eedmsettlunit
    upd_eedmsettlunit =          ld_upd_eedmsettlunit
    upd_eedmsettlunith =         ld_upd_eedmsettlunith
    n_eedmsettlunitpod =         ld_n_eedmsettlunitpod
    o_eedmsettlunitpod =         ld_o_eedmsettlunitpod
    upd_eedmsettlunitpod =       ld_upd_eedmsettlunitpod
    upd_eedmsettlunitt =         ld_upd_eedmsettlunitt
  TABLES
    icdtxt_isu_esettlunit =      it_icdtxt_isu_esettlunit
    xeedmsettlunith =            it_xeedmsettlunith
    yeedmsettlunith =            it_yeedmsettlunith
    xeedmsettlunitt =            it_xeedmsettlunitt
    yeedmsettlunitt =            it_yeedmsettlunitt
    .  "  ISU_ESETTLUNIT_WRITE_DOCUMENT

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