VCNUM_WRITE_DOCUMENT SAP Function module - ===> Object VCNUM , generated by program RSSCD000

DATA:
it_icdtxt_vcnum  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_vcnum
 
 LIKE LINE OF it_icdtxt_vcnum
,
it_xvckun  
 
 TYPE STANDARD TABLE OF VVCKUN,"TABLES PARAM
wa_xvckun
 
 LIKE LINE OF it_xvckun
,
it_yvckun  
 
 TYPE STANDARD TABLE OF VVCKUN,"TABLES PARAM
wa_yvckun
 
 LIKE LINE OF it_yvckun
,
it_xvcnum  
 
 TYPE STANDARD TABLE OF VVCNUM,"TABLES PARAM
wa_xvcnum
 
 LIKE LINE OF it_xvcnum
,
it_yvcnum  
 
 TYPE STANDARD TABLE OF VVCNUM,"TABLES PARAM
wa_yvcnum
 
 LIKE LINE OF it_yvcnum
.

 

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

 

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_vcnum to it_icdtxt_vcnum.
 

"populate fields of struture and append to itab
append wa_xvckun to it_xvckun.
 

"populate fields of struture and append to itab
append wa_yvckun to it_yvckun.
 

"populate fields of struture and append to itab
append wa_xvcnum to it_xvcnum.
 

"populate fields of struture and append to itab
append wa_yvcnum to it_yvcnum.
.

CALL FUNCTION 'VCNUM_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_vcnum =           ld_upd_icdtxt_vcnum
    upd_vckun =                  ld_upd_vckun
    upd_vcnum =                  ld_upd_vcnum
  TABLES
    icdtxt_vcnum =               it_icdtxt_vcnum
    xvckun =                     it_xvckun
    yvckun =                     it_yvckun
    xvcnum =                     it_xvcnum
    yvcnum =                     it_yvcnum
    .  "  VCNUM_WRITE_DOCUMENT

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