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

26 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
EXPORTING
ELEMENT = 'TITLE_E'
WINDOW = 'TITLE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
WHEN 'F'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'TITLE_F'
WINDOW = 'TITLE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
WHEN 'G'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'TITLE_F'
WINDOW = 'TITLE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
WHEN 'H'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'TITLE_H'
WINDOW = 'TITLE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
WHEN 'K'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'TITLE_K'
WINDOW = 'TITLE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
WHEN 'L'.