BERIBEST_WRITE_DOCUMENT SAP Function module - CHDO BERIBEST => Gen. by RSSCD000

DATA:
it_icdtxt_beribest  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_beribest
 
 LIKE LINE OF it_icdtxt_beribest
,
it_xvibeme  
 
 TYPE STANDARD TABLE OF AVIBEME,"TABLES PARAM
wa_xvibeme
 
 LIKE LINE OF it_xvibeme
,
it_yvibeme  
 
 TYPE STANDARD TABLE OF AVIBEME,"TABLES PARAM
wa_yvibeme
 
 LIKE LINE OF it_yvibeme
,
it_xvibeos  
 
 TYPE STANDARD TABLE OF AVIBEOS,"TABLES PARAM
wa_xvibeos
 
 LIKE LINE OF it_xvibeos
,
it_yvibeos  
 
 TYPE STANDARD TABLE OF AVIBEOS,"TABLES PARAM
wa_yvibeos
 
 LIKE LINE OF it_yvibeos
.

 

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


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

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

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


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

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

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

 

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_beribest to it_icdtxt_beribest.
 

"populate fields of struture and append to itab
append wa_xvibeme to it_xvibeme.
 

"populate fields of struture and append to itab
append wa_yvibeme to it_yvibeme.
 

"populate fields of struture and append to itab
append wa_xvibeos to it_xvibeos.
 

"populate fields of struture and append to itab
append wa_yvibeos to it_yvibeos.
.

CALL FUNCTION 'BERIBEST_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_beribest =        ld_upd_icdtxt_beribest
    n_vibeam =                   ld_n_vibeam
    o_vibeam =                   ld_o_vibeam
    upd_vibeam =                 ld_upd_vibeam
    n_vibebe =                   ld_n_vibebe
    o_vibebe =                   ld_o_vibebe
    upd_vibebe =                 ld_upd_vibebe
    upd_vibeme =                 ld_upd_vibeme
    upd_vibeos =                 ld_upd_vibeos
  TABLES
    icdtxt_beribest =            it_icdtxt_beribest
    xvibeme =                    it_xvibeme
    yvibeme =                    it_yvibeme
    xvibeos =                    it_xvibeos
    yvibeos =                    it_yvibeos
    .  "  BERIBEST_WRITE_DOCUMENT

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