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

50 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
I_BOUNDARY_LEFT = '(_'
I_BOUNDARY_RIGHT = '_)'
I_SEP_CHAR_STRINGS = ',_'
I_SEP_CHAR_INTERVAL = '_-_'
I_USE_INTERVAL = 'X'
I_BOUNDARY_METHOD = 'C'
I_LINE_LENGTH = 50
I_NO_ZERO = 'X'
I_ALPHABET = SY-ABCDE
I_DIGITS = '0123456789'
I_SPECIAL_CHARS = '-'
I_WITH_SECOND_DIGIT = ' '
TABLES
SERIALS = TKOMSER
SERIALS_PRINT = TKOMSER_PRINT
EXCEPTIONS
BOUNDARY_MISSING = 01
INTERVAL_SEPARATION_MISSING = 02
LENGTH_TO_SMALL = 03
INTERNAL_ERROR = 04
WRONG_METHOD = 05
WRONG_SERIAL = 06
TWO_EQUAL_SERIALS = 07
SERIAL_WITH_WRONG_CHAR = 08
SERIAL_SEPARATION_MISSING = 09.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDFORM. " GET_ITEM_SERIALS
*eject
*&---------------------------------------------------------------------*
*& Form ITEM_SERIALS_PRINT
*&---------------------------------------------------------------------*
* This routine prints the serialnumbers of a salesdocument *
* position. *
*----------------------------------------------------------------------*
FORM ITEM_SERIALS_PRINT.
DATA: FIRST_LINE(1) TYPE C.
FIRST_LINE = CHARX.
LOOP AT TKOMSER_PRINT.
KOMSER = TKOMSER_PRINT.
IF NOT FIRST_LINE IS INITIAL.
* Output of the Headerline
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_LINE_SERIAL_HEADER'
EXCEPTIONS
ELEMENT = 1