HPOMSAP 6.1 Delivering documents to SAPconnect nodes in SAP R/3

Technical Note 21
Sample Programs
Sample Program YRVADOR01 (Example 1)
EXPORTING
ELEMENT = 'ITEM_REFERENCE_NO'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM DIFFERENT_TERMS *
*---------------------------------------------------------------------*
* If the terms in the item are different to the header terms, *
* they are printed by this routine. *
*---------------------------------------------------------------------*
FORM DIFFERENT_TERMS.
DATA: US_VPOSN LIKE VEDPA-VPOSN.
DATA: US_TEXT(1) TYPE C. "Flag for Noticetext was printed
IF VBDPA-ZTERM NE VBDKA-ZTERM AND
VBDPA-ZTERM NE SPACE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_TERMS_OF_PAYMENT'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
IF VBDPA-INCO1 NE SPACE.
IF VBDPA-INCO1 NE VBDKA-INCO1 OR
VBDPA-INCO2 NE VBDKA-INCO2.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_TERMS_OF_DELIVERY'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ENDIF.
* Print different validity-data for the position
READ TABLE TKOMSERVP WITH KEY VBDPA-POSNR.
IF SY-SUBRC EQ 0.
VEDPA = TKOMSERVP.
IF VEDPA-VBEGDAT NE SPACE AND