Pathmaker Reference Manual

Generated Source Code
Macro Language Example
B–2 067869 Tandem Computers Incorporated
Move "Requested record not found" to
T9154-advisory-msg-text
Move "E" to T9154-advisory-msg-severity.
$paragraph-num$-no-more-records.
Move "No more records found" to T9154-advisory-msg-text
Move "E" to T9154-advisory-msg-severity.
% END-IF label-300
% END-IF label-200
% END-ITERATE label-100
Generated Source
Code
The following source file includes the source code generated by the macro in the
preceding subsection of this appendix. The macro-generated source code begins at
line 8010.
* Begin user Working-Storage
*
* End user Working-Storage
* Begin user Procedure Division
* Initialize reply
Move spaces to last-name of employee-reply.
Move spaces to first-name of employee-reply.
Move spaces to address of employee-reply.
Move zeroes to empnum of employee-reply.
* Initialize PATHMAKER variables
Move "N" to T9154-tmf-abort-flag.
Move "N" to T9154-advisory-msg-severity.
Move zeros to T9154-reason-code.
Move empnum of employee-request to empnum of employee-2-rec.
If read-exact
Perform 1000-read-exact
Else if read-next
Perform 2000-read-next
Else if read-approx
Perform 3000-read-approx
Else
Move "Invalid request" to T9154-advisory-msg-text
of T9154-reply
Move T9154-return-advisory-only to T9154-reply-flag
End-if
End-if
End-if.
1000-read-exact.
Perform 8010-read-exact-operation.
Perform 4000-employee-respond.