Pathmaker Programming Guide

Coding Custom Services
Creating Services and Servers
4–34 067868 Tandem Computers Incorporated
Figure 4-9. Custom Server Sample Code (Page 2 of 2)
ELSE
MOVE T9154-RETURN-ADVISORY-ONLY TO T9154-REPLY-FLAG
MOVE “N” TO T9154-TMF-ABORT-FLAG
MOVE “W” TO T9154-ADVISORY-MSG-SEVERITY
MOVE MSG-2 TO T9154-ADVISORY-MSG-TEXT
MOVE 2 TO T9154-REASON-CODE
ENDIF.