method SODViolations

report procedure

Parameters

icLanguageCode	input	character
tFilter	input	temp-table
dcrSODViolations	output	dataset
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program/bsodreport.p)

<ANCESTOR-CODE>

for each tSODViolationsResources break by tSODViolationsResources.tcResourceURI:

    if first-of (tSODViolationsResources.tcResourceURI)
    then do:
        <Q-83 run MenuDetailByURI (all) (Read) (NoCache)
           (input tSODViolationsResources.tcResourceURI, (Uri)
            output dataset tqMenuDetailByURI) in BMfgMenu >
    end.
    
    vlFcOk = yes.
    for each tqMenuDetailByURI where tqMenuDetailByURI.tcmnd_uri = tSODViolationsResources.tcResourceURI:
        if vlFcOk
        then assign tSODViolationsResources.tcResourceNbr        = tqMenuDetailByURI.tcmnd_nbr + "." + string(tqMenuDetailByURI.timnd_select)
                    vlFcOk                                       = no.
        else do:
            create bSODViolationsResources.
            assign bSODViolationsResources.tc_Rowid              = tSODViolationsResources.tc_Rowid
                   bSODViolationsResources.ti_Sequence           = tSODViolationsResources.ti_Sequence
                   bSODViolationsResources.tiRule                = tSODViolationsResources.tiRule
                   bSODViolationsResources.tcResourceLabel       = tSODViolationsResources.tcResourceLabel
                   bSODViolationsResources.tcResourceURI         = tSODViolationsResources.tcResourceURI
                   bSODViolationsResources.tcResourceNbr         = tqMenuDetailByURI.tcmnd_nbr + "." + string(tqMenuDetailByURI.timnd_select).
            release bSODViolationsResources.
        end.
    end.
end.