MATERIAL_N_WRITE_DOCUMENT SAP Function module - ===> Object MATERIAL_N , generated by program RSSCD000

DATA:
it_icdtxt_material_n  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_material_n
 
 LIKE LINE OF it_icdtxt_material_n
,
it_xdgesv  
 
 TYPE STANDARD TABLE OF VDGESV,"TABLES PARAM
wa_xdgesv
 
 LIKE LINE OF it_xdgesv
,
it_ydgesv  
 
 TYPE STANDARD TABLE OF VDGESV,"TABLES PARAM
wa_ydgesv
 
 LIKE LINE OF it_ydgesv
,
it_xdmaex  
 
 TYPE STANDARD TABLE OF VDMAEX,"TABLES PARAM
wa_xdmaex
 
 LIKE LINE OF it_xdmaex
,
it_ydmaex  
 
 TYPE STANDARD TABLE OF VDMAEX,"TABLES PARAM
wa_ydmaex
 
 LIKE LINE OF it_ydmaex
,
it_xdmakt  
 
 TYPE STANDARD TABLE OF VDMAKT,"TABLES PARAM
wa_xdmakt
 
 LIKE LINE OF it_xdmakt
,
it_ydmakt  
 
 TYPE STANDARD TABLE OF VDMAKT,"TABLES PARAM
wa_ydmakt
 
 LIKE LINE OF it_ydmakt
,
it_xdmarm  
 
 TYPE STANDARD TABLE OF VDMARM,"TABLES PARAM
wa_xdmarm
 
 LIKE LINE OF it_xdmarm
,
it_ydmarm  
 
 TYPE STANDARD TABLE OF VDMARM,"TABLES PARAM
wa_ydmarm
 
 LIKE LINE OF it_ydmarm
,
it_xdmean  
 
 TYPE STANDARD TABLE OF VDMEAN,"TABLES PARAM
wa_xdmean
 
 LIKE LINE OF it_xdmean
,
it_ydmean  
 
 TYPE STANDARD TABLE OF VDMEAN,"TABLES PARAM
wa_ydmean
 
 LIKE LINE OF it_ydmean
,
it_xdmkal  
 
 TYPE STANDARD TABLE OF VDMKAL,"TABLES PARAM
wa_xdmkal
 
 LIKE LINE OF it_xdmkal
,
it_ydmkal  
 
 TYPE STANDARD TABLE OF VDMKAL,"TABLES PARAM
wa_ydmkal
 
 LIKE LINE OF it_ydmkal
,
it_xdmlan  
 
 TYPE STANDARD TABLE OF VDMLAN,"TABLES PARAM
wa_xdmlan
 
 LIKE LINE OF it_xdmlan
,
it_ydmlan  
 
 TYPE STANDARD TABLE OF VDMLAN,"TABLES PARAM
wa_ydmlan
 
 LIKE LINE OF it_ydmlan
,
it_xdprow  
 
 TYPE STANDARD TABLE OF VDPROW,"TABLES PARAM
wa_xdprow
 
 LIKE LINE OF it_xdprow
,
it_ydprow  
 
 TYPE STANDARD TABLE OF VDPROW,"TABLES PARAM
wa_ydprow
 
 LIKE LINE OF it_ydprow
,
it_xdungv  
 
 TYPE STANDARD TABLE OF VDUNGV,"TABLES PARAM
wa_xdungv
 
 LIKE LINE OF it_xdungv
,
it_ydungv  
 
 TYPE STANDARD TABLE OF VDUNGV,"TABLES PARAM
wa_ydungv
 
 LIKE LINE OF it_ydungv
.

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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


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

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

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


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

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

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

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

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


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

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

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


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

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

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


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

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

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


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

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

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


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

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

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


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

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

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


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

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

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


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

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

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

 

"populate fields of struture and append to itab
append wa_icdtxt_material_n to it_icdtxt_material_n.
 

"populate fields of struture and append to itab
append wa_xdgesv to it_xdgesv.
 

"populate fields of struture and append to itab
append wa_ydgesv to it_ydgesv.
 

"populate fields of struture and append to itab
append wa_xdmaex to it_xdmaex.
 

"populate fields of struture and append to itab
append wa_ydmaex to it_ydmaex.
 

