G
Gaetano Herman
Guest
We are using a .pl to compress all our .r code running on a specific appserver. We have now found some issues accessing a few of these programs inside the library.
We seem to notice that only singleton objects have these issues.
Currently we can do a workaround by removing the files from the .pl and putting them in a directory before the .pl.
We are using Progress Version 11.6.3.
These are examples of classes we have found having issues with.
USING Progress.Lang.*.
ROUTINE-LEVEL ON ERROR UNDO, THROW.
CLASS GROUP.prg.rep.Singleton:
DEFINE PRIVATE STATIC VARIABLE Instance AS Singleton NO-UNDO.
/*------------------------------------------------------------------------------
@Purpose : basic private constructor
------------------------------------------------------------------------------*/
CONSTRUCTOR PRIVATE G_PROCOVLSingleton ():
END CONSTRUCTOR.
/*------------------------------------------------------------------------------
@Purpose : get the instance of the class
------------------------------------------------------------------------------*/
METHOD PUBLIC STATIC Singleton GetInstance ():
IF NOT VALID-OBJECT (Instance) THEN
Instance = NEW Singleton().
RETURN Instance.
END METHOD.
END CLASS.
I have removed some vital information from this class as I cannot share company code but this principle is the same between all our issues.
Continue reading...
We seem to notice that only singleton objects have these issues.
Currently we can do a workaround by removing the files from the .pl and putting them in a directory before the .pl.
We are using Progress Version 11.6.3.
These are examples of classes we have found having issues with.
USING Progress.Lang.*.
ROUTINE-LEVEL ON ERROR UNDO, THROW.
CLASS GROUP.prg.rep.Singleton:
DEFINE PRIVATE STATIC VARIABLE Instance AS Singleton NO-UNDO.
/*------------------------------------------------------------------------------
@Purpose : basic private constructor
------------------------------------------------------------------------------*/
CONSTRUCTOR PRIVATE G_PROCOVLSingleton ():
END CONSTRUCTOR.
/*------------------------------------------------------------------------------
@Purpose : get the instance of the class
------------------------------------------------------------------------------*/
METHOD PUBLIC STATIC Singleton GetInstance ():
IF NOT VALID-OBJECT (Instance) THEN
Instance = NEW Singleton().
RETURN Instance.
END METHOD.
END CLASS.
I have removed some vital information from this class as I cannot share company code but this principle is the same between all our issues.
Continue reading...