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

Technical Note 85
Sample Programs
Sample report program YSALES_SC (Example 4)
release = 'X'
new_list_id = 'X'
line_size = 120
line_count = 80
layout = 'X_90_120'
no_dialog = 'X'
importing
out_parameters = params
valid = valid.
if valid <> space and p2 = 'X'.
new-page print on parameters params no dialog.
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).
endif.
new-page print off.
w_spool = sy-spono.
perform print using w_spool.
.
if sy-subrc eq 0.
write:/2 'Spool Number-',w_spool, ' is forwarded to SAPConnect'.
endif.
endform. " print_spool