project QadFinancials > class BMfgDBConnections > method CheckDBConnections

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


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BCompany.ValidateCompanyCode
method BDomain.ValDomainCode
method BDomain.ValidateComponent


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.