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

ManualsBrandsHP ManualsSoftwareHP Output Management Services Software

Technical Note 27

Sample Programs

Sample Program YRVADOR01 (Example 1)

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'TITLE_L'

WINDOW = 'TITLE'

EXCEPTIONS

ELEMENT = 1

WINDOW = 2.

IF SY-SUBRC NE 0.

PERFORM PROTOCOL_UPDATE.

ENDIF.

WHEN OTHERS.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'TITLE_OTHERS'

WINDOW = 'TITLE'

EXCEPTIONS

ELEMENT = 1

WINDOW = 2.

IF SY-SUBRC NE 0.

PERFORM PROTOCOL_UPDATE.

ENDIF.

ENDCASE.

IF REPEAT NE SPACE.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'REPEAT'

WINDOW = 'REPEAT'

EXCEPTIONS

ELEMENT = 1

WINDOW = 2.

IF SY-SUBRC NE 0.

PERFORM PROTOCOL_UPDATE.

ENDIF.

ENDFORM.

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

* FORM GET_DATA *

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

* General provision of data for the form *

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

FORM GET_DATA.

DATA: US_VEDA_VBELN LIKE VEDA-VBELN.

DATA: US_VEDA_POSNR_LOW LIKE VEDA-VPOSN.

DATA: DA_MESS LIKE VBFS OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'RV_PRICE_PRINT_GET_MODE'

IMPORTING

E_PRINT_MODE = PRICE_PRINT_MODE.