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

Technical Note 51
Sample Programs
Sample Program YRVADOR01 (Example 1)
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
CLEAR FIRST_LINE.
ELSE.
* Output of the following printlines
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_LINE_SERIAL'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ENDLOOP.
* If serialnumbers exists a empty line is printed.
IF FIRST_LINE IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'EMPTY_LINE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ENDFORM. " ITEM_SERIALS_PRINT
*eject
*&---------------------------------------------------------------------*
*& Form HEADER_INTER_PRINT
*&---------------------------------------------------------------------*
* Prints the message that if other condition for the positions *
* exists they are printed there. *
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM HEADER_INTER_PRINT.
CHECK NOT STEU-VDKEX IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'HEADER_TERMS_OF_TXTEND'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.