GRAC_FFCTRLLOG_WRITE_DOCUMENT SAP Function module - CHDO GRAC_FFCTRLLOG => Gen. by RSSCD000

DATA:
it_icdtxt_grac_ffctrllog  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_grac_ffctrllog
 
 LIKE LINE OF it_icdtxt_grac_ffctrllog
,
it_xgraccffctrlt  
 
 TYPE STANDARD TABLE OF GRAC_S_GRACCFFCTRLT,"TABLES PARAM
wa_xgraccffctrlt
 
 LIKE LINE OF it_xgraccffctrlt
,
it_ygraccffctrlt  
 
 TYPE STANDARD TABLE OF GRAC_S_GRACCFFCTRLT,"TABLES PARAM
wa_ygraccffctrlt
 
 LIKE LINE OF it_ygraccffctrlt
,
it_xgracffctrl  
 
 TYPE STANDARD TABLE OF GRAC_S_GRACFFCTRL,"TABLES PARAM
wa_xgracffctrl
 
 LIKE LINE OF it_xgracffctrl
,
it_ygracffctrl  
 
 TYPE STANDARD TABLE OF GRAC_S_GRACFFCTRL,"TABLES PARAM
wa_ygracffctrl
 
 LIKE LINE OF it_ygracffctrl
.

 

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

 

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_grac_ffctrllog to it_icdtxt_grac_ffctrllog.
 

"populate fields of struture and append to itab
append wa_xgraccffctrlt to it_xgraccffctrlt.
 

"populate fields of struture and append to itab
append wa_ygraccffctrlt to it_ygraccffctrlt.
 

"populate fields of struture and append to itab
append wa_xgracffctrl to it_xgracffctrl.
 

"populate fields of struture and append to itab
append wa_ygracffctrl to it_ygracffctrl.
.

CALL FUNCTION 'GRAC_FFCTRLLOG_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_grac_ffctrllog =    ld_upd_icdtxt_grac_ffctrllog
*   upd_graccffctrlt =           ld_upd_graccffctrlt
*   upd_gracffctrl =             ld_upd_gracffctrl
  TABLES
    icdtxt_grac_ffctrllog =      it_icdtxt_grac_ffctrllog
*   xgraccffctrlt =              it_xgraccffctrlt
*   ygraccffctrlt =              it_ygraccffctrlt
*   xgracffctrl =                it_xgracffctrl
*   ygracffctrl =                it_ygracffctrl
    .  "  GRAC_FFCTRLLOG_WRITE_DOCUMENT

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