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. |
<I-1 {bFcRun &PARAMETERS = "input icDataList, input icValueList, output oiReturnStatus" &PROCEDURE = "gipr_SetPublicData"}> if can-do(icDataList, "vcActivityCode") then do: if viTransactionID <> 0 and vcFcComponentName <> "transaction" then do: <I-2 {bFcOpenInstance &CLASS = "Transaction"}> <M-3 run SetPublicData (input 'vcActivityCode' (icDataList), input (if vcactivityCode = '' then '' else 'MENU|' + vcfccomponentName + '|' + vcactivityCode) (icValueList), output viFcReturnSuper (oiReturnStatus)) in Transaction> <I-4 {bFcCloseInstance &CLASS = "Transaction"}> end. end. if can-do(icDataList, "vcCustomComponent") and vcFcComponentName = "BCustom" then assign vcFcComponentName = vcFcComponentName + "[" + entry(lookup("vcCustomComponent", icDataList), icValueList, chr(3)) + "]".