My initial look is that you need to modify and implement the exit EMSELGNX. You may need to use EMSEADEX.
-- John G. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN