ADIP_PDR_WRITE_DOCUMENT SAP Function module - CHDO ADIP_PDR => Gen. by RSSCD000

DATA:
it_icdtxt_adip_pdr  
 
 TYPE STANDARD TABLE OF CDTXT,"TABLES PARAM
wa_icdtxt_adip_pdr
 
 LIKE LINE OF it_icdtxt_adip_pdr
,
it_xspcipparts  
 
 TYPE STANDARD TABLE OF USPCIPPARTS,"TABLES PARAM
wa_xspcipparts
 
 LIKE LINE OF it_xspcipparts
,
it_yspcipparts  
 
 TYPE STANDARD TABLE OF USPCIPPARTS,"TABLES PARAM
wa_yspcipparts
 
 LIKE LINE OF it_yspcipparts
,
it_xspcippdr  
 
 TYPE STANDARD TABLE OF USPCIPPDR,"TABLES PARAM
wa_xspcippdr
 
 LIKE LINE OF it_xspcippdr
,
it_yspcippdr  
 
 TYPE STANDARD TABLE OF USPCIPPDR,"TABLES PARAM
wa_yspcippdr
 
 LIKE LINE OF it_yspcippdr
.

 

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

 

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

 

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

 

"populate fields of struture and append to itab
append wa_icdtxt_adip_pdr to it_icdtxt_adip_pdr.
 

"populate fields of struture and append to itab
append wa_xspcipparts to it_xspcipparts.
 

"populate fields of struture and append to itab
append wa_yspcipparts to it_yspcipparts.
 

"populate fields of struture and append to itab
append wa_xspcippdr to it_xspcippdr.
 

"populate fields of struture and append to itab
append wa_yspcippdr to it_yspcippdr.
.

CALL FUNCTION 'ADIP_PDR_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_adip_pdr =        ld_upd_icdtxt_adip_pdr
    upd_spcipparts =             ld_upd_spcipparts
    upd_spcippdr =               ld_upd_spcippdr
  TABLES
    icdtxt_adip_pdr =            it_icdtxt_adip_pdr
    xspcipparts =                it_xspcipparts
    yspcipparts =                it_yspcipparts
    xspcippdr =                  it_xspcippdr
    yspcippdr =                  it_yspcippdr
    .  "  ADIP_PDR_WRITE_DOCUMENT

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