ABAP--新语法--New Keyword in ABAP--第二天--REF VALUE BASE FOR

最新推荐文章于 2024-03-19 14:48:33 发布
最新推荐文章于 2024-03-19 14:48:33 发布
阅读量1.9k 收藏 19
点赞数 5
分类专栏： ABAP新语法 文章标签： sap abap
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_34060435/article/details/117019293
版权

CL_DEMO_OUTPUT=>DISPLAY
PS:自己测试是DISPLAY后的内表不能带表头。

REF
使用 REF 定义引用变量，用来代替 CREATE DATA

*---------------------------------------------------------------------*
*    在使用 REF时，不需要提前声明变量，也不用指定类型，
*      类型默认会与被指向的变量保持一致
*---------------------------------------------------------------------*
TYPES: BEGIN OF TY_MARA,
         MATNR TYPE MARA-MATNR,
         MTART TYPE MARA-MTART,
         MATKL TYPE MARA-MATKL,
         TEXT1 TYPE CHAR50,
       END OF TY_MARA.

DATA(LW_MARA) = VALUE TY_MARA( MATNR = 'MATERIAL-001'
                               MTART = 'FOOD'
                               MATKL = '1010'
                               TEXT1 = 'FIRST' ).

CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LW_MARA ).

DATA(LV_REF) = REF #( LW_MARA ).

CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LW_MARA ).

LV_REF->* = VALUE #( MATNR = 'MATERIAL-002'
                     MTART = 'WATR'
                     MATKL = '1020' ).

CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LW_MARA ).

LV_REF->TEXT1 = 'SECONDE'.

CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LW_MARA ).

在这里插入图片描述

VALUE
新语法中，可以使用 VALUE 作为赋值语句，主要用来为内表、结构、变量等对象赋值

*---------------------------------------------------------------------*
*    参数类型引用同NEW关键字，在VALUE子句中，字段可以分开赋值，
*      也可以使用结构整体赋值，为内表赋值时，
*      需要用小括号将一行的数据包在一起
*---------------------------------------------------------------------*
TYPES: BEGIN OF TY_MARA,
  MATNR TYPE MARA-MATNR,
  MTART TYPE MARA-MTART,
  MATKL TYPE MARA-MATKL,
  TEXT1 TYPE CHAR50,
  END OF TY_MARA.

DATA: LT_MARA TYPE TABLE OF TY_MARA.
DATA(LW_MARA) = VALUE TY_MARA( MATNR = 'MATERIAL-001'
                               MTART = 'FOOD'
                               MATKL = '1020'
                               TEXT1 = 'FIRST material').
CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LW_MARA ).
LT_MARA = VALUE #( ( LW_MARA )
                   ( MATNR = 'MATERIAL-002'
                     MTART = 'FOOD'
                     MATKL = '1020'
                     TEXT1 = 'SECOND material')
                    ).
CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LT_MARA ).

在这里插入图片描述

*---------------------------------------------------------------------*
*    此外，VALUE语句作为结构时，可以直接在特定语句中使用
*---------------------------------------------------------------------*
TYPES: BEGIN OF TY_DATA,
  CHECKBOX TYPE C,
  VALUE(4) TYPE C,
  END OF TY_DATA.
DATA LT_DATA TYPE TABLE OF TY_DATA.
APPEND VALUE #( VALUE = 'TEST' ) TO LT_DATA.

MODIFY LT_DATA FROM VALUE #( CHECKBOX = 'X' ) TRANSPORTING CHECKBOX WHERE CHECKBOX IS INITIAL.
CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LT_DATA ).

在这里插入图片描述

BASE
在使用 VALUE 作为赋值语句时，默认会覆盖原有的数据，通过BASE子句基于原有数据进行赋值

