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

Technical Note 25
Sample Programs
Sample Program YRVADOR01 (Example 1)
* 'X' = screen *
* --> US_COUNTRY County for telecommunication and SET COUNTRY *
*---------------------------------------------------------------------*
FORM FORM_OPEN USING US_SCREEN US_COUNTRY.
INCLUDE RVADOPFO.
ENDFORM.
*---------------------------------------------------------------------*
* FORM FORM_TITLE_PRINT *
*---------------------------------------------------------------------*
* Printing of the form title depending of the field VBTYP *
*---------------------------------------------------------------------*
FORM FORM_TITLE_PRINT.
CASE VBDKA-VBTYP.
WHEN 'A'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'TITLE_A'
WINDOW = 'TITLE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
WHEN 'B'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'TITLE_B'
WINDOW = 'TITLE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
WHEN 'C'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'TITLE_C'
WINDOW = 'TITLE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
WHEN 'E'.
CALL FUNCTION 'WRITE_FORM'