Consultor Eletrônico



Kbase P103463: 4GL/ABL: How to suppress the message "The Application Server Service Table has been previously defin
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   26/11/2008
Status: Verified

GOAL:

4GL/ABL: How to suppress the message "The Application Server Service Table has been previously defined."

GOAL:

How to avoid getting the message: "The Application Server Service Table has been previously defined."

FACT(s) (Environment):

All Supported Operating Systems
Progress 9.x
OpenEdge 10.x
OpenEdge Server Technology Category: AppServer

FIX:

Debugging problems arising from customizing the distributed Progress Source code is the responsibility of the developer. Therefore, follow the Progress customization guidelines to minimize the possibility of errors and to facilitate any debugging that may be required at a later date.
To suppress the warning message "The Application Server Service Table has been previously defined.", comment the message statement in the main block of the adecomm\as-utils.w procedure by changing the code:
IF CAN-FIND(FIRST AppSrv-TT) THEN
MESSAGE "The Application Server Service Table has been previously
defined."
VIEW-AS ALERT-BOX ERROR.
ELSE
RUN loadPartitionInfo.
To:
IF CAN-FIND(FIRST AppSrv-TT) THEN
/* MESSAGE "The Application Server Service Table has been previously
defined."
VIEW-AS ALERT-BOX ERROR. */
.
ELSE
RUN loadPartitionInfo.
The above measure will not change the functionality of the underlying code at all. It will only suppress the message. If the service records are not loaded yet into the AppSrv-TT, they will be quietly loaded. If they are already loaded nothing will be done and the code execution will quietly continue as if the error message were issued.