PPECD_ACTN_WRITE_DOCUMENT SAP Function module

DATA:
it_xpnodtx  
 
 TYPE STANDARD TABLE OF CDACTPNODTX,"TABLES PARAM
wa_xpnodtx
 
 LIKE LINE OF it_xpnodtx
,
it_ypnodtx  
 
 TYPE STANDARD TABLE OF CDACTPNODTX,"TABLES PARAM
wa_ypnodtx
 
 LIKE LINE OF it_ypnodtx
,
it_xpvbass  
 
 TYPE STANDARD TABLE OF CDACTPVBASS,"TABLES PARAM
wa_xpvbass
 
 LIKE LINE OF it_xpvbass
,
it_ypvbass  
 
 TYPE STANDARD TABLE OF CDACTPVBASS,"TABLES PARAM
wa_ypvbass
 
 LIKE LINE OF it_ypvbass
.

 

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


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

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

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


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

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

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


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

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

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


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

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

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

 

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

 

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

 

"populate fields of struture and append to itab
append wa_xpnodtx to it_xpnodtx.
 

"populate fields of struture and append to itab
append wa_ypnodtx to it_ypnodtx.
 

"populate fields of struture and append to itab
append wa_xpvbass to it_xpvbass.
 

"populate fields of struture and append to itab
append wa_ypvbass to it_ypvbass.
.

CALL FUNCTION 'PPECD_ACTN_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
*   n_pnact =                    ld_n_pnact
*   o_pnact =                    ld_o_pnact
*   upd_pnact =                  ld_upd_pnact
*   n_pnacthd =                  ld_n_pnacthd
*   o_pnacthd =                  ld_o_pnacthd
*   upd_pnacthd =                ld_upd_pnacthd
*   n_pnactopr =                 ld_n_pnactopr
*   o_pnactopr =                 ld_o_pnactopr
*   upd_pnactopr =               ld_upd_pnactopr
*   n_pnodid =                   ld_n_pnodid
*   o_pnodid =                   ld_o_pnodid
*   upd_pnodid =                 ld_upd_pnodid
*   upd_pnodtx =                 ld_upd_pnodtx
*   upd_pvbass =                 ld_upd_pvbass
* TABLES
*   xpnodtx =                    it_xpnodtx
*   ypnodtx =                    it_ypnodtx
*   xpvbass =                    it_xpvbass
*   ypvbass =                    it_ypvbass
    .  "  PPECD_ACTN_WRITE_DOCUMENT

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