I had a very similar task. I used a pair of exits: 20 & 44 if memory serves me. You can use the $SETAFF JES2 macro. I used the pair because I had to pass a data. Not sure I have a soft copy to share; I'll dig around.
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html