VDESCROW_WRITE_DOCUMENT SAP Function module - CHDO VDESCROW => Gen. by RSSCD000

DATA:
it_icdtxt_vdescrow  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_vdescrow
 
 LIKE LINE OF it_icdtxt_vdescrow
,
it_xvdescrowkoko0  
 
 TYPE STANDARD TABLE OF VVDESCROWKOKO0,"TABLES PARAM
wa_xvdescrowkoko0
 
 LIKE LINE OF it_xvdescrowkoko0
,
it_yvdescrowkoko0  
 
 TYPE STANDARD TABLE OF VVDESCROWKOKO0,"TABLES PARAM
wa_yvdescrowkoko0
 
 LIKE LINE OF it_yvdescrowkoko0
,
it_xvdescrowkopo0  
 
 TYPE STANDARD TABLE OF VVDESCROWKOPO0,"TABLES PARAM
wa_xvdescrowkopo0
 
 LIKE LINE OF it_xvdescrowkopo0
,
it_yvdescrowkopo0  
 
 TYPE STANDARD TABLE OF VVDESCROWKOPO0,"TABLES PARAM
wa_yvdescrowkopo0
 
 LIKE LINE OF it_yvdescrowkopo0
.

 

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


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

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

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

 

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_vdescrow to it_icdtxt_vdescrow.
 

"populate fields of struture and append to itab
append wa_xvdescrowkoko0 to it_xvdescrowkoko0.
 

"populate fields of struture and append to itab
append wa_yvdescrowkoko0 to it_yvdescrowkoko0.
 

"populate fields of struture and append to itab
append wa_xvdescrowkopo0 to it_xvdescrowkopo0.
 

"populate fields of struture and append to itab
append wa_yvdescrowkopo0 to it_yvdescrowkopo0.
.

CALL FUNCTION 'VDESCROW_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_vdescrow =        ld_upd_icdtxt_vdescrow
    n_vdescrow0 =                ld_n_vdescrow0
    o_vdescrow0 =                ld_o_vdescrow0
    upd_vdescrow0 =              ld_upd_vdescrow0
    upd_vdescrowkoko0 =          ld_upd_vdescrowkoko0
    upd_vdescrowkopo0 =          ld_upd_vdescrowkopo0
  TABLES
    icdtxt_vdescrow =            it_icdtxt_vdescrow
    xvdescrowkoko0 =             it_xvdescrowkoko0
    yvdescrowkoko0 =             it_yvdescrowkoko0
    xvdescrowkopo0 =             it_xvdescrowkopo0
    yvdescrowkopo0 =             it_yvdescrowkopo0
    .  "  VDESCROW_WRITE_DOCUMENT

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