*---------------------------------------------------------------------*
*    在结构赋值语句中使用 BASE 时，原有字段的数据会被保留，
*     但是当在VALUE语句中对同一字段再次赋值时，该字段数据会被覆盖
*---------------------------------------------------------------------*
TYPES: BEGIN OF TY_MARA,
  MATNR TYPE MARA-MATNR,
  MTART TYPE MARA-MTART,
  MATKL TYPE MARA-MATKL,
  TEXT1 TYPE CHAR50,
  END OF TY_MARA.

DATA(LW_MARA) = VALUE TY_MARA( MATNR = 'MATERIAL-001'
                               MTART = 'FOOD' ).
CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LW_MARA ).
LW_MARA = VALUE #( BASE LW_MARA
                   MTART = 'WATR'
                   MATKL = '1020'
                   TEXT1 = 'FIRST material').
CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LW_MARA ).

在这里插入图片描述

*---------------------------------------------------------------------*
*    在内表赋值语句中使用 BASE 时，内表原有的数据会被保留，
*       新增条目会被追加到内表中，效果同 Append Line
*---------------------------------------------------------------------*
DATA LT_MARA TYPE TABLE OF TY_MARA.
LT_MARA = VALUE #( ( LW_MARA ) ).
CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LT_MARA ).
LT_MARA = VALUE #( BASE LT_MARA
                   ( MATNR = 'MATERIAL-002'
                     MTART = 'FOOD'
                     MATKL = '1030'
                     TEXT1 = 'SECOND material' )
                  ).
CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LT_MARA ).

在这里插入图片描述

*---------------------------------------------------------------------*
*  	使用 BASE 语句时，尽量保持前后结构一致，
*     在使用不同的结构时，可能不报错但数据会错位
*---------------------------------------------------------------------*

FOR
在内表赋值语句中，可以使用FOR语句从其他内表中批量引入数据并处理

*---------------------------------------------------------------------*
*    使用FOR语句时，需要为内表定义临时工作区，如LWA_DATA，
*     仅允许在当前语句中使用，赋值过程中会使用到该工作区，
*     但在WHERE条件里，只能直接使用内表的字段名，需要注意的是，
*WHERE后面接的条件语句必须使用小括号包起来，INDEX INTO 定义的临时变量
*可用来记录当前操作行的序列，作用与LOOP语句中的系统变量 SY-TABIX 类似
*---------------------------------------------------------------------*
TYPES: BEGIN OF TY_DATA,
  MATNR TYPE MARA-MATNR,
  MTART TYPE MARA-MTART,
  MATKL TYPE MARA-MATKL,
  TEXT1 TYPE CHAR50,
  END OF TY_DATA.

DATA LT_DATA TYPE TABLE OF TY_DATA.

TYPES: TY_TABLE TYPE TABLE OF TY_DATA WITH DEFAULT KEY.

LT_DATA = VALUE #(
                   ( MATNR = 'MATRIAL-001'
                     MTART = 'WATR'
                     MATKL = '1020'
                     TEXT1 = 'FIRST material' )
                   ( MATNR = 'MATRIAL-002'
                     MTART = 'FOOD'
                     MATKL = '1030'
                     TEXT1 = 'SECOND material' )
                   ( MATNR = 'MATRIAL-003'
                     MTART = 'WATR'
                     MATKL = '1040'
                     TEXT1 = 'THIRD material' )
                  ).
CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LT_DATA ).

DATA(LT_FOR) = VALUE TY_TABLE(
                               FOR LW_DATA IN LT_DATA
                               INDEX INTO LV_INDEX
                               WHERE ( MTART = 'WATR' )
                               ( MATNR = LW_DATA-MATNR
                                 MTART = LW_DATA-MTART
                                 MATKL = CONV #( LV_INDEX )
                                 TEXT1 = LW_DATA-TEXT1 )
                                ).
CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LT_FOR ).

在这里插入图片描述

*---------------------------------------------------------------------*
*  在FOR语句中允许将结构作为整体直接进行赋值，但是结构必须与表行兼容，
*  可以用于从内表中获取特定条件的数据
*---------------------------------------------------------------------*
TYPES: BEGIN OF TY_DATA,
  MATNR TYPE MARA-MATNR,
  MTART TYPE MARA-MTART,
  MATKL TYPE MARA-MATKL,
  TEXT1 TYPE CHAR50,
  END OF TY_DATA.

