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

Technical Note 35
Sample Programs
Sample Program YRVADOR01 (Example 1)
*&---------------------------------------------------------------------*
*& Form HEADER_DATA_PRINT
*&---------------------------------------------------------------------*
* Printing of header data like terms, weights .... *
*----------------------------------------------------------------------*
FORM HEADER_DATA_PRINT.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'HEADER_DATA'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDFORM. " HEADER_DATA_PRINT
*---------------------------------------------------------------------*
* FORM HEADER_PRICE_PRINT *
*---------------------------------------------------------------------*
* Printout of the header prices *
*---------------------------------------------------------------------*
FORM HEADER_PRICE_PRINT.
LOOP AT TKOMVD.
AT FIRST.
IF KOMK-SUPOS NE 0.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_SUM'.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'UNDER_LINE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ENDAT.
KOMVD = TKOMVD.
IF KOMVD-KOAID = 'D'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'TAX_LINE'.
ELSE.