method PostTransaction

Description

Actions to take after final commit of the transaction.

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

unused

program code (program/brole.p)

<ANCESTOR-CODE>

/* ================================================================= */
/* Update SOD violations when resources are added to a role          */
/* or when a role is no longer excluded from SOD.                    */
/* ================================================================= */
if vcRolesForSODViolationCheck <> ""
then do viRCount = 1 to num-entries(vcRolesForSODViolationCheck):

    <I-11 {bFcStartAndOpenInstance
         &CLASS                = "BSODViolationRule1"}>
    <M-75 run CheckRule1
       (input  integer (entry(vircount,vcrolesForSODViolationCheck)) (iiRoleID), 
        input  0 (iiSODCategoryID), 
        output viFcReturnSuper (oiReturnStatus)) in BSODViolationRule1>
    <I-55 {bFcCloseAndStopInstance
         &CLASS           = "BSODViolationRule1"}>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.
        
    <I-5 {bFcStartAndOpenInstance
         &CLASS                = "BSODViolationRule2"}>
    <M-6 run CheckRule2
       (input  0 (iiUsrID), 
        input  integer (entry(vircount,vcrolesForSODViolationCheck)) (iiRoleID), 
        input  0 (iiSODCategoryID), 
        input  '' (icUsrLogin), 
        output viFcReturnSuper (oiReturnStatus)) in BSODViolationRule2>
    <I-7 {bFcCloseAndStopInstance
         &CLASS           = "BSODViolationRule2"}>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.
end.

vcRolesForSODViolationCheck = "".