图5-A3 使用子程序输出物料表字段属性
需求分析：
1、具体需求
本《使用子程序输出物料表字段属性》有如下需求：
- 本需求实现的效果，已在《实践3A3-输出物料表字段属性》中中实现，而在其中是对每个字段进行检查和输出，代码比较冗长，可读性低且容易产生错误；
- 本实践将使用子程序技术，通过模块化编程-子程序技术，对相似代码封装为一个子程序以进行重用，对代码进行简化。
2、开发分析
要达成本实践目标，需考虑地方和思路有如下：
- 如《实践3A3-输出物料表字段属性》，通过DESCRIBE关键字，根据不同类型字段，可获得字段的不同属性，包括类型（TYPE）、长度（LENGTH）、小数位数（DECIMALS）、输出长度（OUTPUT-LENGTH）、字段对应数据元素（HELP-ID）/例程（EDIT MASK）；
- 需要注意的是，不同类型的字段可获得的属性和获得属性的方式是存在差异的，如字符型没有小数位数，如只能通过IN BYTE MODE获得长度。
- 可以从表中获得数据后，通过子程序，可以传入字段后获得字段的各种属性，子程序的PAD图如图所示。
图5- 3 子程序PAD
实践步骤：
本实践通过程序编辑器（SE38）即可完成，编写的代码将有如下几部分组成，按开发人员风格不同，其组成部分并非强制一致。
| No | 部分 | 说明 |
|---|---|---|
| 1 | 程序声明 | 声明本程序执行后是否包含标准标题，数据输出宽度和每页的行数量为多少 |
| 2 | 对象定义 | 定义要在程序执行过程中存储输出数据的结构 |
| 3 | 页眉输出 | 通过代码设置输出页眉页脚 |
| 4 | 获取和输出数据 | 从表中获得要输出的数据，并调用子程序将数据按要求输出 |
| 5 | 子程序定义 | 通过子程序定义获得和输出字段属性 |
1、程序声明
程序声明部分的代码如下：
REPORT zu0502_mat_stru_data_perform NO STANDARD PAGE HEADING.
因为本程序只输出一个物料数据的相应信息，所占幅面不大，因此如上代码，没指定页面宽度和页面高度；在此情况下，会根据当前页面大小自动确定宽度，同时不会分页。
2、对象定义
对象定义部分的代码如下：
*****对象定义
DATA: BEGIN OF mat_stru, "MAT_STRU-结构体名称
mandt TYPE ztmaterial-mandt, "通过已有表字段定义类型
materialid TYPE ztmaterial-materialid,
materialname TYPE ztmaterial-materialname,
sunit TYPE ztmaterial-bunit,
materialtype TYPE ztmaterial-materialtype,
supplier TYPE ztmaterial-supplier,
sprice TYPE ztmaterial-sprice,
scurrency TYPE ztmaterial-scurrency,
inventory TYPE ztmaterial-inventory,
END OF mat_stru.
PARAMETERS: matnr TYPE ztmaterial-materialid DEFAULT '1017'.
通过如上代码定义了一个结构mat_stru，此结构也可以通过数据字典进行定义；另外也定义了相应的变量用于数据的输出；同时定义了一个选择字段matnr用于选择界面的输入，此选择字段可以在“文本元素”的“选择文本”中设置程序执行后页面上的显示文字。
3、输出页眉
输出页眉部分的代码如下：
*&----------------------------------------------------------------------*
*& 输出页眉
*&----------------------------------------------------------------------*
TOP-OF-PAGE. "页眉事件
WRITE:/5(75) sy-uline,
/5 '字段', 20 '字段说明', 35(15) '字段值', 50 '字段类型', 60 '长度' , 70 '小数位数',
/5(75) sy-uline.
页眉也可通过文本元素设置，或在输出数据代码中实现。
4、获得和输出数据
获得和输出数据部分的代码如下：
*&----------------------------------------------------------------------*
*& START-OF-SELECTION
*&----------------------------------------------------------------------*
START-OF-SELECTION. "数据处理事件
*****获得物料信息
SELECT SINGLE "从表ZTMETERIAL中获得物料信息数据并赋值到结构体
mandt materialid materialname sunit materialtype supplier sprice scurrency inventory
INTO mat_stru
FROM ztmaterial
WHERE materialid = matnr.
*****调用子程序输出
PERFORM get_describe USING mat_stru-mandt 'MANDT' '集团'.
PERFORM get_describe USING mat_stru-materialid 'MATERIALID' '物料ID'.
PERFORM get_describe USING mat_stru-materialname 'MATERIALNAME' '物料名称'.
PERFORM get_describe USING mat_stru-sunit 'SUNIT' '销售计量单位'.
PERFORM get_describe USING mat_stru-materialtype 'MATERIALTYPE' '物料类型'.
PERFORM get_describe USING mat_stru-supplier 'SUPPLIER' '供应商'.
PERFORM get_describe USING mat_stru-sprice 'SPRICE' '价格'.
PERFORM get_describe USING mat_stru-scurrency 'SCURRENCY' '销售价格单位'.
PERFORM get_describe USING mat_stru-inventory 'INVENTORY' '库存数量'.
如上程序，首先根据选择界面输入的matnr（物料编号）的值，从ztmaterial表中选择相应的记录并存储各字段值到结构mat_stru中。然后，通过PERFORM调用子程序输出各字段的信息
5、子程序定义
子程序定义部分的代码如下：
*&---------------------------------------------------------------------*
*& FORM GET_DESCRIBE
*&---------------------------------------------------------------------*
* 获得字段属性
*----------------------------------------------------------------------*
* -->fld 字段
* -->fldtxt 字段文本
*----------------------------------------------------------------------*
FORM get_describe USING VALUE(fld) VALUE(fldtxt).
DATA: hlp TYPE string, "含结构字段名称
struc TYPE dfies-tabname, "结构名称
fldn TYPE dfies-fieldname, "字段名称
typ(1) TYPE c, "字段类型
len TYPE i, "字段长度
olen TYPE i, "字段输出长度
deci TYPE i, "字段小数位数
compo TYPE i. "组合字段包含字段数量
DESCRIBE FIELD fld HELP-ID hlp. "获得字段名称
SPLIT hlp AT '-' INTO struc fldn.
DESCRIBE FIELD fld TYPE typ. "获得字段类型
IF typ <> 'C' AND typ <> 'D' AND typ <> 'N' AND typ <> 'T'.
DESCRIBE FIELD fld LENGTH len IN BYTE MODE. "获得字段长度
ELSE.
DESCRIBE FIELD fld LENGTH len IN CHARACTER MODE.
ENDIF.
IF typ = 'F' OR typ = 'P'.
DESCRIBE FIELD fld DECIMALS deci. "获得小数位数
WRITE:/5 fldn, 20 fldtxt, 35(15) fld, 50 typ, 60 len, 70 deci.
ELSEIF typ = 'U' OR typ = 'V'.
DESCRIBE FIELD fld TYPE typ COMPONENTS compo. "获得字段数量
WRITE:/5 fldn, 20 fldtxt, 35(15) fld, 50 typ, 60 len, 70 compo.
ELSEIF typ <> 'F' AND typ <> 'P' AND typ <> 'U' AND typ <> 'V'.
WRITE:/5 fldn, 20 fldtxt, 35(15) fld, 50 typ, 60 len, 70 ''.
ENDIF.
ENDFORM.
通过如上代码，定义了一个名为get_describe的子程序，此子程序在“获得和输出数据”部分中被调用。此子程序按流程分析进行代码的实现：首先传入2个参数：fld、fldtxt，分别是字段和字段说明；然后在代码部分，先是定义了用来存储字段属性值的各个变量，这些变量将会通过DESCRIBE获得属性值并予以存储；随后根据不同字段类型，获得各种属性值并进行输出。
将如上5部分代码合成一起，则可以实现本实践的需求。
本实践小结：
子程序（Subroutine Procedure）是包含在主程序中单独作为一个小程序封装的一段功能代码；对于程序中多次用到的代码，则可以抽离出来定义为一个子程序，以能重复应用和降低代码的复杂性。
1、子程序
1) 子程序的定义
FORM <subr>.
<子程序语句块>
ENDFORM.
2) 子程序的调用
内部调用：子程序位于相同的程序中
PERFORM <subr>.
外部调用：子程序位于其他程序中
3) 子程序的参数传递
可以在子程序中定义传入的参数类型/值及处理的方式，并在调用时指定内部调用；在参数传递时又有不同的方式，分别为：By Reference(引用)、By Value（值）。
另外，如果以表的方式传递参数，其定义和调用方式如下：
FORM <subr> TABLES <p_itab> STRUCTURE <p_stru>.
<子程序语句块>
ENDFORM.
PERFORM <subr> TABLES <itab>.
2、调用其他程序
对于因重复使用代码或简化代码等需要时，除了子程序外，还可以通过SUBMIT和CALL TRANSATION方式直接在一个程序中调用另一个程序。
（实践5A1 End）
网友评论