DATA LT_DATA TYPE TABLE OF TY_DATA.

TYPES: TY_TABLE TYPE TABLE OF TY_DATA WITH DEFAULT KEY.

LT_DATA = VALUE #(
                   ( MATNR = 'MATRIAL-001'
                     MTART = 'WATR'
                     MATKL = '1020'
                     TEXT1 = 'FIRST material' )
                   ( MATNR = 'MATRIAL-002'
                     MTART = 'FOOD'
                     MATKL = '1030'
                     TEXT1 = 'SECOND material' )
                   ( MATNR = 'MATRIAL-003'
                     MTART = 'WATR'
                     MATKL = '1040'
                     TEXT1 = 'THIRD material' )
                  ).
CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LT_DATA ).

DATA(LT_FOR) = VALUE TY_TABLE(
                               FOR LW_DATA IN LT_DATA
                               WHERE ( MTART = 'WATR' )
                               ( LW_DATA )
                              ).
CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LT_FOR ).

在这里插入图片描述

*---------------------------------------------------------------------*
*    如果结构与表行不兼容，可以嵌套使用CORRESPONDING语句进行赋值，
*       如下例（ CORRESPONDING具体用法可参考后续示例 ）
*---------------------------------------------------------------------*
TYPES: BEGIN OF TY_DATA,
  MATNR TYPE MARA-MATNR,
  MTART TYPE MARA-MTART,
  MATKL TYPE MARA-MATKL,
  TEXT1 TYPE CHAR50,
  END OF TY_DATA.

DATA LT_DATA TYPE TABLE OF TY_DATA.

LT_DATA = VALUE #(
                   ( MATNR = 'MATRIAL-001'
                     MTART = 'WATR'
                     MATKL = '1020'
                     TEXT1 = 'FIRST material' )
                   ( MATNR = 'MATRIAL-002'
                     MTART = 'FOOD'
                     MATKL = '1030'
                     TEXT1 = 'SECOND material' )
                   ( MATNR = 'MATRIAL-003'
                     MTART = 'WATR'
                     MATKL = '1040'
                     TEXT1 = 'THIRD material' )
                  ).

TYPES: BEGIN OF TY_DATA_NEW,
  MATNR TYPE MARA-MATNR,
  MATKL TYPE MARA-MATKL,
  END OF TY_DATA_NEW.

TYPES: TY_TABLE_NEW TYPE TABLE OF TY_DATA_NEW WITH DEFAULT KEY.

DATA(LT_FOR) = VALUE TY_TABLE_NEW(
                                    FOR LW_DATA IN LT_DATA
                                    WHERE ( MTART = 'WATR' )
                                    ( CORRESPONDING #( LW_DATA ) )
                                    ).
CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LT_FOR ).

在这里插入图片描述

*---------------------------------------------------------------------*
* 结构字段过多时，一般建议使用整体赋值，如果少部分字段存在特殊的赋值逻辑
* 可嵌套使用VALUE以及BASE语句进行处理，将例1的逻辑转换如下：
*---------------------------------------------------------------------*
TYPES: BEGIN OF TY_DATA,
  MATNR TYPE MARA-MATNR,
  MTART TYPE MARA-MTART,
  MATKL TYPE MARA-MATKL,
  TEXT1 TYPE CHAR50,
  END OF TY_DATA.

DATA LT_DATA TYPE TABLE OF TY_DATA.

TYPES: TY_TABLE TYPE TABLE OF TY_DATA WITH DEFAULT KEY.

