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

42 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
FORM ITEM_REFERENCE_BILLING.
CHECK VBDKA-VBKLT EQ VBKLT_RECH_KORR.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_REFERENCE_BILLING'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM ITEM_REJECTED *
*---------------------------------------------------------------------*
* A text is printed, if the item is rejected *
*---------------------------------------------------------------------*
FORM ITEM_REJECTED.
CHECK NOT VBDPA-ABGRU IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_REJECTED'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM MAIN_ITEM *
*---------------------------------------------------------------------*
* A text is printed, if the item is a main item *
*---------------------------------------------------------------------*
FORM MAIN_ITEM.
READ TABLE TVBDPAU WITH KEY VBDPA-POSNR BINARY SEARCH.
CHECK SY-SUBRC = 0.
VBDPAU = TVBDPAU.
IF VBDPAU-UPOSB IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ONE_SUBITEM'
EXCEPTIONS
ELEMENT = 1