Thanks worked
WTO_D_CON WTOR TEXT=(,REPLYAREA,REPLY_LEN,REPLY_ECB),MF=L model statement WTO_D_CON_LEN EQU *-WTO_D_CON Followed by WTOR TEXT=D_MSG,MF=(E,WTO_D_LST) -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Rob Scott Sent: Monday, March 19, 2012 10:17 AM To: IBM-MAIN@bama.ua.edu Subject: Re: WTOR problem I do not think so. There could well be parameter list contents that are not set during MF=E logic that are primed by MF=L. Just because you specify all possible parameters does not mean that WTOR/WTO MF=E will generate a fully constructed parameter list. It is a historical thing - and developers just have to put up with it and use the "move the model in" technique. Be warned - there are other macros like this around. Rob Scott Lead Developer Rocket Software 275 Grove Street * Newton, MA 02466-2272 * USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Micheal Butz Sent: 19 March 2012 14:07 To: IBM-MAIN@bama.ua.edu Subject: Re: WTOR problem 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:IBM-MAIN@bama.ua.edu] On Behalf Of Rob Scott Sent: Monday, March 19, 2012 8:52 AM To: IBM-MAIN@bama.ua.edu 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: rsc...@rs.com Web: www.rocketsoftware.com -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Micheal Butz Sent: 19 March 2012 12:45 To: IBM-MAIN@bama.ua.edu 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 lists...@bama.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
