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

Technical Note 29
Sample Programs
Sample Program YRVADOR01 (Example 1)
I_POSNR_LOW = US_VEDA_POSNR_LOW
TABLES
PRINT_DATA_POS = TKOMSERVP
PRINT_DATA_HEAD = TKOMSERVH
PRINT_NOTICE_POS = TKOMSERVPN
PRINT_NOTICE_HEAD = TKOMSERVHN.
PERFORM GET_CONTROLL_DATA.
PERFORM SENDER.
PERFORM CHECK_REPEAT.
PERFORM TVBDPAU_CREATE.
ENDFORM.
*---------------------------------------------------------------------*
* FORM GET_ITEM_BILLING_SCHEDULES *
*---------------------------------------------------------------------*
* In this routine the billing schedules are fetched from the *
* database. *
*---------------------------------------------------------------------*
FORM GET_ITEM_BILLING_SCHEDULES.
REFRESH TFPLTDR.
CHECK NOT VBDPA-FPLNR IS INITIAL.
CALL FUNCTION 'BILLING_SCHED_PRINTVIEW_READ'
EXPORTING
I_FPLNR = VBDPA-FPLNR
I_LANGUAGE = NAST-SPRAS
I_VBELN = VBDKA-VBELN
TABLES
ZFPLTDR = TFPLTDR.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form ITEM_BILLING_SCHEDULES_PRINT
*&---------------------------------------------------------------------*
* This routine prints the billing shedules of a salesdocument *
* position. *
*----------------------------------------------------------------------*
FORM ITEM_BILLING_SCHEDULES_PRINT.
DATA: FIRST_LINE(1) TYPE C.
FIRST_LINE = CHARX.
LOOP AT TFPLTDR.
FPLTDR = TFPLTDR.
* Output of the following printlines
IF NOT FPLTDR-PERIO IS INITIAL.
* periodische Fakturen
CALL FUNCTION 'WRITE_FORM'