SAP ABAP程序类型

ag • 2017.05.03 22:48 • 文章 • 阅读 2005

1 可执行程序
I INCLUDE 程序
M 模块池
F 函数组
S 子程序池
J 接口池
K 类别库
T 类型池
X 转换（XSLT 或 ST 程序）
Q 数据库过程代理

本文作者: GavinDong

版权属于: GavinDong博客

文章链接: https://www.gavindong.com/166.html

如果使用过程中遇到问题，可 **点击此处** 交流沟通。

abap

ag普通用户

0 1

文章

ABAP提示“子例程 FRM_DN_PICKING 不存在是否创建对象”

子例程 FRM_DN_PICKING 不存在是否创建对象？解决方法：重建对象列表（rebuild object list）

ag
2017.09.21
2.1K000
文章

SAP ABAP程序中创建透明表

*需求:根据条件在ABAP程序中动态创建透明表,例如按月生成底表存数、优化查询速度. 剩余80%内容付费后可查看本部分为付费内容，支付后可查看 ***尊重付出，互相认可*** 支…

ag
2019.05.05
2.0K000
文章

ABAP弹出一段文本对话框

函数：ADA_POPUP_WITH_TABLE作用：弹出一段文本对话框，可用于显示长篇解释性文字。

ag
2021.02.28
2.1K020
文章

ABAP的structure类型

ABAP的structure类型，根据复杂程度分为FLAT、DEEP和NEST三类，与其他语言类似。

ag
2021.03.29
1.3K000

文章

ABAP性能优化小例子

偶然间翻到一份关于SAP ABAP程序开发性能优化方面的老资料，快速过了一遍，乘着还有点印象练一下手。

*&---------------------------------------------------------------------*
*& Report ZTEST020
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTEST020.

*DATA:T1   TYPE I,
*     T2   TYPE I,
*     TIME TYPE I.
*TABLES:SPFLI.
*GET RUN TIME FIELD T1.
*SELECT * FROM SPFLI WHERE DEPTIME = '150000'.
*ENDSELECT.
*GET RUN TIME FIELD T2.
*TIME = TIME + T2 - T1.
*WRITE:/ TIME.
*CLEAR:T1,T2,TIME.
*ULINE.
*GET RUN TIME FIELD T1.
*SELECT * FROM SPFLI WHERE CARRID = 'LH'
*                      AND CONNID = '0455'. " deptime = '150000'.
*ENDSELECT.
*GET RUN TIME FIELD T2.
*TIME = TIME + T2 - T1.
*WRITE:/ TIME.

TYPES: BEGIN OF TYP_SFLIGHT,
         CARRID TYPE SFLIGHT-CARRID,
         CONNID TYPE SFLIGHT-CONNID,
       END OF TYP_SFLIGHT.
DATA T_SFLIGHT TYPE TABLE OF TYP_SFLIGHT.

*性能优化tips SQL
*1.只查询需要用到的字段，减少传输
*2.使用sum而不是查询出来之后loop汇总
*3.如果条数确定用UP TO 10 ROWS，而不是靠判断SY_DBCNT
*4.无论如何，给一个where条件吧
*5.如果表结构确定，不要使用corresponding，费时间
*6.在ABAP中排序，而不是SQL中用ORDER BY
*7.where条件尽量使用主键字段，而不是其他值字段，尽量避免整表扫描
SELECT CARRID
       CONNID
       SUM( SEATSMAX )
  INTO TABLE T_SFLIGHT
  FROM SFLIGHT
  UP TO 10 ROWS
  WHERE CARRID LIKE 'A%'
  GROUP BY CARRID CONNID.
SORT T_SFLIGHT BY CARRID.

*性能优化tips 程序.
*1.不可避免的要使用多层循环的情况下，用指针存储循环出来的值
*2.使用BINARY SEARCH
*3.使用TRANSPORTING只传输需要的字段，不要用move-corresponding
*4.append/modify/insert/delete操作时尽量用表而不是一行一行的
LOOP AT T_SFLIGHT ASSIGNING FIELD-SYMBOL(<FS1>).
  READ TABLE T_SFLIGHT
  INTO DATA(WA_SFLLIGHT)
  WITH KEY CARRID = 'AA' BINARY SEARCH
  TRANSPORTING CARRID CONNID.

  WRITE : / WA_SFLLIGHT-CARRID, WA_SFLLIGHT-CONNID.
  CLEAR WA_SFLLIGHT.

ENDLOOP.

*&---------------------------------------------------------------------*

*& Report ZTEST020

*&---------------------------------------------------------------------*

REPORT ZTEST020.

*DATA:T1 TYPE I,

* T2 TYPE I,

* TIME TYPE I.

*TABLES:SPFLI.

*GET RUN TIME FIELD T1.

*SELECT * FROM SPFLI WHERE DEPTIME = '150000'.

*ENDSELECT.

*GET RUN TIME FIELD T2.

*TIME = TIME + T2 - T1.

*WRITE:/ TIME.

*CLEAR:T1,T2,TIME.

*ULINE.

*GET RUN TIME FIELD T1.

*SELECT * FROM SPFLI WHERE CARRID = 'LH'

* AND CONNID = '0455'. " deptime = '150000'.

*ENDSELECT.

*GET RUN TIME FIELD T2.

*TIME = TIME + T2 - T1.

*WRITE:/ TIME.

TYPES: BEGIN OF TYP_SFLIGHT,

