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

74 Technical Note
Sample Programs
Sample program YHP_POFORM (Example 3)
IF SY-SUBRC NE 0.
CLEAR APPL_OBJECT_ID.
ENDIF.
ENDIF.
ELSE.
CLEAR APPL_OBJECT_ID.
ENDIF.
************************************************************************
* Declaring the SAPSCript *
************************************************************************
* Füllen des Text-Headers für SAPscript
CLEAR HEADER.
HEADER-TDOBJECT = 'FORM'.
If FAX = 'X'.
HEADER-TDNAME = 'TestFax'.
endif.
IF INTERNET = 'X'.
HEADER-TDNAME = 'TestMail'.
endif.
HEADER-TDID = 'DEF'.
HEADER-TDSPRAS = SY-LANGU.
HEADER-TDFORM = 'ZHP_POFORM'.
CLEAR OPTIONS.
CONCATENATE 'Sending through SAPscript' SY-DATUM SY-UZEIT
INTO OPTIONS-TDTITLE SEPARATED BY SPACE.
************************************************************************
* Recipients for SAPscript *
************************************************************************
SWC_CLEAR_CONTAINER CONTAINER.
REFRESH RECIPIENT_TAB.
SWC_CALL_METHOD RECIPIENT 'Expand' CONTAINER.
IF SY-SUBRC NE 0.
MESSAGE ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO.
ENDIF.
SWC_GET_TABLE CONTAINER 'ResultTable' RECIPIENT_TAB.
IF SY-SUBRC NE 0.
REFRESH RECIPIENT_TAB.
ENDIF.
* For each recipient it will send a mail.
LOOP AT RECIPIENT_TAB.
SWC_OBJECT_TO_PERSISTENT RECIPIENT_TAB RECIPIENT_ID.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
DEVICE = 'MAIL'
DIALOG = SPACE