| 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 lookup (vcActivityCode,"Delete,ExcludeFromSOD,Permissions") > 0
then do:
<Q-4 assign vlFcQueryRecordsAvailable = SystSODRunning (NoCache) () in BSystem>
if vlFcQueryRecordsAvailable
then do:
/* not a good time to do role maintenance, please wait for SOD to complete */
vcSODMesg = #T-94'SOD activation is still running.':255(537450102)T-94# + " "
+ #T-42'Please wait for the activation to complete before making security changes.':255(408926714)T-42#.
<M-76 run SetMessage
(input vcSODMesg (icMessage),
input '' (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'W' (icType),
input 3 (iiSeverity),
input '' (icRowid),
input 'blf-133259':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BRole>
oiReturnStatus = 1.
end.
end.