PROJ_WRITE_DOCUMENT SAP Function module - CHDO PROJ => Gen. by RSSCD000

DATA:
it_xmlst  
 
 TYPE STANDARD TABLE OF VMLST,"TABLES PARAM
wa_xmlst
 
 LIKE LINE OF it_xmlst
,
it_ymlst  
 
 TYPE STANDARD TABLE OF VMLST,"TABLES PARAM
wa_ymlst
 
 LIKE LINE OF it_ymlst
,
it_xmltx  
 
 TYPE STANDARD TABLE OF VMLTX,"TABLES PARAM
wa_xmltx
 
 LIKE LINE OF it_xmltx
,
it_ymltx  
 
 TYPE STANDARD TABLE OF VMLTX,"TABLES PARAM
wa_ymltx
 
 LIKE LINE OF it_ymltx
,
it_xprhi  
 
 TYPE STANDARD TABLE OF VPRHI,"TABLES PARAM
wa_xprhi
 
 LIKE LINE OF it_xprhi
,
it_yprhi  
 
 TYPE STANDARD TABLE OF VPRHI,"TABLES PARAM
wa_yprhi
 
 LIKE LINE OF it_yprhi
,
it_xprps  
 
 TYPE STANDARD TABLE OF VPRPS,"TABLES PARAM
wa_xprps
 
 LIKE LINE OF it_xprps
,
it_yprps  
 
 TYPE STANDARD TABLE OF VPRPS,"TABLES PARAM
wa_yprps
 
 LIKE LINE OF it_yprps
.

 

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

 

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

 

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


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

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

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

 

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

 

"populate fields of struture and append to itab
append wa_xmlst to it_xmlst.
 

"populate fields of struture and append to itab
append wa_ymlst to it_ymlst.
 

"populate fields of struture and append to itab
append wa_xmltx to it_xmltx.
 

"populate fields of struture and append to itab
append wa_ymltx to it_ymltx.
 

"populate fields of struture and append to itab
append wa_xprhi to it_xprhi.
 

"populate fields of struture and append to itab
append wa_yprhi to it_yprhi.
 

"populate fields of struture and append to itab
append wa_xprps to it_xprps.
 

"populate fields of struture and append to itab
append wa_yprps to it_yprps.
.

CALL FUNCTION 'PROJ_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_mlst =                   ld_upd_mlst
    upd_mltx =                   ld_upd_mltx
    upd_prhi =                   ld_upd_prhi
    n_proj =                     ld_n_proj
    o_proj =                     ld_o_proj
    upd_proj =                   ld_upd_proj
    upd_prps =                   ld_upd_prps
  TABLES
    xmlst =                      it_xmlst
    ymlst =                      it_ymlst
    xmltx =                      it_xmltx
    ymltx =                      it_ymltx
    xprhi =                      it_xprhi
    yprhi =                      it_yprhi
    xprps =                      it_xprps
    yprps =                      it_yprps
    .  "  PROJ_WRITE_DOCUMENT

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