LT_DATA = VALUE #(
                   ( MATNR = 'MATRIAL-001'
                     MTART = 'WATR'
                     MATKL = '1020'
                     TEXT1 = 'FIRST material' )
                   ( MATNR = 'MATRIAL-002'
                     MTART = 'FOOD'
                     MATKL = '1030'
                     TEXT1 = 'SECOND material' )
                   ( MATNR = 'MATRIAL-003'
                     MTART = 'WATR'
                     MATKL = '1040'
                     TEXT1 = 'THIRD material' )
                  ).

DATA(LT_FOR) = VALUE TY_TABLE(
                                FOR LW_DATA IN LT_DATA
                                INDEX INTO LV_INDEX
                                WHERE ( MTART = 'WATR' )
                                ( VALUE #( BASE LW_DATA
                                           MATKL = CONV #( LV_INDEX ) ) )
                              ).
CALL METHOD CL_DEMO_OUTPUT=>DISPLAY( LT_FOR ).

在这里插入图片描述

尤其是十月的风
关注
  • 5
    点赞
  • 踩
  • 19
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
ABAP-Swagger:使用Swaggeropenapi规范公开ABAP REST服务
05-18
昂首阔步 公开ABAP REST服务的方法 用法 1：使用公共方法在ABAP中开发课程 2：实现接口ZIF_SWAG_HANDLER，并注册公共方法（示例 ） 3：现在可以通过rest访问这些方法（） 4：可以通过REST服务的基本目录中的swagger.html访问 安装和要求 通过安装 需要本地JSON支持，请参阅或SAP注释1648418
ABAP751 ABAP - Keyword Documentation
10-23
ABAP - Keyword Documentation This documentation describes the syntax and meaning of the keywords of the ABAP language and its object-oriented part ABAP Objects. Alongside this, language frameworks and the associated system classes are also described. ABAP - Overview An introduction to ABAP and the most important umbrella topics. ABAP Dictionary A complete description of the most important objects for ABAP from ABAP Dictionary. ABAP - Reference A complete description of all ABAP keywords in their relevant context. ABAP - Quick Reference A short overview of all statements, ordered alphabetically. ABAP - Release-Specific Changes List of all changes and enhancements made to ABAP since Release 3.0 ABAP - Programming Guidelines Rules and hints on using ABAP. ABAP - Security Notes Overview of all potential security risks in ABAP programs. ABAP - Glossary Terms in the ABAP environment, and their explanations. ABAP - Index Alphabetical index of all language elements. ABAP - Keyword Directory Alphabetical keyword directory for searching by topic.
内表-ABAP开发从入门到精通笔记
最新发布
Dillon Oracle博客
03-19 925
如果不带表头，清除的是表体，如果想清除带表头的内表的表体，则应该写成clear itab[].参考全局，是系统中现在已经有的表，是用type关键字，并且确定是否带表头，以及是否存在索引。这里需要注意的在sorted表，insert数据后，使用index读取数据的时候，则是按照insert的顺序进行读取的。带表头的内表：clear itab 只删除表头，如果要删除带表头的表体，要使用[] clear itab[].*这里比较有意思，index 2 ，还是读的是第二个插入的数据，并不是第一个。
ABAP 7.4新特性(三)： VALUE 操作符
热门推荐
Huiyang的博客
06-06 1万+
关于VALUE前面也提到过了，其主要是用来给一个结构、内表等对象初始化值。主要有下面三个方式： ...value dtype\#()  构造一个任意类型的初始值 ...value dtype\#( comp1 = a1 comp2 = a2 ....) 构造一个任意类型的结构体的初始值 ...value dtype\#( ( ...) (...) ... )...  构造一个任意类型的内表的
ABAP VALUE用法
weixin_44911062的博客
11-23 3958
总结一下最近常用的VALUE用法： DATA: BEGIN OF line1, col1 TYPE i, col2 TYPE i, col3 TYPE i, col4 TYPE i, END OF line1, itab1 LIKE TABLE OF line1, itab2 LIKE TABLE OF line1. " 直接给内表赋值 itab1 = VALUE #( ( col1 = 41 col2 = 42 col3 = 43 col4 = 44
ABAP7.40 版 新语法总结
IT小职员
01-10 1891
ABAP7.40 版 新语法总结。熟悉新版本语法可以大大提高编码效率。
ABAP新语法
DSHEmperor的专栏
09-15 3695
值1,2,...表示第一，第二，事件。-1，-2，...表示最后一个，倒数第二个，...。SELECT内表可以对内表使用SQL的语法，例如，取内表某一列的最大值，就可以直接MAX，无需排序后, 读第一行，需要APPEND itab_a表 TO itab_b表时，单a表字段与b表字段数量不一致时，可以使用。使用此语法可以省去READ，直接读取指定行号的数据, 但需要判断gt_data是否有指定index行, 需要CATCH异常CX_SY_ITAB_LINE_NOT_FOUND异常, 会直接DUMP.
abap-advent-2020:abap-advent-2020
04-19
abap-advent-2020-template 2020的-ABAP模板让我们用困难的方式做吧！ 通过在运行的ABAP先决条件已安装NodeJS 12 无需ABAP系统但是，要使ABAP在Node中运行需要大量的耐心，这将涉及对javascript和打字稿代码的调试！...
ABAP-Library:有用的ABAP代码段
05-29
ABAP库 该存储库代表我的个人可重用ABAP代码库。 随意使用或贡献！ 为了组织起见，文件位于干净的子文件夹中。 这里的许多类还表示示例实现。 这些文件都不包含任何公司特定的功能逻辑-因此没有“机密”被泄露。 ...
abap新手资料-[sapscript编程指南-].doc
07-13
abap新手资料-[sapscript编程指南-].docabap新手资料-[sapscript编程指南-].docabap新手资料-[sapscript编程指南-].docabap新手资料-[sapscript编程指南-].docabap新手资料-[sapscript编程指南-].docabap新手资料-...
Web-Dynpro-for-ABAP开发讲解v2.0PPT文档.pptx
11-14
Web-Dynpro-for-ABAP开发讲解v2.0PPT文档.pptx
ABAP新语法.txt
04-22
SAP HANA系统的查询语法有了许多更新，使用新语法能提高查询速度，特别是大数据的。本文档里面的内容放了大量的新语法，欢迎各位下载。
ABAP-Keyword Documentation
abbilglf665483的博客
12-21 227
转载：https://help.sap.com/doc/abapdocu_750_index_htm/7.50/en-US/abenabap.htm ABAP - 关键字文档 本文档描述了ABAP语言及其面向对象的ABAP对象的关键字的语法和含义。除此之外，还描述了语言框架和相关的系统类。 ABAP - 概述ABAP简介和最重要的总括主题。 ABAP字典...
SAP ABAP 新语法
刘欣的CSDN博客
10-08 1486
何喜在国庆节分享的SQL新语法自动加0： SQL新语法自动减0： REPORT ZJAMES_20211008. *SELECT MATNR , LPAD( SERNR , 18 , '0' ) AS A * * FROM OBJK * * INTO TABLE @DATA(LT_OBJK). SELECT MATNR , LTRIM( SERNR , '0' ) AS SERNR FROM OBJK INTO TABLE @DATA(LT_OBJK...
matinal：SAP ABAP 7.40及以上新语法VALUE&REDUCE&FILTER的用法实战
matinal 當冬夜漸暖 。公众号：matinal
09-28 976
直接在功能中使用这些关键字。
ABAP关键字详解（超级全面）
Li958172829的博客
06-01 4010
ABAP关键字详解（超级全面）
ABAP 新语法--新关键字
qq_44826887的博客
05-18 6024
SAP 新语法
【ABAP新语法】
yi_er12的博客
07-27 529
ABAP新语法
abap-bc400_zh
02-04
BC400是SAP ABAP开发的一门高级课程，涵盖了许多与ABAP编程相关的重要主题。在这门课程中，学员将学习如何使用ABAP进行开发，包括ABAP环境的概述、ABAP编程语言的基础知识、ABAP数据字典和程序调试等。 BC400课程以...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值