• ABAP 指針常用语法


    1 、定义指針 :
    指針的定義主 要有以下語句

    定義任意類型的指針,但是不具備欄位結構(僅僅是一個地址)

      FIELD-SYMBOLS <carrid> TYPE ANY. 

    參考數據庫表定義(這種指針是含有欄位結構的,參考內表同理)

      FIELD-SYMBOLS <sflight> TYPE sflight.
      FIELD-SYMBOLS <sflight> LIKE sflight.

      FIELD-SYMBOLS <sflight> LIKE LINE OF sflight. 

    動態定義具有欄位結構的指針類型 
         DATA: tabname TYPE tabname VALUE 'SFLIGHT' ,

                 dref TYPE REF TO data.
        FIELD-SYMBOLS: <itab> TYPE ANY TABLE.

        CREATE DATA dref TYPE TABLE OF (tabname).
        ASSIGN dref->* TO <itab>. 

    、指 針的分配(常用句法) 
    分 配某個變量給指針 
        
    ASSIGN var TO <field-symbols> 

    分配结构中的某个字段的地址给指针 
      ASSIGN COMPONENT pos OF STRUCTURE struc TO <field-symbols>.

    分配整個內表行給指針(指針必須定義為有欄位結構的類型) 
      READ TABLE itab INDEX/WITH KEY ASSIGNING <field-symbols>.

      LOOP AT itab 
    ASSIGNING  <field-symbols>.
        ENDLOOP. 

    分配类的方法或接口给指针 
      ASSIGN dref->* TO <field-symbols>.

    直 接在SQL語句中分配 
        
    SELECT *

       FROM (tabname) UP TO 20 ROWS
        INTO TABLE <itab>.

    主要应用在以下几个方面:

      1 给一个数据对象分配一个别名,把结构内多层指向的变成一个短长度的

            例<fs>->f 代替  rec1->rec2-r>ec3-......->f

       2 在运行时为一个变长度的字符串设置长度和偏移

       3 在确定运行时设置一个指向数据对象的指针

       4 在运行时动态的采取和变更字段的指针

       5 可以访问结构体的组件指向内表行,不用一个单独的工作区去处理内表

      assign f to <fs>,把字段f放到了<fs>领域中,这个领域<fs>在运行时指向字段f的内容,

      这意味着f的内容的所有改变在<fs中可见.声明这个领域用:fileled-symbols:<fs>.

    与其他语言不同:

      1  在passcal语言用P^ ,在c中用*p,abap没有像这样的特征

      2  在passcal和c语言中定义一个指针指向另一个指针,使让这个指针指向了两一个指针的对象

          而abap中让这个领域指向两一个领域,是这个领域指向了另一个领域的值。

    例:

       FIELD -SYMBOLS: <HSL> , <HSL2> .

    LOOP  AT  IT_TABLE INTO  STR_CLASS.
            STR_ALV-RACCT       = STR_CLASS-RACCT.
            STR_ALV-TXT20_SKAT  = STR_CLASS-TXT20.
            ASSIGN  STR_CLASS-HSL TO  <HSL>.

            DO  16  TIMES .
              POS  = SY-INDEX + 1 .
              ASSIGN  COMPONENT   POS OF  STRUCTURE  <HSL> TO  <HSL2>.
              HSL = HSL + <HSL2>.
            ENDDO .

            IF  STR_CLASS-DRCRK = 'S' .
              STR_ALV-HSL_S = HSL.
            ELSE .
              STR_ALV-HSL_H = HSL.
            ENDIF .

            IF  STR_CLASS-XBILK = 'X' .
              ASSIGN  COMPONENT  1  OF  STRUCTURE  <HSL> TO  <HSL2>.
              STR_ALV-HSLVT = <HSL2>.
              STR_ALV-HSLMT = <HSL2> + STR_ALV-HSL_S - STR_ALV-HSL_H.
            ENDIF .
            COLLECT  STR_ALV INTO  IT_ALV.
            CLEAR  STR_ALV.
            HSL = 0 .
          ENDLOOP .

  • 相关阅读:
    nginx location 语法
    nginx 日志文件
    nginx 配置文件详解
    mysql分区partition
    MySQL跳过密码登录
    min/max优化,count ,group by
    in型子查询陷阱,exists子查询
    explain分析sql效果
    HDU2896 病毒侵袭 —— AC自动机
    二分图之 多重匹配 和 最大权匹配 等总结
  • 原文地址:https://www.cnblogs.com/ruingy/p/3915502.html
Copyright © 2020-2023  润新知