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.