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

Technical Note 71
Sample Programs
Sample program YHP_POFORM (Example 3)
DATA: BEGIN OF potab OCCURS 0,
ebelp TYPE ekpo-ebelp,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
netpr TYPE ekpo-netpr,
netwr TYPE ekpo-netwr,
maktx TYPE makt-maktx,
END OF potab.
data: begin of wa,
ebeln type ekKo-ebeln,
lifnr type ekKo-lifnr,
aedat type ekko-aedat,
end of wa.
Data: LAND LIKE SOXFX-REC_STATE,
NUMBER LIKE SOXFX-REC_FAX.
* Selection-parameters
selection-screen begin of block b1 with frame.
parameter: PONumber type ekko-ebeln.
selection-screen end of block b1.
selection-screen begin of block b3 with frame.
PARAMETERS: FAX radiobutton group rad.
PARAMETERS: INTERNET radiobutton group rad.
selection-screen end of block b3.
* Data selection for the purchase order
Start-of-selection.
select single ebeln lifnr aedat from ekko
into wa where ebeln = PONumber.
select ekpo~ebelp ekpo~matnr ekpo~menge ekpo~netpr
ekpo~netwr from ekpo into table potab
where ekpo~ebelN = PONumber .
select single * from lfa1 where lifnr = wa-lifnr.
select single * from adr6 where ADDRNUMBER = lfa1-adrnr.
If internet = 'X' and sy-subrc ne 0 and adr6-smtp_addr is initial.
message e300 with
'E-mail address is not maintained in Vendor master!'.
endif.
if fax = 'X' and lfa1-TELFX is initial.
message e300 with
'Fax Number is not maintained in Vendor Master !'.