project BLF > class BDomain > method GetSharedSetTypes

Internal usage

program code (program1/bdomain.p)

if search("appinfo/settypes.r":U) = ? and search("appinfo/settypes.p":U) = ?
then do:
    assign vcMessage = trim(#T-1'Could not find file 'appinfo/settypes.p'.':255(9040)T-1#).    
    <M-2 run SetMessage
       (input  vcMessage (icMessage), 
        input  '' (icArguments), 
        input  '' (icFieldName), 
        input  '' (icFieldValue), 
        input  'S':U (icType), 
        input  3 (iiSeverity), 
        input  '' (icRowid), 
        input  'BLF-69':U (icFcMsgNumber), 
        input  '' (icFcExplanation), 
        input  '' (icFcIdentification), 
        input  '' (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BDomain>
    return ?.
end.

run value("appinfo/settypes.p":U) (input vhFcSuper, output vcListSharedSetTypes).

return vcListSharedSetTypes.