| icDataList | input | character | Comma seperated list of public data item names to set (full name, including prefix). Data items with extent and temp-tables are not supported. |
| icValueList | input | character | chr(3) seperated list of the values to set. Format of the values: decimal = use decimal point, replace comma with a point date = YYYYMMDD logical = true / false |
| oiReturnStatus | output | integer | Return status of the method. |
<ANCESTOR-CODE>
if lookup ("vcActivityCode",icDataList) > 0
and vcActivityCode = "Maintain"
then do:
<Q-6 assign vlFcQueryRecordsAvailable = SystSODRunning (NoCache) () in BSystem>
if vlFcQueryRecordsAvailable
then do:
/* not a good time to do role membership maintenance, please wait for SOD to complete */
vcSODMesg = #T-80'SOD activation is still running.':255(537450102)T-80# + " "
+ #T-54'Please wait for the activation to complete before making security changes.':255(408926714)T-54#.
<M-31 run SetMessage
(input vcSODMesg (icMessage),
input '' (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'W' (icType),
input 3 (iiSeverity),
input '' (icRowid),
input 'blf-396986':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BUserRole>
oiReturnStatus = 1.
end.
end.