WTO is one of those services that you must prime the parameter list with a
model before you use the MF=E form
Example :
MVC WA_WTO_PLIST,LC_WTO Prime WTO plist with model
WTO blah,MF=(E,WA_WTO_PLIST)
...
...
*-------------------
* Local constants
*-------------------
DS 0F
LC_WTO WTO blah,MF=L Model plist in LTORG area
l...@wto_len EQU *-LC_WTO Length of plist
...
...
*-----------------
*Workarea Storage
*-----------------
WA DSECT
....
WA_WTO_PLIST DS XL(l...@wto_len)
Rob Scott
Lead Developer
Rocket Software
275 Grove Street * Newton, MA 02466-2272 * USA
Tel: +1.617.614.2305
Email: [email protected]
Web: www.rocketsoftware.com
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of
Charles Mills
Sent: 02 November 2010 13:32
To: [email protected]
Subject: WTO ABEND D23 help
I'm trying to do a multi-line WTO, potentially with a CART and a CONSID.
(CART and CONSID are zeros in this test, because I am testing in batch.) I
have followed *very* closely the example in the Authorized Assembler
Services Guide Section 7-12, "Assembler example with CMDX control block,
multi-line WTO." No matter what I do I get a D23 ABEND on the first WTO. The
reason code is 05010008. That is documented as The caller supplied an
incorrect parameter list structure. Here are possible reasons: - WPX length
was not correct. - WQEBLK parameter was specified with an incorrect WPL. -
Zero address was specified for the WPL.
There is a field in the WTO MF=L commented as "WPX length." It assembles as
104=x'68' and it's still x'68' in the dump. I don't find "WQEBLK" or "WPL"
in the listing.
I've looked at the MF=E macro expansion and it seems to be storing the CART
address and the CONSID in the right place in the MF=L. The text pointer is
correct (16 bit length + text).
What else should I be looking for?
Charles Mills
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
