SAP-调用其他程序方法

    REFRESH:RSPAR.
        "损益表的净利润
        WA_RSPAR-SELNAME = 'S_BUKRS'.
        WA_RSPAR-KIND = 'S'.
        WA_RSPAR-SIGN = S_BUKRS-SIGN.
        WA_RSPAR-OPTION = S_BUKRS-OPTION.
*        WA_RSPAR-LOW  = S_BUKRS-LOW.      
*        WA_RSPAR-HIGH = S_BUKRS-HIGH.
          "DLB
        WA_RSPAR-LOW  = IT_ZFIT001-BUKRS.
WA_RSPAR-HIGH = IT_ZFIT001-BUKRS.
        APPEND WA_RSPAR TO RSPAR.
        WA_RSPAR-SELNAME = 'S_RYEAR'.
        WA_RSPAR-KIND = 'S'.
        WA_RSPAR-SIGN = S_RYEAR-SIGN.
        WA_RSPAR-OPTION = S_RYEAR-OPTION.
        WA_RSPAR-LOW  = S_RYEAR-LOW.
        WA_RSPAR-HIGH = S_RYEAR-HIGH.
        APPEND WA_RSPAR TO RSPAR.
        WA_RSPAR-SELNAME = 'S_RPMAX'.
        WA_RSPAR-KIND = 'S'.
        WA_RSPAR-SIGN = S_RPMAX-SIGN.
        WA_RSPAR-OPTION = S_RPMAX-OPTION.
        WA_RSPAR-LOW  = S_RPMAX-LOW.
        WA_RSPAR-HIGH = S_RPMAX-HIGH.
        APPEND WA_RSPAR TO RSPAR.
        WA_RSPAR-SELNAME = 'C1'.
        WA_RSPAR-KIND = 'P'.
        WA_RSPAR-LOW  = 'X'.
        APPEND WA_RSPAR TO RSPAR.

        SUBMIT ZFIR002
               "VIA SELECTION-SCREEN
               WITH SELECTION-TABLE RSPAR
               AND RETURN.

        REFRESH:LT_ZFIR002.
        CLEAR:LT_ZFIR002.

        IMPORT IT_OUT_TABLE TO LT_ZFIR002[] FROM MEMORY ID 'ZFIR002'.
        FREE MEMORY ID 'ZFIR002'.

        SORT LT_ZFIR002 DESCENDING BY COL02.
        READ TABLE LT_ZFIR002 INDEX 1."取最后一行净利润
        V_HSLCT = LT_ZFIR002-COL04.

---

自学使用，有问题欢迎指正，谢谢！！！

---