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

Technical Note 37
Sample Programs
Sample Program YRVADOR01 (Example 1)
IF VBDKA-VBTYP = VBTYP_GANF.
* Gutschriftsanforderung
IF VBDPA-SHKZG = CHARX.
IF US_GANF IS INITIAL.
MOVE CHARX TO US_GANF.
MOVE SPACE TO US_LANF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'CORRECTION_TEXT_K'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ELSE.
IF US_LANF IS INITIAL.
MOVE CHARX TO US_LANF.
MOVE SPACE TO US_GANF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'CORRECTION_TEXT_L'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF VBDKA-VBTYP = VBTYP_LANF.
* Lastschriftssanforderung
IF VBDPA-SHKZG = SPACE.
IF US_LANF IS INITIAL.
MOVE CHARX TO US_LANF.
MOVE SPACE TO US_GANF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'CORRECTION_TEXT_L'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ELSE.
IF US_GANF IS INITIAL.