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

70 Technical Note

Sample Programs

Sample program YHP_POFORM (Example 3)

REPORT YHP_POFORM no standard page heading line-size 70 message-id m1.

***********************************************************************

* This program will generate the SAPScript Document and will sent to *

* the SAPConnect through Business Communication Interface (BCI) *

* *

* Created By : RBABU *

* Dated : 03.07.2003 *

***********************************************************************

TABLES: SOUD,

ekko,

ekpo,

makt,

lfa1,

adr6.

* Makros für Zugriff aufs BOR

INCLUDE <CNTN01>.

* Datendeklaration

* * (BOR)

DATA: SENDER_ID LIKE SWOTOBJID,

APPL_OBJECT_ID LIKE SWOTOBJID,

RECIPIENT_ID LIKE SWOTOBJID,

RECIPIENT TYPE SWC_OBJECT,

SENDER TYPE SWC_OBJECT,

RECIPIENT_TAB TYPE SWC_OBJECT OCCURS 0 WITH HEADER LINE,

FOLDER TYPE SWC_OBJECT,

BEGIN OF SOFMFOL_KEY,

FOLDERTYPE LIKE SOFM-FOLTP,

FOLDERYEAR LIKE SOFM-FOLYR,

FOLDERNUMBER LIKE SOFM-FOLNO,

TYPE LIKE SOFM-DOCTP,

YEAR LIKE SOFM-DOCYR,

NUMBER LIKE SOFM-DOCNO,

FORWARDER LIKE SOUB-USRNAM,

END OF SOFMFOL_KEY,

BOR_KEY LIKE SWOTOBJID-OBJKEY,

ADDRESS_STRING LIKE SOXNA-FULLNAME.

* * (SAPscript)

DATA: HEADER LIKE THEAD,

RESULT LIKE ITCPP,

LINES LIKE TLINE OCCURS 0 WITH HEADER LINE,

OTFDATA LIKE ITCOO OCCURS 0,

OPTIONS LIKE ITCPO.

* Deklaration eines Containers

SWC_CONTAINER CONTAINER.