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

ManualsBrandsHP ManualsSoftwareHP Output Management Services Software

Technical Note 53

Sample Programs

Sample Program YRVADOR01 (Example 1)

MOVE TKOMSERVH TO VEDKA.

* Output of the validity.

IF NOT VEDKA-VENDDAT IS INITIAL OR

VEDKA-VENDDAT EQ SPACE.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER_TERMS_OF_SERV1'

EXCEPTIONS

ELEMENT = 1

WINDOW = 2.

IF SY-SUBRC NE 0.

PERFORM PROTOCOL_UPDATE.

ENDIF.

ELSEIF VEDKA-VBEGDAT NE SPACE AND

NOT VEDKA-VBEGDAT IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER_TERMS_OF_SERV2'

EXCEPTIONS

ELEMENT = 1

WINDOW = 2.

IF SY-SUBRC NE 0.

PERFORM PROTOCOL_UPDATE.

ENDIF.

ELSE.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER_TERMS_OF_SERV3'

EXCEPTIONS

ELEMENT = 1

WINDOW = 2.

IF SY-SUBRC NE 0.

PERFORM PROTOCOL_UPDATE.

ENDIF.

ENDIF.

ENDFORM. " HEADER_SERV_PRINT