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

Technical Note 23

Sample Programs

Sample Program YRVADOR01 (Example 1)

EXPORTING

ELEMENT = 'ITEM_TERMS_OF_NOTICE'

EXCEPTIONS

ELEMENT = 1

WINDOW = 2.

IF SY-SUBRC NE 0.

PERFORM PROTOCOL_UPDATE.

ENDIF.

ENDLOOP.

IF NOT US_TEXT IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'EMPTY_LINE'

EXCEPTIONS

ELEMENT = 1

WINDOW = 2.

IF SY-SUBRC NE 0.

PERFORM PROTOCOL_UPDATE.

ENDIF.

ENDFORM.

*---------------------------------------------------------------------*

* FORM END_PRINT *

*---------------------------------------------------------------------*

* *

*---------------------------------------------------------------------*

FORM END_PRINT.

PERFORM GET_HEADER_PRICES.

CALL FUNCTION 'CONTROL_FORM'

EXPORTING

COMMAND = 'PROTECT'.

PERFORM HEADER_PRICE_PRINT.

IF NOT PRICE_PRINT_MODE EQ CHARA.

* Pricing data init

CALL FUNCTION 'RV_PRICE_PRINT_GET_BUFFER'

EXPORTING

I_INIT = CHARX

TABLES

T_TKOMV = TKOMV

T_TKOMVD = TKOMVD.

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'END_VALUES'.

CALL FUNCTION 'CONTROL_FORM'