set verify
set default cdd$default

!global fields

define field nummer datatype is longword
initial 0.

define field queue datatype is text size 6
initial "      ".

define field gentx5 datatype is text size 5
initial "     ".


!based_on fields
define field lognummer based on nummer.
define field top_queue based on queue .
define field dependent_queue based on queue .
define field queue_name based on queue .

define field ctrl_field1  description is /*controlfield*/ based on gentx5.
define field ctrl_field2  description is /*controlfield*/ based on gentx5.

define record control_tbl.
ctrl_field1.
ctrl_field2.
end record.

define record move_tbl.
lognummer.
queue_name.
end record.

define record queue_structure_tbl.
top_queue.
dependent_queue.
end record.