Hi Friends:
kindly see the below program:
&----
*& Report ZSM1 *
*& *
&----
*& *
*& *
&----
REPORT zsm1 .
TABLES : lfa1,zsm1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr.
SELECTION-SCREEN END OF BLOCK b1.
DATA : git_lfa1 TYPE TABLE OF zsm1,
gs_lfa1 LIKE LINE OF git_lfa1.
DATA : gs_adrc TYPE adrc.
DATA : form_name TYPE rs38l_fnam.
DATA: control TYPE ssfctrlop,
control_parameters TYPE ssfctrlop,
output_options TYPE ssfcompop.
control-no_dialog = 'X'.
control-device = 'PRINTER'.
output_options-tddest = 'LP01'.
SELECT lifnr adrnr FROM lfa1 INTO TABLE git_lfa1
WHERE lifnr IN s_lifnr.
LOOP AT git_lfa1 INTO gs_lfa1.
SELECT SINGLE name1 name2 street str_suppl3
city1 post_code1 region
FROM adrc
INTO (gs_adrc-name1,gs_adrc-name2,
gs_adrc-street,
gs_adrc-str_suppl3,gs_adrc-city1,
gs_adrc-post_code1,
gs_adrc-region)
WHERE addrnumber = gs_lfa1-adrnr.
CALL FUNCTION '/1BCDWB/SF00000313'
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
control_parameters = control
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
output_options = output_options
user_settings = ' '
git_lfa1 = git_lfa1
gs_adrc = gs_adrc
IMPORTING
DOCUMENT_OUTPUT_INFO =
JOB_OUTPUT_INFO =
JOB_OUTPUT_OPTIONS =
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDLOOP.
It must generate a spool request..but its not generating...please help........
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.