Thanks, everyone. Someone e-mailed me with a beautiful solution. I coded this:
L RF,PSATOLD-PSA(,0) L RF,TCBJSTCB-TCB(,RF) L RF,TCBJPQ-TCB(,RF) MVC NAME,CDNAME-CDENTRY(RF) and it seems to work. David ---------------------------------------------------------------------- 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