XQALERT1 (113)    ROUTINE (9.8)