Pathmaker Reference Manual

Generated Source Code
Macro Language Example
B–4 067869 Tandem Computers Incorporated
8010-no-more-records.
Move "No more records found" to T9154-advisory-msg-text
Move "E" to T9154-advisory-msg-severity.
8020-read-exact-operation.
Read ORDER-DETAIL-FILE key is ORD-KEY OF ORDER-DETAIL-REC;
Invalid key perform 8020-error-proc.
8020-read-next-start.
Start ORDER-DETAIL-FILE key is greater than ORD-KEY OF
ORDER-DETAIL-REC;
Invalid key perform 8020-bad-start.
8020-read-next-operation.
Read ORDER-DETAIL-FILE next record;
At end perform 8020-no-more-records.
8020-read-approx-start.
Start ORDER-DETAIL-FILE key not less than ORD-KEY OF ORDER-
DETAIL-REC;
Invalid key perform 8020-bad-start.
8020-error-proc.
Move "You must supply a value valid for ORD-KEY" to
T9154-advisory-msg-text
Move "E" to T9154-advisory-msg-severity.
8020-bad-start.
Move "Requested record not found" to
T9154-advisory-msg-text
Move "E" to T9154-advisory-msg-severity.
8020-no-more-records.
Move "No more records found" to T9154-advisory-msg-text
Move "E" to T9154-advisory-msg-severity.
* End user Procedure Division