method XmlObjectDetail

Description

This method is called from within the generic code to create an XML representation of a component instance.

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

unused

program code (program/brole.p)

/*fill calculated field tRoleResource.tcResourceURI*/
/*to allow matching on tcResourceURI*/
/*this field is not filled on dataload*/
<Q-1 run ResourcePrim (all) (Read) (NoCache)
   (input ?, (ResourceURI)
    input ?, (ResourceId)
    output dataset tqResourcePrim) in BResource >

for each tRoleResource:
    find first tqResourcePrim where
               tqResourcePrim.tiResource_ID = tRoleResource.Resource_ID no-error.
    if available tqResourcePrim
    then assign tRoleResource.tcResourceURI = tqResourcePrim.tcResourceURI.
    else do:
        delete tRoleResource.
        
        if not vlWarned
        then do:
            vlWarned = yes.
            oiReturnStatus = 1.
            <M-28 run SetMessage
               (input  #T-65'A link was found to an unknown resource.':255(692257927)T-65# + ' ' + #T-12'Invalid data has been removed from the XML output.':255(644969561)T-12# (icMessage), 
                input  '' (icArguments), 
                input  '' (icFieldName), 
                input  '' (icFieldValue), 
                input  'W' (icType), 
                input  3 (iiSeverity), 
                input  '' (icRowid), 
                input  'BLF-480766':U (icFcMsgNumber), 
                input  '' (icFcExplanation), 
                input  '' (icFcIdentification), 
                input  '' (icFcContext), 
                output viFcReturnSuper (oiReturnStatus)) in BRole>
        end.
    end.
end.

<ANCESTOR-CODE>