ABAP 内表指针使用

  REPORT  ZCMH11.
TYPE-POOLS: slis.

* Field Catalog for List Viewer Control

DATA: gt_fcat TYPE lvc_t_fcat,
  gh_fcat LIKE LINE OF gt_fcat.

DATA: gt_dyn TYPE REF TO data.
DATA: gh_line TYPE REF TO data.

FIELD-SYMBOLS: <fs_table> TYPE ANY TABLE,
  <fs_line> TYPE ANY,
  <fs_field> TYPE ANY.

*----------------------------------------------------------------------*

* START-OF-SELECTION

*----------------------------------------------------------------------*

START-OF-SELECTION.

* Create Field catalog

  gh_fcat-col_pos = 1.
  gh_fcat-fieldname = 'ID'.
  APPEND gh_fcat TO gt_fcat.

  gh_fcat-col_pos = 2.
  gh_fcat-fieldname = 'NAME'.
  APPEND gh_fcat TO gt_fcat.

* Create Dynamic Data Table

  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = gt_fcat
    IMPORTING
      ep_table        = gt_dyn.

* Create a new Line with the same structure of the table

  ASSIGN gt_dyn->* TO <fs_table>.

  CREATE DATA gh_line LIKE LINE OF <fs_table>.

  ASSIGN gh_line->* TO <fs_line>.

* Fill Data Table

  ASSIGN COMPONENT 1 OF STRUCTURE <fs_line> TO <fs_field>.

  <fs_field> = '001'.

  ASSIGN COMPONENT 2 OF STRUCTURE <fs_line> TO <fs_field>.

  <fs_field> = 'RAY1'.

  INSERT <fs_line> INTO TABLE <fs_table>.
*-----------------

  ASSIGN COMPONENT 1 OF STRUCTURE <fs_line> TO <fs_field>.

  <fs_field> = '002'.

  ASSIGN COMPONENT 2 OF STRUCTURE <fs_line> TO <fs_field>.

  <fs_field> = 'RAY2'.

  INSERT <fs_line> INTO TABLE <fs_table>.
*----------------------
  ASSIGN COMPONENT 1 OF STRUCTURE <fs_line> TO <fs_field>.

  <fs_field> = '003'.

  ASSIGN COMPONENT 2 OF STRUCTURE <fs_line> TO <fs_field>.

  <fs_field> = 'RAY3'.

  INSERT <fs_line> INTO TABLE <fs_table>.
*----------------------------



* Display Data Table
* 修改I内表里编码是 002 的名称
  LOOP AT <fs_table> ASSIGNING <fs_line> .

    ASSIGN COMPONENT 'ID' OF STRUCTURE <fs_line> TO <fs_field>.
    if <fs_field> = '002'.
      ASSIGN COMPONENT 'NAME' OF STRUCTURE <fs_line> TO <fs_field>.
      <fs_field> = 'NAME3'.
    endif.

  ENDLOOP.
* 输出内表数据
LOOP AT <fs_table> ASSIGNING <fs_line> .

      WRITE: / <fs_line>.

  ENDLOOP.


原著地址:http://blog.csdn.net/heng0757/article/details/6701697?locationNum=2&fps=1

已标记关键词 清除标记
【为什么还需要学习C++?】 你是否接触很多语言,但从来没有了解过编程语言的本质? 你是否想成为一名资深开发人员,想开发别人做不了的高性能程序? 你是否经常想要窥探大型企业级开发工程的思路,但苦于没有基础只能望洋兴叹?   那么C++就是你个人能力提升,职业之路进阶的不二之选。 【课程特色】 1.课程共19大章节,239课时内容,涵盖数据结构、函数、类、指针、标准库全部知识体系。 2.带你从知识与思想的层面从0构建C++知识框架,分析大型项目实践思路,为你打下坚实的基础。 3.李宁老师结合4大国外顶级C++著作的精华为大家推出的《征服C++11》课程。 【学完后我将达到什么水平?】 1.对C++的各个知识能够熟练配置、开发、部署; 2.吊打一切关于C++的笔试面试题; 3.面向物联网的“嵌入式”和面向大型化的“分布式”开发,掌握职业钥匙,把握行业先机。 【面向人群】 1.希望一站式快速入门的C++初学者; 2.希望快速学习 C++、掌握编程要义、修炼内功的开发者; 3.有志于挑战更高级的开发项目,成为资深开发的工程师。 【课程设计】 本课程包含3大模块 基础篇 本篇主要讲解c++的基础概念,包含数据类型、运算符等基本语法,数组、指针、字符串等基本词法,循环、函数、类等基本句法等。 进阶篇 本篇主要讲解编程中常用的一些技能,包含类的高级技术、类的继承、编译链接和命名空间等。 提升篇: 本篇可以帮助学员更加高效的进行c++开发,其中包含类型转换、文件操作、异常处理、代码重用等内容。
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页