Rob,
I understand that however moving the model *statement* would be sufficient
if I coded WTOR MF=(E,WTOR_LIST)
By coding
WTOR TEXT=(D_MSG,REPLYAREA,REPLY_LEN,REPLY_ECB),MF=(E,WTO_D_LX
ST)
With the parameters the macro should populate the parameter list
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Rob Scott
Sent: Monday, March 19, 2012 8:52 AM
To: [email protected]
Subject: Re: WTOR problem
WTOR and WTO are macros that require a model parameter list to be
constructed and populated *before* you issue the MF=E form.
Zeroing the parameter list is NOT sufficient - you must move in a model MF=L
form just before the MF=E invocation.
More modern macros have the ",COMPLETE" option on the MF=E specification,
unfortunately some of the older macros do not have this functionality.
Rob Scott
Lead Developer
Rocket Software
275 Grove Street * Newton, MA 02466-2272 * USA
Tel: +1.781.684.2305
Email: [email protected]
Web: www.rocketsoftware.com
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Micheal Butz
Sent: 19 March 2012 12:45
To: [email protected]
Subject: WTOR problem
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
