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

Technical Note 39
Sample Programs
Sample Program YRVADOR01 (Example 1)
ELEMENT = 'ITEM_LINE_CONFIGURATION_HEADER'
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_LINE_CONFIGURATION'
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
*---------------------------------------------------------------------*
* FORM ITEM_DELIVERY_CONFIRMATION *
*---------------------------------------------------------------------*
* If the delivery date is not confirmed, a text is printed *
*---------------------------------------------------------------------*
FORM ITEM_DELIVERY_CONFIRMATION.
CHECK VBDKA-VBTYP NE VBTYP_GANF AND VBDKA-VBTYP NE VBTYP_LANF.
CHECK VBDPA-LFDAT = SPACE.
CHECK VBDPA-KWMENG NE 0.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_DELIVERY_CONFIRMATION'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM ITEM_PRICE_PRINT *
*---------------------------------------------------------------------*
* Printout of the item prices *
*---------------------------------------------------------------------*
FORM ITEM_PRICE_PRINT.
LOOP AT TKOMVD.
KOMVD = TKOMVD.
IF SY-TABIX=1AND
( KOMVD-KOAID = CHARB OR