COND_N_WRITE_DOCUMENT SAP Function module - ===> Object COND_N , generated by program RSSCD000

DATA:
it_xkondat  
 
 TYPE STANDARD TABLE OF VKONDAT,"TABLES PARAM
wa_xkondat
 
 LIKE LINE OF it_xkondat
,
it_ykondat  
 
 TYPE STANDARD TABLE OF VKONDAT,"TABLES PARAM
wa_ykondat
 
 LIKE LINE OF it_ykondat
,
it_xkondns  
 
 TYPE STANDARD TABLE OF VKONDNS,"TABLES PARAM
wa_xkondns
 
 LIKE LINE OF it_xkondns
,
it_ykondns  
 
 TYPE STANDARD TABLE OF VKONDNS,"TABLES PARAM
wa_ykondns
 
 LIKE LINE OF it_ykondns
.

 

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


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

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

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

 

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

 

"populate fields of struture and append to itab
append wa_xkondat to it_xkondat.
 

"populate fields of struture and append to itab
append wa_ykondat to it_ykondat.
 

"populate fields of struture and append to itab
append wa_xkondns to it_xkondns.
 

"populate fields of struture and append to itab
append wa_ykondns to it_ykondns.
.

CALL FUNCTION 'COND_N_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_kondat =                 ld_upd_kondat
    n_kondn =                    ld_n_kondn
    o_kondn =                    ld_o_kondn
    upd_kondn =                  ld_upd_kondn
    upd_kondns =                 ld_upd_kondns
  TABLES
    xkondat =                    it_xkondat
    ykondat =                    it_ykondat
    xkondns =                    it_xkondns
    ykondns =                    it_ykondns
    .  "  COND_N_WRITE_DOCUMENT

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