project BLF > class BDomain > method GetSharedSetTypes
function returns character
Internal usage
BLF
QadFinancials
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.