ISU_ETRF_WRITE_DOCUMENT SAP Function module - CHDO ISU_ETRF => Gen. by RSSCD000

DATA:
it_icdtxt_isu_etrf  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_isu_etrf
 
 LIKE LINE OF it_icdtxt_isu_etrf
,
it_xekdi  
 
 TYPE STANDARD TABLE OF VEKDI,"TABLES PARAM
wa_xekdi
 
 LIKE LINE OF it_xekdi
,
it_yekdi  
 
 TYPE STANDARD TABLE OF VEKDI,"TABLES PARAM
wa_yekdi
 
 LIKE LINE OF it_yekdi
,
it_xetrfv  
 
 TYPE STANDARD TABLE OF VETRFV,"TABLES PARAM
wa_xetrfv
 
 LIKE LINE OF it_xetrfv
,
it_yetrfv  
 
 TYPE STANDARD TABLE OF VETRFV,"TABLES PARAM
wa_yetrfv
 
 LIKE LINE OF it_yetrfv
.

 

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

 

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


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

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

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_isu_etrf to it_icdtxt_isu_etrf.
 

"populate fields of struture and append to itab
append wa_xekdi to it_xekdi.
 

"populate fields of struture and append to itab
append wa_yekdi to it_yekdi.
 

"populate fields of struture and append to itab
append wa_xetrfv to it_xetrfv.
 

"populate fields of struture and append to itab
append wa_yetrfv to it_yetrfv.
.

CALL FUNCTION 'ISU_ETRF_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_etrf =        ld_upd_icdtxt_isu_etrf
    upd_ekdi =                   ld_upd_ekdi
    n_etrf =                     ld_n_etrf
    o_etrf =                     ld_o_etrf
    upd_etrf =                   ld_upd_etrf
    upd_etrfv =                  ld_upd_etrfv
  TABLES
    icdtxt_isu_etrf =            it_icdtxt_isu_etrf
    xekdi =                      it_xekdi
    yekdi =                      it_yekdi
    xetrfv =                     it_xetrfv
    yetrfv =                     it_yetrfv
    .  "  ISU_ETRF_WRITE_DOCUMENT

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