Pathmaker Reference Manual

Generated Source Code
Macro Language Example
067869 Tandem Computers Incorporated B–3
2000-read-next.
Perform 8010-read-next-start.
If T9154-successful-completion
Perform 8010-read-next-operation
End-if.
Perform 4000-employee-respond.
3000-read-approx.
Perform 8010-read-approx-start.
If T9154-successful-completion
Perform 8010-read-next-operation
End-if.
Perform 4000-employee-respond.
4000-employee-respond.
If T9154-successful-completion
Move employee-2-rec to employee-reply
Move T9154-return-service-reply to T9154-reply-flag
Else
Move T9154-return-advisory-only to T9154-reply-flag
End-if.
8010-read-exact-operation.
Read EMPLOYEE-2-FILE key is EMPNUM OF EMPLOYEE-2-REC;
Invalid key perform 8010-error-proc.
8010-read-next-start.
Start EMPLOYEE-2-FILE key is greater than EMPNUM OF
EMPLOYEE-2-REC;
Invalid key perform 8010-bad-start.
8010-read-next-operation.
Read EMPLOYEE-2-FILE next record;
At end perform 8010-no-more-records.
8010-read-approx-start.
Start EMPLOYEE-2-FILE key not less than EMPNUM OF EMPLOYEE-
2-REC;
Invalid key perform 8010-bad-start.
8010-error-proc.
Move "You must supply a value valid for EMPNUM" to
T9154-advisory-msg-text
Move "E" to T9154-advisory-msg-severity.
8010-bad-start.
Move "Requested record not found" to
T9154-advisory-msg-text
Move "E" to T9154-advisory-msg-severity.