快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

澳门威尼l斯人网址_临夏教育信息网进入



看下这个例子

TYPE-POOLS: VRM.

CONSTANTS: CNS_1(1) TYPE C VALUE '1',

CNS_2(1)澳门威尼l斯人网址 TYPE C VALUE '2',

CNS_3(1) TYPE C VALUE '3',

CNS_4(1) TYPE C VALUE '4',

CNS_5(1) TYPE C VALUE '5',

CNS_6(1) TYPE C VALUE '6',

CNS_7(1) TYPE C VALUE '7',

CNS_A(20) TYPE C VALUE '美元借钱',

CNS_B(20) TYPE C VALUE '人夷易近币借钱',

CNS_C(20) TYPE C VALUE '固定资产贷款',

CNS_D(20) TYPE C VALUE '信用证',

CNS_E(20) TYPE C VALUE '银行承兑汇票',

CNS_F(20) TYPE C VALUE '股东借钱',

CNS_G(20) TY澳门威尼l斯人网址PE C VALUE '内部借钱'.

DATA: OK_CODE TYPE SY-UCOMM.

DATA: REPID TYPE SY-REPID VALUE 'ZZYH070807'.

DATA: FNAME TYPE VRM_ID,

LIST TYPE VRM_VALUES.

WLIST LIKE LINE OF LIST.

DATA: SCRNO TYPE SY-DYNNR VALUE '1000'.

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS '0100'.

SET TITLEBAR '010'.

REFRESH LIST.

PERFORM VRM_SET USING CNS_1 CNS_A.

PERFORM VRM_SET USING CNS_2 CNS_B.

PERFORM VRM_SET USING CNS_3 CNS_C.

PERFORM VRM_SET USING CNS_4 CNS_D.

PERFORM VRM_SET USING CNS_5 CNS_E.

PERFORM VRM_SET USING CNS_6 CNS_F.

PERFORM VRM_SET USING CNS_7 CNS_G.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = FNAME

VALUES = LIST

EXCEPTIONS

ID_ILLEGAL_NAME = 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.

ENDMODULE.

MODULE USER_COMMAND_0100 INPUT.

CASE OK_CODE.

WHEN 'ENTR'.

PERFORM SUBSCR_SET.

ENDMODULE.

FORM VRM_SET USING VALUE(CNS_N)

VALUE(CNS_X).

CLEAR WLIST.

FNAME = 'ITA澳门威尼l斯人网址B-ZSORT'.

WLIST-KEY = CNS_N.

WLIST-KEY = CNS_X.

APPEND WLIST TO LIST.

ENDFORM. " VRM_SET

FORM SUBSCR_SET .

CASE ITAB-ZSORT.

WHEN CNS_A.

SCRNO = '200'.

ITAB-WAERS = CNS_USD.

PERFORM S澳门威尼l斯人网址ELECT_NAME.

WHEN CNS_B.

SCRNO ='300'.

ITAB-WAERS = CNS_CNY.

PERFORM SELECT_NAME.

WHEN CNS_C.

SCRNO = '400'.

PERFORM SELECT_NAME.

WHEN CNS_D.

SCRNO = '500'.

PERFORM SELECT_NAME.

WHEN CNS_E.

SCRNO = '600'.

PERFORM SELECT_NAME.

WHEN CNS_F.

SCRNO = '700'.

PERFORM SELECT_NAME.

WHEN CNS_G.

SCRNO = '800'.

PERFORM SELECT_NAME.

ENDCASE.

ENDFORM. " SUBSCR_SET

PROCESS BEFORE OUTPUT.

MODULE STATUS_0100.

CALL SUBSCREEN SUBSCR INCLUDING REPID SCRNO.

*澳门威尼l斯人网址

PROCESS AFTER INPUT.

MODULE USER_COMMAND_0100.

CALL SUBSCREEN SUBSCR.

您可能还会对下面的文章感兴趣: