LIEFERUNG_WRITE_DOCUMENT SAP Function module - ===> Object LIEFERUNG , generated by program RSSCD000

DATA:
it_icdtxt_lieferung  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_lieferung
 
 LIKE LINE OF it_icdtxt_lieferung
,
it_xlips  
 
 TYPE STANDARD TABLE OF ULIPS,"TABLES PARAM
wa_xlips
 
 LIKE LINE OF it_xlips
,
it_ylips  
 
 TYPE STANDARD TABLE OF ULIPS,"TABLES PARAM
wa_ylips
 
 LIKE LINE OF it_ylips
,
it_xvbpa  
 
 TYPE STANDARD TABLE OF UVBPA,"TABLES PARAM
wa_xvbpa
 
 LIKE LINE OF it_xvbpa
,
it_yvbpa  
 
 TYPE STANDARD TABLE OF UVBPA,"TABLES PARAM
wa_yvbpa
 
 LIKE LINE OF it_yvbpa
.

 

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


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

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

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

 

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

 

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


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

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

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

 

"populate fields of struture and append to itab
append wa_icdtxt_lieferung to it_icdtxt_lieferung.
 

"populate fields of struture and append to itab
append wa_xlips to it_xlips.
 

"populate fields of struture and append to itab
append wa_ylips to it_ylips.
 

"populate fields of struture and append to itab
append wa_xvbpa to it_xvbpa.
 

"populate fields of struture and append to itab
append wa_yvbpa to it_yvbpa.
.

CALL FUNCTION 'LIEFERUNG_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_lieferung =       ld_upd_icdtxt_lieferung
*   n_likp =                     ld_n_likp
*   o_likp =                     ld_o_likp
*   upd_likp =                   ld_upd_likp
*   upd_lips =                   ld_upd_lips
*   upd_vbpa =                   ld_upd_vbpa
    n_vbuk =                     ld_n_vbuk
    o_vbuk =                     ld_o_vbuk
    upd_vbuk =                   ld_upd_vbuk
* TABLES
*   icdtxt_lieferung =           it_icdtxt_lieferung
*   xlips =                      it_xlips
*   ylips =                      it_ylips
*   xvbpa =                      it_xvbpa
*   yvbpa =                      it_yvbpa
    .  "  LIEFERUNG_WRITE_DOCUMENT

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