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

22 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
VEDPA-VENDDAT NE SPACE AND
NOT VEDPA-VBEGDAT IS INITIAL AND
NOT VEDPA-VENDDAT IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_TERMS_OF_SERV1'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ELSEIF VEDPA-VBEGDAT NE SPACE AND
NOT VEDPA-VBEGDAT IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_TERMS_OF_SERV2'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_TERMS_OF_SERV3'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ENDIF.
* Notice-rules for the positions.
MOVE VBDPA-POSNR TO US_VPOSN.
CLEAR US_TEXT.
LOOP AT TKOMSERVPN WHERE VPOSN = US_VPOSN.
VEDPN = TKOMSERVPN.
IF US_TEXT IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_TERMS_OF_NOTTXT'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
US_TEXT = CHARX.
ENDIF.
CALL FUNCTION 'WRITE_FORM'