D.11.14 TYPE

名前

TYPE -- 新しいデータ型を定義します。

記述形式

TYPE type_name IS ctype

説明

TYPEコマンドは新しいCOBOLの型を定義します。これは宣言セクションにTYPEDEFを記述することと同じです。

ecobpgpgが-cオプション付きで実行された場合にのみこのコマンドは認識されます。

type_nameの項目には自動的にレベル番号01が付加されます。type_nameにレベル番号は不要です。集団項目を定義する場合、従属項目のレベル番号は設定してください。

パラメータ

type_name: 新しい型の名前です。これは有効なCOBOLの型名でなければなりません。

ctype: COBOLの型指定です。(表現形式などの指定も含む)

使用例

EXEC SQL TYPE CUSTOMER IS
    02 NAME PIC X(50) VARYING.
    02 PHONE PIC S9(9) COMP. END-EXEC.

EXEC SQL TYPE CUST-IND IS
    02 NAME_IND PIC S9(4) COMP.
    02 PHONE_IND PIC S9(4) COMP. END-EXEC.

EXEC SQL TYPE INTARRAY IS
    02 INT PIC S9(9) OCCURS 20. END-EXEC.
EXEC SQL TYPE STR IS PIC X(50) VARYING. END-EXEC.
EXEC SQL TYPE STRING IS PIC X(10). END-EXEC.

以下にEXEC SQL TYPEを使用するプログラム例を示します。

EXEC SQL TYPE TT IS
    02 V PIC X(256) VARYING.
    02 I PIC S9(9) COMP. END-EXEC.

EXEC SQL TYPE TT-IND IS
    02 V-IND PIC S9(4) COMP.
    02 I-IND PIC S9(4) COMP. END-EXEC.

EXEC SQL BEGIN DECLARE SECTION END-EXEC.
    01 T TYPE TT.
    01 T-IND TYPE TT-IND.
EXEC SQL END DECLARE SECTION END-EXEC.

    EXEC SQL CONNECT TO testdb AS con1 END-EXEC.

    EXEC SQL SELECT current_database(), 256 INTO :T :T-IND LIMIT 1 END-EXEC.

    DISPLAY "t.v = " ARR OF V OF T.
    DISPLAY "t.i = " I OF T.

    DISPLAY "t_ind.v_ind = " V-IND OF T-IND.
    DISPLAY "t_ind.i_ind = " I-IND OF T-IND.

    EXEC SQL DISCONNECT con1 END-EXEC.

互換性

TYPEコマンドはPostgreSQLの拡張です。