Call a New Standa…

效果：

code;

REPORT zlm_view_002 .

START-OF-SELECTION .

*

* data declaration for the FM

    DATA : l_tab            TYPE se16n_tab ,

                t_sel            TYPE se16n_or_t ,

                la_sel          LIKE  LINE  OF t_sel ,

                t_sel_tab    TYPE se16n_or_seltab_t ,

                la_sel_tab  LIKE  LINE  OF t_sel_tab .

*

* Table name

    l_tab  =  'VBAK' .

*

* Selection for VBELN

    la_sel_tab - field    =  'VBELN' .

    la_sel_tab - sign     =  'I' .

    la_sel_tab -option    =  'BT' .

    la_sel_tab -low          =  '0000000001' .

    la_sel_tab -high        =  '0000000010 ' .

    APPEND la_sel_tab  TO t_sel_tab .

*

* Selection for ERDAT

    la_sel_tab - field    =  'ERDAT' .

    la_sel_tab - sign     =  'I' .

    la_sel_tab -option    =  'BT' .

    la_sel_tab -low          =  '20130809' .

    la_sel_tab -high        = sy -datum .

    APPEND la_sel_tab  TO t_sel_tab .

*

* Fill the main selection table

    la_sel -pos  =  1 .

    la_sel -seltab  = t_sel_tab .

    APPEND la_sel  TO t_sel .

*

* Function module for the SE16N

    CALL  FUNCTION  'SE16N_INTERFACE'
        EXPORTING
            i_tab                      = l_tab
            i_clnt_dep            =  'X'
        TABLES
*     IT_OUTPUT_FIELDS       =
            it_or_selfields  = t_sel
        EXCEPTIONS
            no_values              =  1
            OTHERS           =  2 .

    IF sy -subrc  <>  0 .

        MESSAGE  ID sy -msgid  TYPE sy -msgty  NUMBER sy -msgno

                        WITH sy -msgv1  sy -msgv2  sy -msgv3  sy -msgv4 .

    ENDIF .