Description
This method first checks to see if a multi-dB environment exists. If it does then it checks to see if each database defined in the dc_mstr table is currently connected
Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program9/bmfgdbconnections.p)
assign oiReturnStatus = -98.
<Q-1 run MfgDBConnectionsByDBName (all) (Read) (NoCache) (output dataset tqMfgDBConns) in BMfgDBConnections >
for each tqMfgDBConns:
if not connected(tqMfgDBConns.tcdc_name) then do:
assign
oiReturnStatus = -1
vcMessageText = #T-3'Database $1 is not connected.':40(59828)t-3#
.
<M-4 run SetMessage
(input vcMessageText (icMessage),
input tqMfgDBConns.tcdc_name (icArguments),
input 'dc_name':U (icFieldName),
input tqMfgDBConns.tcdc_name (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input tqMfgDBConns.tc_rowid (icRowid),
input 'QadFin-5802':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BMfgDBConnections>
return.
end.
end.
if oiReturnStatus = -98 then
assign oiReturnStatus = 0.