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.