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.