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

Technical Note 73
Sample Programs
Sample program YHP_POFORM (Example 3)
* Container leeren
SWC_CLEAR_CONTAINER CONTAINER.
* Type Fax
SWC_SET_ELEMENT CONTAINER 'TypeId' 'U'.
* importing: Internet-Nummer
MOVE: adr6-smtp_addr TO ADDRESS_STRING.
SWC_SET_ELEMENT CONTAINER 'AddressString' ADDRESS_STRING.
* Using recipient.CreateAddress
SWC_CALL_METHOD RECIPIENT 'CreateAddress' CONTAINER.
IF SY-SUBRC NE 0.
MESSAGE ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO.
ENDIF.
Endif.
SWC_OBJECT_TO_PERSISTENT RECIPIENT RECIPIENT_ID.
************************************************************************
* BOR Interface *
************************************************************************
* get the id for the user.
SELECT * FROM SOUD WHERE SAPNAM LIKE SY-UNAME AND DELETED=''.
ENDSELECT.
IF SY-SUBRC NE 0.
* Aufrufer besitzt kein Office => wird angelegt
CALL FUNCTION 'SO_USER_AUTOMATIC_INSERT'
EXPORTING
SAPNAME = SY-UNAME
EXCEPTIONS
NO_INSERT = 1
SAP_NAME_EXIST = 2
X_ERROR = 3
OTHERS = 4.
IF SY-SUBRC NE 0.
* Office konnte nicht angelegt werden: Inbox-ID = SPACE
CLEAR SOUD.
ELSE.
* * Neuer Versuch: Lesen der Eingangs-ID des Aufrufers
SELECT * FROM SOUD WHERE SAPNAM LIKE SY-UNAME AND DELETED=''.
ENDSELECT.
ENDIF.
ENDIF.
* Folder Creation
CLEAR SOFMFOL_KEY.
SOFMFOL_KEY-TYPE = 'FOL'.
SOFMFOL_KEY-YEAR = SOUD-INBYR.
SOFMFOL_KEY-NUMBER = SOUD-INBNO.
BOR_KEY = SOFMFOL_KEY.
IF NOT BOR_KEY IS INITIAL.
SWC_CREATE_OBJECT FOLDER 'SOFMFOL' BOR_KEY.
IF SY-SUBRC = 0.
* * Ermittlung der BOR-Objekt-ID
SWC_OBJECT_TO_PERSISTENT FOLDER APPL_OBJECT_ID.