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

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

DDL Compiler Commands
Data Definition Language (DDL) Reference Manual — 426798-002
9- 57
EXPANDC Command
def c type a. typedef a_def c_def; typedef char c_def[10];
#pragma fieldalign shared2
__d
def d type b. typedef b_def d_def; typedef struct __d
short b1;
char b2[10];
struct
{
short b31;
char b32[10];
} b3[5];
} d_def;
def e.
2 e1 type c.
2 e2 type d
Occurs 15 times.
end.
#pragma fieldalign shared2 __e
typedef struct __e
{
c_def e1;
d_def e2[15];
} e_def;
#pragma fieldalign shared2
__e
typedef struct __e
{
char e1[10];
struct
{
short b1;
char b2[10];
struct
{
short b31;
char b32[10];
} b3[5];
} e2[15];
} e_def;
def f.
2 f1 pic x(100).
2 f2 redefines f1.
3 f3 type b.
3 f4 pic x(10).
end.
#pragma fieldalign shared2 __f
typedef struct __f
{
union
{
char f1[100];
struct
{
b_def f3;
char f4[10];
} f2;
} u_f1;
} f_def;
#pragma fieldalign shared2
__f
typedef struct __f
{
union
{
char f1[100];
struct
{
struct
{
short b1;
char b2[10];
struct
{
short b31;
char b32[10];
} b3[5];
} f3;
char f4[10];
} f2;
} u_f1;
} f_def;