Consultor Eletrônico



Kbase P135600: How do I tell what AppServer a startup procedure is running on?
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   31/03/2009
Status: Verified

GOAL:

How do I tell what AppServer a startup procedure is running on?

FACT(s) (Environment):

OpenEdge 10.x
All Supported Operating Systems

FIX:

The following code, when placed in a .p and specified as the Startup Procedure in an AppServer configuration (in Progress Explorer) will dump out the actual name of the AppServer as defined in Progress Explorer) to the AppServer server log file:

/* DoStart.p -- AppServer Startup Procedure to Find Name of AppServer (as Defined in Progress Explorer) */ define input parameter x as character no-undo. define variable vLoop as integer no-undo.
define variable vEntry as character no-undo. do vLoop = 1 to num-entries(session:startup-parameters):
assign vEntry = trim(entry(vLoop,session:startup-parameters)).
if index(vEntry,'-logname') > 0 then
do:
message entry(2,vEntry,' ') view-as alert-box. /* AppServer Name */
return.
end.
end.