05模块化编程，A2-使用子程序，输出物料表字段属性

2017-12-27  本文已影响0人  真言真语SAP
图5-A3 使用子程序输出物料表字段属性

需求分析：

1、具体需求

本《使用子程序输出物料表字段属性》有如下需求：

  1. 本需求实现的效果，已在《实践3A3-输出物料表字段属性》中中实现，而在其中是对每个字段进行检查和输出，代码比较冗长，可读性低且容易产生错误；
  2. 本实践将使用子程序技术，通过模块化编程-子程序技术，对相似代码封装为一个子程序以进行重用，对代码进行简化。
2、开发分析

要达成本实践目标，需考虑地方和思路有如下：

  1. 如《实践3A3-输出物料表字段属性》，通过DESCRIBE关键字，根据不同类型字段，可获得字段的不同属性，包括类型（TYPE）、长度（LENGTH）、小数位数（DECIMALS）、输出长度（OUTPUT-LENGTH）、字段对应数据元素（HELP-ID）/例程（EDIT MASK）；
  2. 需要注意的是，不同类型的字段可获得的属性和获得属性的方式是存在差异的，如字符型没有小数位数，如只能通过IN BYTE MODE获得长度。
  3. 可以从表中获得数据后，通过子程序，可以传入字段后获得字段的各种属性，子程序的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）

上一篇下一篇

猜你喜欢

热点阅读