Hi,
I am having problems with following coding generating a re-entrable version of the WTOR below is the relvant code LTORG DEBUG_MESS DC C'THE BASE ADDRESS IS XXXXXXXX ' TBL DC 240X'00' DC C'0123456789ABCDEF' WS_DSECT DSECT D_MSG DS AL2 DS CL29 WORKFLD DS CL9 BASE_ADDR DS XL5 REPLY_AREA DS X REPLY_LEN EQU 1 REPLY_ECB DS F WTO_D_LST WTOR TEXT=(,,,),MF=L WTO_D_LST_LEN EQU *-WTO_D_LST ST R3,BASE_ADDR UNPK WORK_FLD,BASE_ADDR TR WORK_FLD,TBL MVC D_MSG+2(L'DEBUG_MESS),DEBUG_MESS MVC D_MSG+22(8),WORK_FLD MVC D_MSG(2),=AL2(L'DEBUG_MESS) XC WTO_D_LST(WTO_D_LST_LEN),WTO_D_LST WTOR TEXT=(D_MSG,REPLYAREA,REPLY_LEN,REPLY_ECB),MF=(E,WTO_D_L ST) WAIT ECB=REPLY_ECB ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN