*&---------------------------------------------------------------------*
*& Report Z_ZY_SMARTFORMSTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z_ZY_SMARTFORMSTEST.
TABLES SPFLI.
DATA FM_NAME TYPE RS38L_FNAM.
DATA IT_OUT LIKE TABLE OF SPFLI WITH HEADER LINE.
DATA ITAB LIKE TABLE OF SPFLI WITH HEADER LINE.
PARAMETERS INPUT LIKE SPFLI-CARRID.
SELECT * FROM SPFLI into TABLE ITAB WHERE SPFLI~CARRID = INPUT.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'Z_ZY_SMARTFORMS'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
FM_NAME = FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
CALL FUNCTION FM_NAME
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
* CONTROL_PARAMETERS =
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
* OUTPUT_OPTIONS =
* USER_SETTINGS = 'X'
UNAME = SY-UNAME
* IMPORTING
* DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
TABLES
IT_OUT = ITAB
* EXCEPTIONS
* FORMATTING_ERROR = 1
* INTERNAL_ERROR = 2
* SEND_ERROR = 3
* USER_CANCELED = 4
* OTHERS = 5
.
*& Report Z_ZY_SMARTFORMSTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z_ZY_SMARTFORMSTEST.
TABLES SPFLI.
DATA FM_NAME TYPE RS38L_FNAM.
DATA IT_OUT LIKE TABLE OF SPFLI WITH HEADER LINE.
DATA ITAB LIKE TABLE OF SPFLI WITH HEADER LINE.
PARAMETERS INPUT LIKE SPFLI-CARRID.
SELECT * FROM SPFLI into TABLE ITAB WHERE SPFLI~CARRID = INPUT.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'Z_ZY_SMARTFORMS'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
FM_NAME = FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
CALL FUNCTION FM_NAME
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
* CONTROL_PARAMETERS =
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
* OUTPUT_OPTIONS =
* USER_SETTINGS = 'X'
UNAME = SY-UNAME
* IMPORTING
* DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
TABLES
IT_OUT = ITAB
* EXCEPTIONS
* FORMATTING_ERROR = 1
* INTERNAL_ERROR = 2
* SEND_ERROR = 3
* USER_CANCELED = 4
* OTHERS = 5
.
转载于:https://blog.51cto.com/zhouying/168240