error (11878) when 'FIELDS(field1 field2)' is added to a FOR EACH during a temp table FILL on an UTF-8 MS SQL dataserver configuration

The source code used to reproduce the error is like:

    DEFINE VARIABLE pcQry AS CHARACTER NO-UNDO.
    DEFINE VARIABLE htt      AS HANDLE NO-UNDO.
    DEFINE VARIABLE hDataSet AS HANDLE NO-UNDO.
    DEFINE VARIABLE hbufTT   AS HANDLE NO-UNDO.
    DEFINE VARIABLE hS       AS HANDLE NO-UNDO.
    DEFINE VARIABLE hds      AS HANDLE NO-UNDO.
    DEFINE VARIABLE hq       AS HANDLE NO-UNDO.
    
    
    //pcQry = "FOR EACH someTable NO-LOCK".        // no error returned when 'FIELDS(someField1 someField2)' is left out
    pcQry = "FOR EACH someTable FIELDS(someField1 someField2) NO-LOCK".
        
    DO ON ERROR UNDO, LEAVE:
        CREATE TEMP-TABLE htt.
        htt:CREATE-LIKE("someTable":U).            /* temp-table LIKE someTable (incl. someField2 X(31840)) */
        htt:TEMP-TABLE-PREPARE("someTableTT":U).
        CREATE DATASET hDataSet.
        hDataSet:ADD-BUFFER(htt:DEFAULT-BUFFER-HANDLE).
        ASSIGN hbufTT = hDataSet:GET-BUFFER-HANDLE(1).

        CREATE BUFFER hS FOR TABLE "someTable":U.
        CREATE QUERY hq.
        hq:ADD-BUFFER(hS).
        hq:QUERY-PREPARE(pcQry).

        CREATE DATA-SOURCE hds.
        hds:QUERY = hq.
        hds:ADD-SOURCE-BUFFER(hS, ?).
        hbufTT:ATTACH-DATA-SOURCE(hds).
        hDataSet:FILL().

        
        CATCH e AS Progress.Lang.Error:
            
               MESSAGE "Error number" e:GetMessageNum(1) ": ~n" e:GetMessage(1)    VIEW-AS ALERT-BOX ERROR BUTTONS OK.   
            // the line above generate an error message popup with the  following error message:
            // Error number 11878:
            // FILL got error 4176 creating record someTableTT. (11878)
            
        END CATCH.
        FINALLY:
            IF VALID-HANDLE(hbufTT)   THEN hbufTT:DETACH-DATA-SOURCE() NO-ERROR.
            IF VALID-HANDLE(hq)       THEN DELETE OBJECT hq       NO-ERROR.
            IF VALID-HANDLE(hds)      THEN DELETE OBJECT hds      NO-ERROR.
            IF VALID-HANDLE(hS)       THEN DELETE OBJECT hS       NO-ERROR.
            IF VALID-HANDLE(hDataSet) THEN DELETE OBJECT hDataSet NO-ERROR.
            IF VALID-HANDLE(htt)      THEN DELETE OBJECT htt      NO-ERROR.
        END FINALLY.
    END.

QUIT.

none at this time

none at this time