EMBK_WRITE_DOCUMENT SAP Function module - ===> Object EMBK , generated by program RSSCD000

DATA:
it_icdtxt_embk  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_embk
 
 LIKE LINE OF it_icdtxt_embk
,
it_xt606x  
 
 TYPE STANDARD TABLE OF VT606X,"TABLES PARAM
wa_xt606x
 
 LIKE LINE OF it_xt606x
,
it_yt606x  
 
 TYPE STANDARD TABLE OF VT606X,"TABLES PARAM
wa_yt606x
 
 LIKE LINE OF it_yt606x
,
it_xt606y  
 
 TYPE STANDARD TABLE OF VT606Y,"TABLES PARAM
wa_xt606y
 
 LIKE LINE OF it_xt606y
,
it_yt606y  
 
 TYPE STANDARD TABLE OF VT606Y,"TABLES PARAM
wa_yt606y
 
 LIKE LINE OF it_yt606y
,
it_xt606z  
 
 TYPE STANDARD TABLE OF VT606Z,"TABLES PARAM
wa_xt606z
 
 LIKE LINE OF it_xt606z
,
it_yt606z  
 
 TYPE STANDARD TABLE OF VT606Z,"TABLES PARAM
wa_yt606z
 
 LIKE LINE OF it_yt606z
.

 

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


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

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

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

 

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

 

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_embk to it_icdtxt_embk.
 

"populate fields of struture and append to itab
append wa_xt606x to it_xt606x.
 

"populate fields of struture and append to itab
append wa_yt606x to it_yt606x.
 

"populate fields of struture and append to itab
append wa_xt606y to it_xt606y.
 

"populate fields of struture and append to itab
append wa_yt606y to it_yt606y.
 

"populate fields of struture and append to itab
append wa_xt606z to it_xt606z.
 

"populate fields of struture and append to itab
append wa_yt606z to it_yt606z.
.

CALL FUNCTION 'EMBK_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_embk =            ld_upd_icdtxt_embk
    n_embk =                     ld_n_embk
    o_embk =                     ld_o_embk
    upd_embk =                   ld_upd_embk
    upd_t606x =                  ld_upd_t606x
    upd_t606y =                  ld_upd_t606y
    upd_t606z =                  ld_upd_t606z
  TABLES
    icdtxt_embk =                it_icdtxt_embk
    xt606x =                     it_xt606x
    yt606x =                     it_yt606x
    xt606y =                     it_xt606y
    yt606y =                     it_yt606y
    xt606z =                     it_xt606z
    yt606z =                     it_yt606z
    .  "  EMBK_WRITE_DOCUMENT

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