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

44 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
MSG_V3 = SYST-MSGV3
MSG_V4 = SYST-MSGV4
EXCEPTIONS
OTHERS = 1.
ENDFORM.
*---------------------------------------------------------------------*
* FORM SCHEDULE_HEADER *
*---------------------------------------------------------------------*
* If there are schedules in the item, then here is printed the *
* header for the schedules. *
*---------------------------------------------------------------------*
FORM SCHEDULE_HEADER.
CHECK VBDPA-ETENR_DA NE SPACE.
CALL FUNCTION 'CONTROL_FORM'
EXPORTING
COMMAND = 'PROTECT'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_SCHEDULE_HEADER'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM SCHEDULE_PRINT *
*---------------------------------------------------------------------*
* This routine prints the schedules for an item. *
*---------------------------------------------------------------------*
FORM SCHEDULE_PRINT.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_SCHEDULE_PRINT'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM SENDER *