RESRTM_NSB_WRITE_DOCUMENT SAP Function module - CHDO RESRTM_NSB => Gen. by RSSCD000

DATA:
it_icdtxt_resrtm_nsb  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_resrtm_nsb
 
 LIKE LINE OF it_icdtxt_resrtm_nsb
,
it_xvisrtmsbrp  
 
 TYPE STANDARD TABLE OF AVISRTMSBRP,"TABLES PARAM
wa_xvisrtmsbrp
 
 LIKE LINE OF it_xvisrtmsbrp
,
it_yvisrtmsbrp  
 
 TYPE STANDARD TABLE OF AVISRTMSBRP,"TABLES PARAM
wa_yvisrtmsbrp
 
 LIKE LINE OF it_yvisrtmsbrp
,
it_xvisrtmsbrpi  
 
 TYPE STANDARD TABLE OF AVISRTMSBRPI,"TABLES PARAM
wa_xvisrtmsbrpi
 
 LIKE LINE OF it_xvisrtmsbrpi
,
it_yvisrtmsbrpi  
 
 TYPE STANDARD TABLE OF AVISRTMSBRPI,"TABLES PARAM
wa_yvisrtmsbrpi
 
 LIKE LINE OF it_yvisrtmsbrpi
.

 

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

 

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_resrtm_nsb to it_icdtxt_resrtm_nsb.
 

"populate fields of struture and append to itab
append wa_xvisrtmsbrp to it_xvisrtmsbrp.
 

"populate fields of struture and append to itab
append wa_yvisrtmsbrp to it_yvisrtmsbrp.
 

"populate fields of struture and append to itab
append wa_xvisrtmsbrpi to it_xvisrtmsbrpi.
 

"populate fields of struture and append to itab
append wa_yvisrtmsbrpi to it_yvisrtmsbrpi.
.

CALL FUNCTION 'RESRTM_NSB_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_resrtm_nsb =      ld_upd_icdtxt_resrtm_nsb
    upd_visrtmsbrp =             ld_upd_visrtmsbrp
    upd_visrtmsbrpi =            ld_upd_visrtmsbrpi
  TABLES
    icdtxt_resrtm_nsb =          it_icdtxt_resrtm_nsb
    xvisrtmsbrp =                it_xvisrtmsbrp
    yvisrtmsbrp =                it_yvisrtmsbrp
    xvisrtmsbrpi =               it_xvisrtmsbrpi
    yvisrtmsbrpi =               it_yvisrtmsbrpi
    .  "  RESRTM_NSB_WRITE_DOCUMENT

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