CARRID TYPE SFLIGHT-CARRID,

CONNID TYPE SFLIGHT-CONNID,

END OF TYP_SFLIGHT.

DATA T_SFLIGHT TYPE TABLE OF TYP_SFLIGHT.

*性能优化tips SQL

*1.只查询需要用到的字段，减少传输

*2.使用sum而不是查询出来之后loop汇总

*3.如果条数确定用UP TO 10 ROWS，而不是靠判断SY_DBCNT

*4.无论如何，给一个where条件吧

*5.如果表结构确定，不要使用corresponding，费时间

*6.在ABAP中排序，而不是SQL中用ORDER BY

*7.where条件尽量使用主键字段，而不是其他值字段，尽量避免整表扫描

SELECT CARRID

CONNID

SUM( SEATSMAX )

INTO TABLE T_SFLIGHT

FROM SFLIGHT

UP TO 10 ROWS

WHERE CARRID LIKE 'A%'

GROUP BY CARRID CONNID.

SORT T_SFLIGHT BY CARRID.

*性能优化tips 程序.

*1.不可避免的要使用多层循环的情况下，用指针存储循环出来的值

*2.使用BINARY SEARCH

*3.使用TRANSPORTING只传输需要的字段，不要用move-corresponding

*4.append/modify/insert/delete操作时尽量用表而不是一行一行的

LOOP AT T_SFLIGHT ASSIGNING FIELD-SYMBOL(<FS1>).

READ TABLE T_SFLIGHT

INTO DATA(WA_SFLLIGHT)

WITH KEY CARRID = 'AA' BINARY SEARCH

TRANSPORTING CARRID CONNID.

WRITE : / WA_SFLLIGHT-CARRID, WA_SFLLIGHT-CONNID.

CLEAR WA_SFLLIGHT.

ENDLOOP.

2020.09.24

900000

文章

ABAP 7.5之数据结构巩固

ABAP Data Dictionary章节知识点复习总结。

ag
2021.03.29
1.2K020
文章

ABAP显示源代码函数

某些时候我们可能需要点击按钮直接查看ABAP源代码或者借用include文件写一些说明文档等。通过点击按钮显示ABAP源代码，可用函数EDITOR_PROGRAM，对于函数需要给…

ag
2021.09.17
919000

文章

ABAP判断字串是不是为数字

通过abap函数NUMERIC_CHECK判断字符串是否为数字

判断字串是否为数字并输出补零
　　FM：NUMERIC_CHECK
　　两种输出结果：NUMC 、CHAR
　　L_SAKNR = I_FICHERO-LINEA+L_POS(10).
　　CALL FUNCTION 'NUMERIC_CHECK'
　　EXPORTING
　　STRING_IN = L_SAKNR
　　IMPORTING
　　HTYPE     = L_TIPO.
　　IF L_SAKNR > '0000000000' AND L_SAKNR <= '9999999999'
　　AND L_TIPO = 'NUMC'.
　　V_SAKNR = L_SAKNR.
　　补获系统异常方法：
　　REPORT  ZSDR014.
DATA:A TYPE I,
     B TYPE C LENGTH 20,
     ERROR TYPE REF TO CX_ROOT,
     MESSAGE TYPE STRING.
B = '8.050'.

TRY .
    A = B.
    MESSAGE '无异常情况' TYPE 'E'.
  CATCH CX_SY_CONVERSION_NO_NUMBER INTO ERROR.

MESSAGE = ERROR->GET_LONGTEXT( ).
MESSAGE MESSAGE TYPE 'E'.
ENDTRY.

判断字串是否为数字并输出补零

　　FM：NUMERIC_CHECK

　　两种输出结果：NUMC 、CHAR

　　L_SAKNR = I_FICHERO-LINEA+L_POS(10).

　　CALL FUNCTION 'NUMERIC_CHECK'

　　EXPORTING

　　STRING_IN = L_SAKNR

　　IMPORTING

　　HTYPE = L_TIPO.

　　IF L_SAKNR > '0000000000' AND L_SAKNR <= '9999999999'

　　AND L_TIPO = 'NUMC'.

　　V_SAKNR = L_SAKNR.

　　补获系统异常方法：

　　REPORT ZSDR014.

DATA:A TYPE I,

B TYPE C LENGTH 20,

ERROR TYPE REF TO CX_ROOT,

MESSAGE TYPE STRING.

B = '8.050'.

TRY .

A = B.

MESSAGE '无异常情况' TYPE 'E'.

CATCH CX_SY_CONVERSION_NO_NUMBER INTO ERROR.

MESSAGE = ERROR->GET_LONGTEXT( ).

MESSAGE MESSAGE TYPE 'E'.

ENDTRY.

2017.05.20

3.6K000

文章

ABAP Tips and Tricks

ABAP Tips and Tricks Retrieving the deleted program I recently deleted a custom program (w…

ag
2017.05.03
2.3K500
文章

modify数据库表时注意数据结构要一致

前几天小伙伴说MODIFY透明表突然失效了，SUBRC为0但是数据没进数据库，程序用了好多年了，最近只是加了个复选框，没做其他改动。写法大致如下，运行完后SY-DBCNT等于内表…

ag
2021.07.22
1.0K000

发表评论

登录后才能评论

评论列表（1条）

ag 2017.05.03 22:48

相关表：TRDIR ，TAPLT

回复

SAP ABAP程序类型

相关文章

发表评论

评论列表（1条）