Description
This method is part of the SetPublicTables flow.
When executed, data in the input class tables (prefix t_s) is validated and found correct, and copied into the class tables (prefix t_o).
This method can be extended to do updates that do not require a validation or that involve running business methods of other business classes. These classes should be started with ADD-TO-TRANSACTION = 'true'. Also make sure to add these classes in method StopExternalInstances.
Parameters
oiReturnStatus | output | integer | |
Internal usage
BLF
program code (program/bresource.p)
<ANCESTOR-CODE>
for each tResources where
tResources.ResourceURI begins "urn:gencodegroup:" and
tResources.tc_Status = "N" on error undo, throw:
vcRsIDs = vcRsIDs + "," + string(tResources.Resource_ID).
vcRsURIs = vcRsURIs + "," + tResources.ResourceURI.
end.
if vcRsIDs <> ""
then do:
<I-2 {bFcAddToTransaction
&CLASS = "BRole"}>
<M-57 run AddGenCodeGroupToRoles
(input substring (vcRsIDs,2,-1,'CHARACTER') (icResourceIDs),
input substring (vcRsURIs,2,-1,'CHARACTER') (icResourceURIs),
output viFcReturnSuper (oiReturnStatus)) in BRole>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then do:
<I-27 {bFcCloseAndStopInstance
&CLASS = "BRole"}>
return.
end.
end.