What error are you getting? On Mon, 19 Mar 2012 10:07:18 -0400 Micheal Butz <michealb...@optonline.net> wrote:
:>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 -- Binyamin Dissen <bdis...@dissensoftware.com> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
