Enscribe Programmer's Guide

ADAMS
BROWN, A
BROWN, B
EVANS
HARTLEY
JONES
KOTTER
RICHARDS
ROGERS
SANFORD
SMITH
MIAMI, FL
REEDLEY, CA
BOSTON, MA
BUTTE, MT
CHICAGO, IL
DALLAS, TX
NEW YORK, NY
MINNEAPOLIS, MN
BOISE, ID
LOS ANGELES, CA
DAYTON, OH
SO
WE
EA
WE
NO
SO
EA
NO
WE
WE
NO
0000.00
0256.95
0301.00
0010.00
0433.29
1234.56
0089.00
0000.00
1024.00
0301.00
0010.00
0500.00
0300.00
1000.00
0100.00
0500.00
2000.00
0500.00
0500.00
1500.00
1000.00
0500.00
Current Position After
KEYPOSITION Call
This sample TAL code shows how to position by the alternate-key value NO within the RG access
path:
! blank the key
key ':=' " ";
key[1] ':=' key FOR name^len - 1 BYTES;
key ':=' "NO";
CALL KEYPOSITION ( cust^filenum, key, "RG");
Successive read calls will then access the unshaded records in this illustration, in the order shown:
Accessing Key-Sequenced Files 89