HP DDL D40, Справочное руководство

Страница: 332 / 576

DDL Compiler Commands
Data Definition Language (DDL) Reference Manual — 426798-002
9 -102
TACL Command
For the definition of the CUSTOMER record, see the sample database schema in
Appendix B, Sample Schemas.”
?DICT
?TACL \dallas.$data.sales.taclsrc
OUTPUT RECORD customer.
The TACL source code in TACLSRC follows:
?Section CUSTOMER Struct
Begin
STRUCT CUSTNUM;
BEGIN CHAR BYTE(0:3); END;
STRUCT CUSTNAME;
Begin
STRUCT LAST^NAME;
BEGIN CHAR BYTE(0:11); END;
STRUCT FIRST^NAME;
BEGIN CHAR BYTE(0:7); END;
STRUCT MIDINIT;
BEGIN CHAR BYTE(0:1); END;
End;
STRUCT ADDR;
Begin
STRUCT ADDRESS;
BEGIN CHAR BYTE(0:21); END;
STRUCT CITY;
BEGIN CHAR BYTE(0:13); END;
STRUCT STATE;
BEGIN CHAR BYTE(0:1); END;
STRUCT ZIP;
BEGIN CHAR BYTE(0:4); END;
End;
End;