on 03-23-2007 12:31 PM
REPORT ZF111_IN_CHECK.
DATA: zf110_in_check type rs38l_zf110_in_check.
c_formname = zf110_in_check.
TYPES: Begin of zf110_in_check,
reguh like reguh,
regup like regup,
regud like regud,
t042z like t042z,
fsabe like fsabe,
end of zf110_in_check.
CALL FUNCTION '/1BCDWB/SF00000156'
EXPORTING
formname = c_formname
IMPORTING
fm_name = /1BCDWB/SF00000156
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
...........................CALL SMARTFORM............................
CALL FUNCTION /1BCDWB/SF00000156
EXPORTING
control_parameters = st_control_parameters
output_options = st_output_options
IMPORTING
document_output_info = st_document_output_info
job_output_info = st_job_output_info
job_output_options = st_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.
hi rahul don't wht u r doing but i have change u r code as follows
REPORT ZF111_IN_CHECK.
DATA: C_FORMNAME TYPE RS38L_FNAM,
ST_CONTROL_PARAMETERS TYPE SSFCTRLOP,
ST_OUTPUT_OPTIONS TYPE SSFCOMPOP,
ST_DOCUMENT_OUTPUT_INFO TYPE SSFCRESPD,
ST_JOB_OUTPUT_INFO TYPE SSFCRESCL,
ST_JOB_OUTPUT_OPTIONS TYPE SSFCRESOP.
TYPES: BEGIN OF ZF110_IN_CHECK,
REGUH LIKE REGUH,
REGUP LIKE REGUP,
REGUD LIKE REGUD,
T042Z LIKE T042Z,
FSABE LIKE FSABE,
END OF ZF110_IN_CHECK.
ST_CONTROL_PARAMETERS-DEVICE = 'PRINTER'.
ST_CONTROL_PARAMETERS-NO_DIALOG = 'X'.
*Get the active FM name of the smartform
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'ZF110_IN_CHECK'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
FM_NAME = C_FORMNAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*...........................CALL SMARTFORM............................*
CALL FUNCTION C_FORMNAME
EXPORTING
CONTROL_PARAMETERS = ST_CONTROL_PARAMETERS
IMPORTING
DOCUMENT_OUTPUT_INFO = ST_DOCUMENT_OUTPUT_INFO
JOB_OUTPUT_INFO = ST_JOB_OUTPUT_INFO
JOB_OUTPUT_OPTIONS = ST_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.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
87 | |
10 | |
10 | |
10 | |
7 | |
6 | |
6 | |
5 | |
5 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.