clement-brodu
commented
5 months ago It's because of PCTTextWriter, you have to replace the message by log-manager:write-message
/*------------------------------------------------------------------------
File : PCTTextWriter
Purpose : This file is used to redirect trace from .NET to Openedge
Syntax :
Description :
Author(s) : Clément BRODU
Created :
Notes :
----------------------------------------------------------------------*/
BLOCK-LEVEL ON ERROR UNDO, THROW.
CLASS PCTTextWriter
INHERITS System.IO.TextWriter:
DEFINE PUBLIC OVERRIDE PROPERTY Encoding AS System.Text.Encoding NO-UNDO
GET:
RETURN System.Text.Encoding:UTF8.
END GET.
METHOD PUBLIC OVERRIDE VOID Write (pcCharacter AS CHARACTER):
LOG-MANAGER:WRITE-MESSAGE(pcCharacter). /* will do a WriteLine */
END METHOD.
METHOD PUBLIC OVERRIDE VOID WriteLine ():
LOG-MANAGER:WRITE-MESSAGE("").
END METHOD.
METHOD PUBLIC OVERRIDE VOID WriteLine (pcCharacter AS CHARACTER):
LOG-MANAGER:WRITE-MESSAGE(pcCharacter).
END METHOD.
METHOD PUBLIC OVERRIDE VOID WriteLine (poObject AS System.Object):
IF VALID-OBJECT(poObject) THEN
LOG-MANAGER:WRITE-MESSAGE(poObject:ToString()).
ELSE
LOG-MANAGER:WRITE-MESSAGE("[null object]").
END METHOD.
END CLASS.
gquerret
Here is the test case reproducing the way I'm starting the Catalog task in VSCode: https://github.com/gquerret/PCTTools/commit/793691a38d27f6a3615a286be06acc275fc52a16
However it fails at this line:
Could you tell me what's wrong? I'm sure this is something stupid, but hey, it's Friday afternoon...