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

Technical Note 47
Sample Programs
Sample Program YRVADOR01 (Example 1)
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
WHEN 'E'.
IF VBDKA-GUEBG CN '0' OR
VBDKA-GUEEN CN '0'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'VALIDITY_CONTRACT'
WINDOW = 'VALIDITY'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
WHEN 'F'.
IF VBDKA-GUEBG CN '0' OR
VBDKA-GUEEN CN '0'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'VALIDITY_CONTRACT'
WINDOW = 'VALIDITY'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
WHEN 'G'.
IF VBDKA-GUEBG CN '0' OR
VBDKA-GUEEN CN '0'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'VALIDITY_CONTRACT'
WINDOW = 'VALIDITY'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ENDCASE.
ENDFORM.
*&---------------------------------------------------------------------*