setsppfp crashes with MCH6801
Thomas Raddatz <[email protected]>
| Newsgroups | gmane.comp.lang.as400.mi |
|---|---|
| Message-ID | <[email protected]> |
Hi, I have a program that utilizes setsppfp() to get a pointer to the associated space of a binding directory object. It runs fine on our development box as well as on our production box. The program crashes with MCH6801 on our test box which is another LPAR of our production box. The violation type is 1 = Object domain violation. Both LPARS (production and test) are at security level 30. As far as I know the production LPAR is DBCS and the test LPAR is SBCS. Both LPARs are at PTF level TL05298. This is the code I use: * D pObj S * inz procptr D spcObj S 32767A based(pSpcObj ) * * Resolve system pointer to object C Eval pObj = rslvsp(WLI_BNDDIR : C obj_name : C obj_lib : C AUTH_SPACE ) * * Get space pointer from system pointer C Eval pSpcObj = setsppfp(pObj) * * Since we can not access the data of the associated space * directly, we have to copy it from the system domain to the user domain. * (We do not really want to patch the program to system state. ;-) ) Any help would be greatly appreciated. Regards, Thomas Raddatz. _______________________________________________ This is the MI Programming on the AS400 / iSeries (MI400) mailing list To post a message email: MI400-Zwy7GipZuJhWk0Htik3J/[email protected] To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/mi400 or email: MI400-request-Zwy7GipZuJhWk0Htik3J/[email protected] Before posting, please take a moment to review the archives at http://archive.midrange.com/mi400.