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 [email protected] with the message: INFO IBM-MAIN
