Data Definition Language (DDL) Reference Manual

Definition Attributes
Data Definition Language (DDL) Reference Manual—529431-004
6-44
SQLNULLABLE
Example 6-36. SQL-Nullable Output for Pascal (D-series Systems Only)
DDL Type Pascal Type
DEF B SQLNULLABLE
02 name PIC X(25)
NOT SQLNULLABLE.
02 nickname PIC X(10)
VALUE SQLNULL.
02 salary TYPE BINARY
NOT SQLNULLABLE.
02 hire-date TYPE SQL DATE
NOT SQLNULLABLE.
END.
TYPE B_DEF = RECORD
NAME : FSTRING(25);
NICKNAME : RECORD
INDICATOR : INT16;
VALU : FSTRING(10);
END;
SALARY : INT16;
HIRE_DATE : FSTRING(10);
END;
Example 6-37. SQL-Nullable Output for pTAL or TAL
DDL Type pTAL or TAL Type
DEF B SQLNULLABLE.
02 name PIC X(25)
NOT SQLNULLABLE.
02 nickname PIC X(10)
VALUE SQLNULL.
02 salary TYPE BINARY
NOT SQLNULLABLE.
02 hire-date TYPE SQL DATE
NOT SQLNULLABLE.
END.
STRUCT B^DEF (*) FIELDALIGN
(SHARED2);
BEGIN
STRUCT NAME;
BEGIN STRING BYTE[1:25]; END;
FILLER 1;
STRUCT NICKNAME;
BEGIN
INT INDICATOR;
STRUCT VALU;
BEGIN STRING BYTE[1:10]; END;
END;
INT SALARY
STRUCT HIRE^DATE;
BEGIN STRING BYTE[1:10]; END;
END;
Example 6-38. SQL-Nullable Output for TACL
DDL Type TACL Type
DEF B SQLNULLABLE.
02 name PIC X(25)
NOT SQLNULLABLE.
02 nickname PIC X(10)
VALUE SQLNULL.
02 salary TYPE BINARY
NOT SQLNULLABLE.
02 hire-date TYPE SQL DATE
NOT SQLNULLABLE.
END.
?Section B Struct
Begin
STRUCT NAME;
BEGIN CHAR BYTE(0:24); END;
FILLER 1;
STRUCT NICKNAME;
Begin
INT INDICATOR;
STRUCT VALU;
BEGIN CHAR BYTE(0:9); END;
End;
INT SALARY
STRUCT HIRE^DATE;
BEGIN CHAR BYTE(0:9); END;
End;