"populate fields of struture and append to itab
append wa_xdmakt to it_xdmakt.
 

"populate fields of struture and append to itab
append wa_ydmakt to it_ydmakt.
 

"populate fields of struture and append to itab
append wa_xdmarm to it_xdmarm.
 

"populate fields of struture and append to itab
append wa_ydmarm to it_ydmarm.
 

"populate fields of struture and append to itab
append wa_xdmean to it_xdmean.
 

"populate fields of struture and append to itab
append wa_ydmean to it_ydmean.
 

"populate fields of struture and append to itab
append wa_xdmkal to it_xdmkal.
 

"populate fields of struture and append to itab
append wa_ydmkal to it_ydmkal.
 

"populate fields of struture and append to itab
append wa_xdmlan to it_xdmlan.
 

"populate fields of struture and append to itab
append wa_ydmlan to it_ydmlan.
 

"populate fields of struture and append to itab
append wa_xdprow to it_xdprow.
 

"populate fields of struture and append to itab
append wa_ydprow to it_ydprow.
 

"populate fields of struture and append to itab
append wa_xdungv to it_xdungv.
 

"populate fields of struture and append to itab
append wa_ydungv to it_ydungv.
.

CALL FUNCTION 'MATERIAL_N_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_material_n =      ld_upd_icdtxt_material_n
    upd_dgesv =                  ld_upd_dgesv
    upd_dmaex =                  ld_upd_dmaex
    upd_dmakt =                  ld_upd_dmakt
    upd_dmarm =                  ld_upd_dmarm
    upd_dmean =                  ld_upd_dmean
    upd_dmkal =                  ld_upd_dmkal
    upd_dmlan =                  ld_upd_dmlan
    upd_dprow =                  ld_upd_dprow
    upd_dungv =                  ld_upd_dungv
    n_mara =                     ld_n_mara
    o_mara =                     ld_o_mara
    upd_mara =                   ld_upd_mara
    n_marc =                     ld_n_marc
    o_marc =                     ld_o_marc
    n_mare =                     ld_n_mare
    o_mare =                     ld_o_mare
    upd_marc =                   ld_upd_marc
    n_mard =                     ld_n_mard
    o_mard =                     ld_o_mard
    upd_mard =                   ld_upd_mard
    n_mbew =                     ld_n_mbew
    o_mbew =                     ld_o_mbew
    upd_mbew =                   ld_upd_mbew
    n_mfhm =                     ld_n_mfhm
    o_mfhm =                     ld_o_mfhm
    upd_mfhm =                   ld_upd_mfhm
    n_mlgn =                     ld_n_mlgn
    o_mlgn =                     ld_o_mlgn
    upd_mlgn =                   ld_upd_mlgn
    n_mlgt =                     ld_n_mlgt
    o_mlgt =                     ld_o_mlgt
    upd_mlgt =                   ld_upd_mlgt
    n_mpgd =                     ld_n_mpgd
    o_mpgd =                     ld_o_mpgd
    upd_mpgd =                   ld_upd_mpgd
    n_mpop =                     ld_n_mpop
    o_mpop =                     ld_o_mpop
    upd_mpop =                   ld_upd_mpop
    n_mvke =                     ld_n_mvke
    o_mvke =                     ld_o_mvke
    upd_mvke =                   ld_upd_mvke
  TABLES
    icdtxt_material_n =          it_icdtxt_material_n
    xdgesv =                     it_xdgesv
    ydgesv =                     it_ydgesv
    xdmaex =                     it_xdmaex
    ydmaex =                     it_ydmaex
    xdmakt =                     it_xdmakt
    ydmakt =                     it_ydmakt
    xdmarm =                     it_xdmarm
    ydmarm =                     it_ydmarm
    xdmean =                     it_xdmean
    ydmean =                     it_ydmean
    xdmkal =                     it_xdmkal
    ydmkal =                     it_ydmkal
    xdmlan =                     it_xdmlan
    ydmlan =                     it_ydmlan
    xdprow =                     it_xdprow
    ydprow =                     it_ydprow
    xdungv =                     it_xdungv
    ydungv =                     it_ydungv
    .  "  MATERIAL_N_WRITE_DOCUMENT

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