method ResetConfigurations

Description

WATCH OUT: DO NOT RUN THIS METHOD ON ACTIVE ENVIRONMENTS!!!!
This method can be used to reset the configurations after a copy between environments has been done.
Primarily, we reset the start up directories of all the daemons.

Parameters

icDaemonName	input	character
ocMessage	output	character	Message after processing.
oiReturnStatus	output	integer	Return status of the method.

Internal usage

BLF

method TApplication.ExecuteAction

program code (program1/tapplication.p)

/* ================================================================================ */
/* Logging                                                                          */
/* ================================================================================ */
<M-24 run GetLogFileLocation  (output vcLogFile (ocLogFile)) in TApplication>

output to value (vcLogFile) append.
put '':U  skip.
put unformatted string (now) '> ':U
    'TApplication.ResetConfigurations: Start.' skip.
output close.

<Q-6 run DaemonInfoLimited (all) (Read) (NoCache)
   (input 0, (DaemonId)
    input icDaemonName, (DaemonName)
    input '', (DaemonStatus)
    input '', (DaemonStatusDiffersFrom)
    output dataset tqDaemonInfoLimited) in BBaseDaemon >

/* code copied from business.startpersistence */
run StartPersistenceInPool (input {&TARGETPROCEDURE},
                            output vhFcComponent,
                            output viFcReturnSuper).
if viFcReturnSuper < 0
then do :
    assign ocMessage = trim(#T-4'Cannot activate the persistence layer.':120(4389)t-4#)
           oiReturnStatus = -3.
    return.
end.

for each tqDaemonInfoLimited :

    /* ================================================================================ */
    /* Logging                                                                          */
    /* ================================================================================ */
    output to value (vcLogFile) append.
    put unformatted string (now) '> ':U
        'TApplication.ResetConfigurations for daemon= ' tqDaemonInfoLimited.tcDaemonName skip.
    output close.


    assign vcValue = chr(2) + chr(2) + "$ENVROOT/daemons/" + tqDaemonInfoLimited.tcDaemonName + chr(2) + 
                     "$ENVROOT/logs/":U + tqDaemonInfoLimited.tcDaemonName + ".log":U.
    <M-3 run WriteDirect
       (input  'fcDaemon':U (icTableName), 
        input  'for each fcDaemon where fcDaemon.DaemonId = ':U + string(tqDaemonInfoLimited.tiDaemonId) (icPrepare), 
        input  'DaemonLogin,DaemonPassword,DaemonStartDirectory,DaemonLogFile':U (icFieldList), 
        input  'c,c,c,c':U (icFieldListDataTypes), 
        input  vcValue (icAbsolute), 
        input  '' (icIncremental), 
        input  {&TARGETPROCEDURE} (ihClass), 
        input  'ResetConfigurations':U (icUserLogin), 
        output viFcReturnSuper (oiReturnStatus)) in persistence>
    if viFcReturnSuper <> 0
    then do :
         assign oiReturnStatus = VIFCRETURNSUPER
                ocMessage = "Error in tApplication.ResetConfigurations().":U.
         return.
    end.
end.


/* ================================================================================ */
/* Logging                                                                          */
/* ================================================================================ */
output to value (vcLogFile) append.
put unformatted string (now) '> ':U
    'TApplication.ResetConfigurations: Ended (oiReturnStatus= ' oiReturnStatus ', ocMessage= ':U ocMessage ').' skip.
output close.