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

52 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDFORM. " HEADER_INTER_PRINT
*&---------------------------------------------------------------------*
*& Form GET_CONTROLL_DATA
*&---------------------------------------------------------------------*
* Checks if servicedata for the header exists. *
* Checks if servicedata for the position exists. *
* Checks if noticedata for the header exists. *
* Checks if noticedata for the position exists. *
*----------------------------------------------------------------------*
FORM GET_CONTROLL_DATA.
DATA: LINES TYPE I.
* Exists servicedata for the header?
DESCRIBE TABLE TKOMSERVH LINES LINES.
IF LINES GT 0.
STEU-VDKEX = 'X'.
ENDIF.
* Exists servicedata for the position?
DESCRIBE TABLE TKOMSERVP LINES LINES.
IF LINES GT 0.
STEU-VDPEX = 'X'.
ENDIF.
* Exists noticedata for the header?
DESCRIBE TABLE TKOMSERVHN LINES LINES.
IF LINES GT 0.
STEU-KBKEX = 'X'.
ENDIF.
* Exists noticedata for the position?
DESCRIBE TABLE TKOMSERVPN LINES LINES.
IF LINES GT 0.
STEU-KBPEX = 'X'.
ENDIF.
ENDFORM. " GET_CONTROLL_DATA
*eject
*&---------------------------------------------------------------------*
*& Form HEADER_SERV_PRINT
*&---------------------------------------------------------------------*
* Output of the validity of a service-contract. *
*----------------------------------------------------------------------*
FORM HEADER_SERV_PRINT.
CHECK NOT STEU-VDKEX IS INITIAL.
READ TABLE TKOMSERVH INDEX 1.