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

Technical Note 31
Sample Programs
Sample Program YRVADOR01 (Example 1)
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ELSEIF FPLTDR-FAREG CA '3'.
* Schlußrechnung
ENDIF.
ENDLOOP.
ENDFORM.
*eject
*&---------------------------------------------------------------------*
*& FORM GET_ITEM_ADDIS
*&---------------------------------------------------------------------*
* Additionals data are fetched from database
*----------------------------------------------------------------------*
FORM GET_ITEM_ADDIS.
CLEAR: TADDI_PRINT.
CALL FUNCTION 'WTAD_ADDIS_IN_SO_PRINT'
EXPORTING
FI_VBELN = VBDKA-VBELN
FI_POSNR = VBDPA-POSNR
* FI_LANGUAGE = SY-LANGU
TABLES
FET_ADDIS_IN_SO_PRINT = TADDI_PRINT
EXCEPTIONS
ADDIS_NOT_ACTIVE = 1
NO_ADDIS_FOR_SO_ITEM = 2
OTHERS = 3.
ENDFORM. " GET_ITEM_ADDIS
*---------------------------------------------------------------------*
* FORM GET_ITEM_CHARACTERISTICS *
*---------------------------------------------------------------------*
* In this routine the configuration data item is fetched from *
* the database. *
*---------------------------------------------------------------------*
FORM GET_ITEM_CHARACTERISTICS.
DATA DA_T_CABN LIKE CABN OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF DA_KEY,
MANDT LIKE CABN-MANDT,
ATINN LIKE CABN-ATINN,
END OF DA_KEY.
REFRESH TKOMCON.
CHECK NOT VBDPA-CUOBJ IS INITIAL AND
VBDPA-ATTYP NE VAR_TYP.
CALL FUNCTION 'VC_I_GET_CONFIGURATION'