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

84 Technical Note
Sample Programs
Sample report program YSALES_SC (Example 4)
put_in_outbox = 'X'
commit_work = 'X'
tables
packing_list = objpack
object_header = objhead
contents_bin = objbin
contents_txt = objtxt
receivers = reclist
exceptions
too_many_receivers = 1
document_not_sent = 2
operation_no_authorization = 4
others = 99.
endform. " print
*&---------------------------------------------------------------------*
*& Form print_screen
*&---------------------------------------------------------------------*
form print_screen.
loop at i_vbap.
on change of i_vbap-vbeln.
write:/2 sy-vline, i_vbap-vbeln,13 sy-vline,14 i_vbap-posnr,
22 sy-vline,23 i_vbap-matnr,44 sy-vline,45 i_vbap-arktx(34),
80 sy-vline, 81 i_vbap-kwmeng, 99 sy-vline, 100 i_vbap-netwr, 120
sy-vline..
flag = 'X'.
endon.
if flag ne 'X'.
write:/2 sy-vline, 13 sy-vline,14 i_vbap-posnr,
22 sy-vline,23 i_vbap-matnr,44 sy-vline,45 i_vbap-arktx(34),
80 sy-vline, 81 i_vbap-kwmeng, 99 sy-vline, 100 i_vbap-netwr, 120
sy-vline..
endif.
clear flag.
endloop.
write:/2 sy-uline(120).
endform. " print_screen
*&---------------------------------------------------------------------*
*& Form print_spool
*&---------------------------------------------------------------------*
form print_spool.
data: params like pri_params.
data: valid.
call function 'GET_PRINT_PARAMETERS'
exporting
list_name = 'TEST'
list_text = 'Fixed Deposit List'
immediately = ' '