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

36 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
IF NOT KOMVD-KNTYP EQ 'f'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'SUM_LINE'.
ENDIF.
ENDIF.
ENDLOOP.
DESCRIBE TABLE TKOMVD LINES SY-TFILL.
IF SY-TFILL = 0.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'UNDER_LINE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM HEADER_TEXT_PRINT *
*---------------------------------------------------------------------*
* Printout of the headertexts *
*---------------------------------------------------------------------*
FORM HEADER_TEXT_PRINT.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'HEADER_TEXT'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM ITEM_BILLING_CORRECTION_HEADER *
*---------------------------------------------------------------------*
* In the case of a billing correction, the header of the item *
* debit memo / credit memo position, is printed by this routine *
*---------------------------------------------------------------------*
FORM ITEM_BILLING_CORRECTION_HEADER USING US_GANF US_LANF.
CHECK VBDKA-VBKLT EQ VBKLT_RECH_KORR.