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

24 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
EXPORTING
COMMAND = 'ENDPROTECT'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'SUPPLEMENT_TEXT'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM FORM_CLOSE *
*---------------------------------------------------------------------*
* End of printing the form *
*---------------------------------------------------------------------*
FORM FORM_CLOSE.
DATA DA_CLEAR_VBELN(1) TYPE C.
* bei Druckansicht im Anlegen gibt es noch keine Belegnummer - für die
* Anzeige temporäre Belegnummer übergeben und danach zurücknehmen, damit
* Folgeverarbeitung noch funktioniert
IF VBDKA-VBELN IS INITIAL.
DA_CLEAR_VBELN = CHARX.
VBDKA-VBELN = '$000000001'.
ENDIF.
CALL FUNCTION 'CLOSE_FORM'
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
RETCODE = 1.
ENDIF.
SET COUNTRY SPACE.
IF DA_CLEAR_VBELN EQ CHARX.
CLEAR VBDKA-VBELN.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM FORM_OPEN *
*---------------------------------------------------------------------*
* Start of printing the form *
*---------------------------------------------------------------------*
* --> US_SCREEN Output on screen *
* ' ' = printer *