COND_A_WRITE_DOCUMENT SAP Function module - ===> Object COND_A , 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_xkonm  
 
 TYPE STANDARD TABLE OF VKONM,"TABLES PARAM
wa_xkonm
 
 LIKE LINE OF it_xkonm
,
it_ykonm  
 
 TYPE STANDARD TABLE OF VKONM,"TABLES PARAM
wa_ykonm
 
 LIKE LINE OF it_ykonm
,
it_xkonpae  
 
 TYPE STANDARD TABLE OF VKONPAE,"TABLES PARAM
wa_xkonpae
 
 LIKE LINE OF it_xkonpae
,
it_ykonpae  
 
 TYPE STANDARD TABLE OF VKONPAE,"TABLES PARAM
wa_ykonpae
 
 LIKE LINE OF it_ykonpae
,
it_xkonw  
 
 TYPE STANDARD TABLE OF VKONW,"TABLES PARAM
wa_xkonw
 
 LIKE LINE OF it_xkonw
,
it_ykonw  
 
 TYPE STANDARD TABLE OF VKONW,"TABLES PARAM
wa_ykonw
 
 LIKE LINE OF it_ykonw
.

 

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_konh) = 'Check type of data required'.

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

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

 

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

 

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

 

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

 

"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_xkonm to it_xkonm.
 

"populate fields of struture and append to itab
append wa_ykonm to it_ykonm.
 

"populate fields of struture and append to itab
append wa_xkonpae to it_xkonpae.
 

"populate fields of struture and append to itab
append wa_ykonpae to it_ykonpae.
 

"populate fields of struture and append to itab
append wa_xkonw to it_xkonw.
 

"populate fields of struture and append to itab
append wa_ykonw to it_ykonw.
.

CALL FUNCTION 'COND_A_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_konh =                     ld_n_konh
    o_konh =                     ld_o_konh
    upd_konh =                   ld_upd_konh
    upd_konm =                   ld_upd_konm
    upd_konpae =                 ld_upd_konpae
    upd_konw =                   ld_upd_konw
  TABLES
    xkondat =                    it_xkondat
    ykondat =                    it_ykondat
    xkonm =                      it_xkonm
    ykonm =                      it_ykonm
    xkonpae =                    it_xkonpae
    ykonpae =                    it_ykonpae
    xkonw =                      it_xkonw
    ykonw =                      it_ykonw
    .  "  COND_A_WRITE_DOCUMENT

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