HP RPG/XL Programmer's Guide (30318-90001)

3- 55
Columns 54-65 identify MARKET as the TurboIMAGE database that is
used.
Column 66 is L to indicate user-controlled manual locking.
Column 67 is C to specify chained sequential read mode.
4 This line establishes write access to the database.
Columns 54-65 contain LEVEL WRITER to specify write access to
the database.
5 This line identifies the key field for the data set.
Columns 54-65 contain ITEM ACCOUNT-NO to specify that the key
for the data set is ACCOUNT-NO.
6 This line names the data set to be accessed.
Columns 54-65 contain DSNAMEA-ACCOUNT-NO to specify that the
data set is D-ACCOUNTS.
7 This line begins the input record description of the IDACCT
file.
8 This line begins the input record description of the DACCOUNT
file.
9 This line reads the data set, D-ACCOUNTS, randomly.
Columns 18-27 contain ACTNO to specify the key field for reading
the data set.
Columns 28-32 contain CHAIN to specify a chained read operation.
Columns 33-42 specify the name of the TurboIMAGE data set file,
DACCOUNT.
Columns 54-55 contain 80 to turn on indicator 80 when a record
is not found for the account number in D-ACCOUNTS.
Columns 56-57 contain the H0 indicator to avoid a compiler
warning for the CHAIN operation. The end-of-chain indicator has
no meaning since records are accessed randomly.
10 This line locks individual records in the data set, D-ACCOUNTS
(DACCOUNT).
Columns 18-27 contain ACTNO, which contains the key of the
record to lock in DACCOUNT.
Columns 28-32 contain LOCK to specify the lock operation.
Columns 33-42 contain DACCOUNT to identify the data set to lock.
Columns 54-55 contain 10 for the high resulting indicator. An
indicator is required in this field.
Columns 56-57 contain 11 for the low resulting indicator. An
indicator is required in this field.
Columns 58-59 contain 12 for the equal resulting indicator. An
indicator is required in this field.
11 This line specifies that exception output is performed when
indicator 80 is turned on (indicator 80 is turned on when a
record is not found for an account number).