. . .
DEFINE VARIABLE next-custnum NO-UNDO LIKE Customer.CustNum. DO FOR syscontrol: DO TRANSACTION: FIND FIRST syscontrol EXCLUSIVE-LOCK. next-custnum = syscontrol.last-cus-num + 1. syscontrol.last-cus-num = next-custnum. END. /* transaction */ RELEASE syscontrol. END. DO TRANSACTION: CREATE Customer. Customer.CustNum = next-custnum. DISPLAY Customer. UPDATE Customer. END. /* transaction */ . . . |
Capability
|
Sequences
|
Control tables
|
Access speed
|
Fast
|
Slow
|
Transaction independent
|
Yes
|
No
|
Guaranteed order
|
Yes
|
No
|
Auto initializing
|
Yes
|
No
|
Auto cycling
|
Yes
|
No
|
Bounds checking
|
Yes
|
No
|
Database limit
|
250 per 1K database block size
|
Field limit
|