本帖最后由 elliott_love 于 2012-10-19 09:47 编辑
/:
PERFORM F_GET_CR_NO_COMP IN PROGRAM ZRFFI_002
/:
USING &BKPF-BUKRS&
/:
USING &BSEG-BELNR&
/:
CHANGING &L_CR_NO&
/:
ENDPERFORM.复制代码像上面 调用程序ZRFFI_002里的F_GET_CR_NO_COMP 子程序 输入参数 using后的输入参数就是changing后的
补充一点子程序F_GET_CR_NO_COMP 里的参数，红色部分一定这么写
FORM F_GET_CR_NO_COMP tables t_input structure itcsy
t_output structure itcsy.
DATA: L_BUKRS TYPE BKPF-BUKRS,
L_BELNR TYPE BSEG-BELNR,
L_ADRNR TYPE T001-ADRNR,
L_ADRNR_FMT TYPE T001-ADRNR,
L_SORT1 TYPE ADRC-SORT1,
L_LENGTHTYPE I,
L_CR_NO(16) TYPE C.
LOOP AT T_INPUT.
CASE T_INPUT-NAME.
WHEN 'BKPF-BUKRS'.
L_BUKRS = T_INPUT-VALUE.
WHEN 'BSEG-BELNR'.
L_BELNR = T_INPUT-VALUE.
ENDCASE.
ENDLOOP.
LOOP AT T_OUTPUT.
CASE T_OUTPUT-NAME.
WHEN 'L_CR_NO'.
T_OUTPUT-VALUE = L_CR_NO.
ENDCASE.
MODIFY T_OUTPUT TRANSPORTING VALUE.
ENDLOOP.
|
