HP DDL D40 Reference Manual page 137

Definition Attributes
SQL-Nullable Output for TACL. The following example shows how DDL translates
definitions and descriptions of SQL-nullable items into TACL source code:
DDL Type
DEF B SQLNULLABLE.
02 name
02 nickname
02 salary
02 hire-date
02 subordinate TYPE SQL VARCHAR 15
END.
SQL-Nullable Output for pTAL and TAL. The following example shows how DDL
translates definitions and descriptions of SQL-nullable items into pTAL or TAL
source code:
DDL Type
DEF B SQLNULLABLE.
02 name
02 nickname
02 salary
02 hire-date
02 subordinate TYPE SQL VARCHAR 15
END.
Data Definition Language (DDL) Reference Manual—426798-002
PIC X(25)
NOT SQLNULLABLE.
PIC X(10)
VALUE SQLNULL.
TYPE BINARY
NOT SQLNULLABLE.
TYPE SQL DATE
NOT SQLNULLABLE.
OCCURS 10 TIMES.
PIC X(25)
NOT SQLNULLABLE.
PIC X(10)
VALUE SQLNULL.
TYPE BINARY
NOT SQLNULLABLE.
TYPE SQL DATE
NOT SQLNULLABLE.
OCCURS 10 TIMES.
6- 43
TACL Type
?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;
STRUCT SUBORDINATE(0:9);
Begin
INT INDICATOR;
STRUCT VALU;
Begin
INT LEN;
STRUCT VAL;
BEGIN CHAR BYTE(0:14); END;
End;
FILLER 1;
End;
End;
pTAL or TAL Type
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;
STRUCT SUBORDINATE[1:10];
BEGIN
INT INDICATOR;
STRUCT VALU;
BEGIN
INT LEN;
STRING VAL[1:15];
END;
FILLER 1;
END;
END;
SQLNULLABLE Clause