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

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

DDL Compiler Commands
Data Definition Language (DDL) Reference Manual — 426798-002
9- 10
C Command
the source code to the open C file, $DATA.SALES.CSRC. For the definition of the
CUSTOMER record and the objects it refers to, see
Appendix B, Sample Schemas .
27> DDL
!?DICT
!?C $data.sales.csrc
!OUTPUT CONSTANT custnum-heading.
!OUTPUT DEF custnum zip-cd name addr custinfo.
!OUTPUT RECORD customer.
!EXIT
DDL stores the C source code for the record CUSTOMER and the objects it refers to in
the file
csrc
as follows:
/* SCHEMA PRODUCED DATE - TIME :11/02/1995 14:49:35 */
#pragma section custnum_heading
/* Constant CUSTNUM-HEADING created on 11/02/1995 at 14:37 */
#define CUSTNUM_HEADING "Customer/Number"
#pragma section custnum
/* Definition CUSTNUM created on 11/02/1995 at 14:37 */
typedef char custnum_def[4];
#pragma section zip_cd
/* Definition ZIP-CD created on 11/02/1995 at 14:37 */
typedef char zip_cd_def[5];
#pragma section name
/* Definition NAME created on 11/02/1995 at 14:37 */
#pragma fieldalign shared2 __name
typedef struct
{
char last_name[12];
char first_name[8];
char midinit[2];
} name_def;
#pragma section addr
/* Definition ADDR created on 11/02/1995 at 14:37 */
#pragma fieldalign shared2 __name
typedef struct
{
char address[22];
char city[14];
char state[2];
zip_cd_def zip;
} addr_def;
#pragma section custinfo
/* Definition CUSTINFO created on 11/02/1995 at 14:37 */
typedef struct
{
custnum_def custnum;
name_def custname;
addr_def addr;
} custinfo_def;
#pragma section customer
/* Record CUSTOMER created on 11/02/1995 at 14:37 */
typedef custinfo_def customer_def;