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

Technical Note 79
Sample Programs
Sample report program YSALES_SC (Example 4)
Sample report program YSALES_SC (Example 4)
report Ysales_sc no standard page heading
line-size 120
line-count 80(2)
message-id s1.
************************************************************************
* Title : Sales order list to test Fax and Internet. *
* Created by : Ravindra Babu.I *
* Changed on : 07.07.2003 *
* Client : HP *
* *
************************************************************************
* tables declaration
tables: vbap,
tsp01,
somlreci1.
* Data Declarations
data: i_vbap like vbap occurs 0 with header line.
data: w_spool like tsp01-rqident.
data: reclist like somlreci1 occurs 0 with header line.
data: flag .
*Selection Screen parameters
selection-screen begin of block b1 with frame .
select-options: receiver for somlreci1-receiver.
parameters: mailtype like reclist-rec_type.
parameters: p1 as checkbox,
p2 as checkbox.
selection-screen end of block b1 .
at selection-screen.
if ( receiver is initial and p2 = 'X' ) or ( mailtype is initial
and p2 = 'X' ).
message e000 with 'Please fill the mail ID or Mail type'.
endif.
start-of-selection.
select * from vbap into table i_vbap up to 500 rows.
* It will print on screen and it will send fax or internet.
if p1 = 'X'.
perform print_screen.