zoukankan      html  css  js  c++  java
  • 把内表 itab1 的 n1 到 n2 行内容附加到 itab2 内表中去.

    语法:append lines of itab1 [ from n1 ] [ to n2 ] to itab2.

    DATA:BEGIN OF gt_00 OCCURS 0,
            l_01   TYPE i,
            l_02   TYPE i,
            l_03   TYPE i,
          END OF gt_00.

    DATA:gw_00 LIKE LINE OF gt_00.

    DATA:BEGIN OF gt_01 OCCURS 0,
            l_01   TYPE i,
            l_02   TYPE i,
            l_03   TYPE i,
          END OF gt_01.

    DATA:gw_01 LIKE LINE OF gt_01.
    gw_00-l_01 1.
    gw_00-l_02 1.
    gw_00-l_03 1.

    APPEND gw_00 TO gt_00.

    gw_00-l_01 2.
    gw_00-l_02 2.
    gw_00-l_03 2.

    APPEND gw_00 TO gt_00.

    gw_00-l_01 3.
    gw_00-l_02 3.
    gw_00-l_03 3.

    APPEND gw_00 TO gt_00.

    gw_01-l_01 4.
    gw_01-l_02 4.
    gw_01-l_03 4.

    APPEND gw_01 TO gt_01.

    gw_01-l_01 5.
    gw_01-l_02 5.
    gw_01-l_03 5.

    APPEND gw_01 TO gt_01.

    gw_01-l_01 6.
    gw_01-l_02 6.
    gw_01-l_03 6.

    APPEND gw_01 TO gt_01.

    APPEND LINES OF gt_01 FROM TO TO gt_00.

    LOOP AT gt_00 INTO gw_00.
      write:/ gw_00-l_01,
              gw_00-l_02,
              gw_00-l_03.

    ENDLOOP.

    选择屏幕的完整实例

             1           1           1
             2           2           2
             3           3           3
             5           5           5
             6           6           6

  • 相关阅读:
    centos安装docker
    centos 安装nginx遇到的问题
    IntelliJ IDEA 2018.3 永久激活 破解[Windows]
    mysql 8.0.12重置密码
    mysql8.*忘记密码
    CentOS安装Hadoop
    执行 systemctl start firewalld 命令后出现Failed to start firewalld.service: Unit is masked
    Centos操作命令
    解决CentOS7关闭/开启防火墙出现Unit iptables.service failed to load: No such file or directory.
    Java并发Lock接口
  • 原文地址:https://www.cnblogs.com/szfeng/p/3364825.html
Copyright © 2011-2022 走看看