project BLF > class BRole > method SetPublicData

Description

Procedure for updating the value of public data items, except temp-tables and datasets.


Parameters


icDataListinputcharacterComma seperated list of public data item names to set (full name, including prefix).
Data items with extent and temp-tables are not supported.
icValueListinputcharacterchr(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
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program/brole.p)

<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.