ABAP③ 型・構文

・型

・基本型

  DATA 変数名   TYPE 型
  DATA myC(20)  TYPE C.    *文字列型(20文字≠20byte)
  DATA myC    TYPE C LENGTH 20. *文字列型(20文字≠20byte)
  DATA myString TYPE STRING.    *文字列型可変長
  DATA myI    TYPE I.    *数値型
  DATA myD    TYPE D.    *数値型(YYYYMMDD)
  DATA myT    TYPE T.    *時刻型(HHMMSS)
  DATA myF    TYPE F.    *小数点型

・初期値付き宣言

  DATA MyString TYPE STRING VALUE ‘aaa’.

・定数

  CONSTANTS CONST_MyString TYPE STRING VALUE ‘aaa’
  CONST_MyString = ‘bbb’ ←エラー

・構造体

  TYPES:
    BEGIN OF TypeId,
      Name TYPE String,
      Old TYPE I,
      Tel TYPE String,
    END OF TypeId.
  TYPES:
    BEGIN OF TypeCompany,
      Id  TYPE TypeId,
      Cd  TYPE I,
    END OF TypeCompany.
  DATA Man TYPE TypeCompany.

  Man-Id-Name = ‘Mr.Cobol’.
  Man-Id-Old = 40.
  Man-Id-Tel = ‘050-0000-0000’.
  Man-Cd = 100.

 *型のインクルード
 TYPES:
  BEGIN OF TypeId,
   Name TYPE String,
   Old TYPE I,
  END OF TypeId,
  BEGIN OF TypeCompany,
   Id  TYPE I.   ←ピリオド
   INCLUDE TypeId. ←ピリオド
  TYPES: ←「TYPES」やり直し
  END OF TypeCompany.
 DATA: Man TYPE TypeCompany.
  Man-Id = 100.
  Man-TypeId-Name = ‘Mr.COBOL’.

・FIELD-SYMBOLS

  *メモリを確保しない変数
  DATA MyChar C VALUE ‘X’.
  FIELD-SYMBOLS: <FS>.
  *<FS>はMyCharと同じメモリ領域を参照する。
  ASSIGN MyChar TO <FS>.

・構文

・IF文

  IF ~.
  ELSEIF ~.
  ELSE.
  ENDIF.

・CASE文

  CASE ~.
    WHEN ~.
    WHEN OTHERS.
  ENDCASE.

・DO文(条件無しLOOP)

  DO ~.
    CONTINUE.
    EXIT.
  ENDDO.

  *3週LOOP
  DO 3 TIMES.
   ~
  ENDDO

・LOOP文

  LOOP AT ~
    EXIT.
  ENDLOOP.

  ※LOOP ~ ENDLOOP中
  *最初の行のみ行われる処理
  AT FIRST.
   ~
  ENDAT.
  *最後の行のみ行われる処理
  AT LAST.
   ~
  ENDAT.

・WHILE文

  WHILE ~.
  ENDWHILE.

コメントを残す

メールアドレスが公開されることはありません。