OIJ_TS_WRITE_DOCUMENT SAP Function module - CHDO OIJ_TS => Gen. by RSSCD000

DATA:
it_icdtxt_oij_ts  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_oij_ts
 
 LIKE LINE OF it_icdtxt_oij_ts
,
it_xoijtsloc  
 
 TYPE STANDARD TABLE OF VOIJTSLOC,"TABLES PARAM
wa_xoijtsloc
 
 LIKE LINE OF it_xoijtsloc
,
it_yoijtsloc  
 
 TYPE STANDARD TABLE OF VOIJTSLOC,"TABLES PARAM
wa_yoijtsloc
 
 LIKE LINE OF it_yoijtsloc
,
it_xoijtsmat  
 
 TYPE STANDARD TABLE OF VOIJTSMAT,"TABLES PARAM
wa_xoijtsmat
 
 LIKE LINE OF it_xoijtsmat
,
it_yoijtsmat  
 
 TYPE STANDARD TABLE OF VOIJTSMAT,"TABLES PARAM
wa_yoijtsmat
 
 LIKE LINE OF it_yoijtsmat
,
it_xoijtsmatseq  
 
 TYPE STANDARD TABLE OF VOIJTSMATSEQ,"TABLES PARAM
wa_xoijtsmatseq
 
 LIKE LINE OF it_xoijtsmatseq
,
it_yoijtsmatseq  
 
 TYPE STANDARD TABLE OF VOIJTSMATSEQ,"TABLES PARAM
wa_yoijtsmatseq
 
 LIKE LINE OF it_yoijtsmatseq
.

 

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


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

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

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

 

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

 

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_oij_ts to it_icdtxt_oij_ts.
 

"populate fields of struture and append to itab
append wa_xoijtsloc to it_xoijtsloc.
 

"populate fields of struture and append to itab
append wa_yoijtsloc to it_yoijtsloc.
 

"populate fields of struture and append to itab
append wa_xoijtsmat to it_xoijtsmat.
 

"populate fields of struture and append to itab
append wa_yoijtsmat to it_yoijtsmat.
 

"populate fields of struture and append to itab
append wa_xoijtsmatseq to it_xoijtsmatseq.
 

"populate fields of struture and append to itab
append wa_yoijtsmatseq to it_yoijtsmatseq.
.

CALL FUNCTION 'OIJ_TS_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_oij_ts =          ld_upd_icdtxt_oij_ts
    n_oijts =                    ld_n_oijts
    o_oijts =                    ld_o_oijts
    upd_oijts =                  ld_upd_oijts
    upd_oijtsloc =               ld_upd_oijtsloc
    upd_oijtsmat =               ld_upd_oijtsmat
    upd_oijtsmatseq =            ld_upd_oijtsmatseq
  TABLES
    icdtxt_oij_ts =              it_icdtxt_oij_ts
    xoijtsloc =                  it_xoijtsloc
    yoijtsloc =                  it_yoijtsloc
    xoijtsmat =                  it_xoijtsmat
    yoijtsmat =                  it_yoijtsmat
    xoijtsmatseq =               it_xoijtsmatseq
    yoijtsmatseq =               it_yoijtsmatseq
    .  "  OIJ_TS_WRITE_DOCUMENT

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