创建一个新程序
步骤 1− 转到事务 SE38 并创建一个名为 Z_SPELLAMOUNT 的新程序。
步骤 2− 输入一些代码,以便可以设置参数,在其中可以输入值并将其传递到功能模块。此处的文本元素 text-001 为“输入值”。
步骤 3− 要为此编写代码,请使用 CTRL+F6。此后,将出现一个窗口,其中“调用功能”是列表中的第一个选项。在文本框中输入“spell_amount”,然后单击“继续”按钮。
步骤 4− 一些代码是自动生成的。但是我们需要增强 IF 语句,添加一段代码,向屏幕写入一条消息,表示“函数模块返回了一个值:sy-subrc”,并添加 ELSE 语句,以便在函数执行时写出正确的结果。模块成功。这里必须设置一个新变量来保存从功能模块返回的值。我们将其称为“结果”。
以下是代码 -
REPORT Z_SPELLAMOUNT.
data result like SPELL.
selection-screen begin of line.
selection-screen comment 1(15) text-001.
parameter num_1 Type I.
selection-screen end of line.
CALL FUNCTION 'SPELL_AMOUNT'
EXPORTING
AMOUNT = num_1
IMPORTING
IN_WORDS = result.
IF SY-SUBRC <> 0.
Write: 'Value returned is:', SY-SUBRC.
else.
Write: 'Amount in words is:', result-word.
ENDIF.
步骤 5− 功能模块返回的变量称为IN_WORDS。在程序中设置相应的变量“result”。通过使用 LIKE 语句来引用称为 SPELL 的结构来定义 IN_WORDS。
步骤 6− 保存、激活并执行程序。输入如下屏幕截图所示的值,然后按 F8。
上面的代码产生以下输出 -
Spelling the Amount
Amount in words is:
FIVE THOUSAND SIX HUNDRED EIGHTY