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: rsc...@rs.com Web: www.rocketsoftware.com -----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Charles Mills Sent: 02 November 2010 13:32 To: IBM-MAIN@bama.ua.edu 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html