KLASSE_WRITE_DOCUMENT SAP Function module - CHDO KLASSE => Gen. by RSSCD000

DATA:
it_icdtxt_klasse  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_klasse
 
 LIKE LINE OF it_icdtxt_klasse
,
it_xklat  
 
 TYPE STANDARD TABLE OF VKLAT,"TABLES PARAM
wa_xklat
 
 LIKE LINE OF it_xklat
,
it_yklat  
 
 TYPE STANDARD TABLE OF VKLAT,"TABLES PARAM
wa_yklat
 
 LIKE LINE OF it_yklat
,
it_xksml  
 
 TYPE STANDARD TABLE OF VKSML,"TABLES PARAM
wa_xksml
 
 LIKE LINE OF it_xksml
,
it_yksml  
 
 TYPE STANDARD TABLE OF VKSML,"TABLES PARAM
wa_yksml
 
 LIKE LINE OF it_yksml
,
it_xswor  
 
 TYPE STANDARD TABLE OF VSWOR,"TABLES PARAM
wa_xswor
 
 LIKE LINE OF it_xswor
,
it_yswor  
 
 TYPE STANDARD TABLE OF VSWOR,"TABLES PARAM
wa_yswor
 
 LIKE LINE OF it_yswor
.

 

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


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

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

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

 

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

 

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_klasse to it_icdtxt_klasse.
 

"populate fields of struture and append to itab
append wa_xklat to it_xklat.
 

"populate fields of struture and append to itab
append wa_yklat to it_yklat.
 

"populate fields of struture and append to itab
append wa_xksml to it_xksml.
 

"populate fields of struture and append to itab
append wa_yksml to it_yksml.
 

"populate fields of struture and append to itab
append wa_xswor to it_xswor.
 

"populate fields of struture and append to itab
append wa_yswor to it_yswor.
.

CALL FUNCTION 'KLASSE_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_klasse =          ld_upd_icdtxt_klasse
    n_klah =                     ld_n_klah
    o_klah =                     ld_o_klah
    upd_klah =                   ld_upd_klah
    upd_klat =                   ld_upd_klat
    upd_ksml =                   ld_upd_ksml
    upd_swor =                   ld_upd_swor
  TABLES
    icdtxt_klasse =              it_icdtxt_klasse
    xklat =                      it_xklat
    yklat =                      it_yklat
    xksml =                      it_xksml
    yksml =                      it_yksml
    xswor =                      it_xswor
    yswor =                      it_yswor
    .  "  KLASSE_WRITE_DOCUMENT

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