And this requirement to move from an assembled model expansion into the remote parameter list is even documented in the IBM book(s). For example, find the first chapter "Using the Services", section "Macro forms", subsection "Conventional List Form Macros" in any of the Assembler Services Guide books, either unauthorized or authorized. You will see the following sentences: With conventional list form macros, you can use the macro forms as follows: "1. Use the list form of the macro, which expands to the parameter list. Place the list form in the section of your program where you keep non-executable data, such as program constants. Do not code it in the instruction stream of your program. 2. In the instruction stream, code a GETMAIN or a STORAGE macro to obtain some virtual storage. Using the Services 11 3. Code a move character instruction that moves the parameter list from its non-executable position in your program into the virtual storage area that you obtained." There are other sentences in this and other sections. Read them all.
Bill Fairchild Rocket Software -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Rob Scott Sent: Monday, March 19, 2012 9:17 AM To: [email protected] 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: [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 14:07 To: [email protected] 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:[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 ---------------------------------------------------------------------- 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
