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

Technical Note 41
Sample Programs
Sample Program YRVADOR01 (Example 1)
PERFORM GET_ITEM_BILLING_SCHEDULES.
PERFORM GET_ITEM_PRICES.
PERFORM GET_ITEM_ADDIS.
CALL FUNCTION 'CONTROL_FORM'
EXPORTING
COMMAND = 'ENDPROTECT'.
CALL FUNCTION 'CONTROL_FORM'
EXPORTING
COMMAND = 'PROTECT'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_LINE'.
PERFORM ITEM_REJECTED.
PERFORM ITEM_PRICE_PRINT.
CALL FUNCTION 'CONTROL_FORM'
EXPORTING
COMMAND = 'ENDPROTECT'.
PERFORM ITEM_TEXT_PRINT.
PERFORM ITEM_SERIALS_PRINT.
PERFORM ITEM_CHARACTERISTICS_PRINT.
PERFORM ITEM_ADDIS_PRINT.
PERFORM ITEM_REFERENCE_BILLING.
PERFORM ALTERNATIVE_ITEM.
PERFORM DELIVERY_DATE.
PERFORM ITEM_DELIVERY_CONFIRMATION.
PERFORM ITEM_BILLING_SCHEDULES_PRINT.
PERFORM DIFFERENT_REFERENCE_NO.
PERFORM DIFFERENT_TERMS.
PERFORM DIFFERENT_CONSIGNEE.
PERFORM SCHEDULE_HEADER.
PERFORM MAIN_ITEM.
ELSE.
PERFORM SCHEDULE_PRINT.
ENDIF.
ENDIF.
ENDLOOP.
CALL FUNCTION 'WRITE_FORM' "Deactivate Header
EXPORTING ELEMENT = 'ITEM_HEADER'
FUNCTION = 'DELETE'
TYPE = 'TOP'
EXCEPTIONS OTHERS = 1.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM ITEM_REFERENCE_BILLING *
*---------------------------------------------------------------------*
* If the reference number of the billing is printed by this *
* routine. In case (debit memo / credit memo) *
*---------------------------------------------------------------------*