×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
With the help of Charles and Mark I've updated the command.
Here is the new version.
http://code.midrange.com/fcaba19fa2.html
This version creates the command "RCLACTGRPE".
It also registers Change Exit Program (RCL00ACL) for command QSYS/RCLACTGRP.
QIBM_QCA_CHG_COMMAND exit point.
The exit point scans the command string for "ELIGIBLE" and, if it's found, changes the command to RCLACTGRPE.
Also, the CPP was updated to use QCAPCMD to trigger 'QSYS/RCLACTGRP' instead of calling the QSYS/QWVCCDLA directly.
Mark pointed out that QSYS/RCLACTGRP runs with "*SYSTEM" state. And if the system value QSECURITY is set to > 30 then the program would immediately get MCH6801.
MCH6801 Object domain or storage protection error for offset in object QWVCCDLA.
Mark's suggestion was to use QCMDEXC or QCAPCMD to trigger the QSYS version of the command.
I chose to use QCAPCMD because it allows the error to be passed back, and allows me to resend it from within my CPP.
It appears to be working, but please point out any issues you may see.
Chris Hiebert
Senior Programmer/Analyst
Disclaimer: Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.
midrange.com
