Issue with HC JSON response

[shiblydangdang]

Hi

We have an issue with one of our shims that is somehow creating invalid JSON out of HCHOST.DBR. It only happens when logging into a certain company in our software so we think it's data related but no idea what is going on. We have pulled the JSON from the BRIDGE log files as below.

We have three d1 fields and on our main company they return like this.......

{"Position":9,"Value":{"DataType":4,"ElementSize":1,"DecimalPrecision":0,"PassedValue":0.0}},
{"Position":10,"Value":{"DataType":4,"ElementSize":1,"DecimalPrecision":0,"PassedValue":0.0}},
{"Position":11,"Value":{"DataType":1,"PassedValue":"RME"}},
{"Position":12,"Value":{"DataType":4,"ElementSize":1,"DecimalPrecision":0,"PassedValue":1.0}}

As you can see, position 9, 11 and 12 all return with one decimal place. This works fine.

The problem is on the other company, it returns like this......

{"Position":9,"Value":{"DataType":4,"ElementSize":1,"DecimalPrecision":0,"PassedValue":0,0}},
{"Position":10,"Value":{"DataType":4,"ElementSize":1,"DecimalPrecision":0,"PassedValue":0,0}},
{"Position":11,"Value":{"DataType":1,"PassedValue":"BRI"}},
{"Position":12,"Value":{"DataType":4,"ElementSize":1,"DecimalPrecision":0,"PassedValue":1,0}}

Those d1 values are now returning with a comma instead of decimal point so this is breaking the JSON.

I wondered if it's somehow getting the comma as its a European company and we may have formatting somewhere that uses comma instead of decimal point. This could be a red herring and as it's a d1 I don't understand how it's even getting the decimal point. We have debugged the shim on both companies and it always returns a d1 either 0 or 1.

Any ideas where I can start looking please as we are out of ideas?

Thanks

[shiblydangdang]

I've still got no idea why it's putting the comma in, but it seems to be treating it as ImpliedDecimal - DataType 4 even though the Dispatcher is just DecimalField - DataType 2......

        ;;--------------------------------------------------------------------------------
        ;;Argument 9 (REQUIRED OUT userclientaccess d1)
        
        serializer.ArgumentData(9,arg9,FieldDataType.DecimalField,1,0,false)

        ;;--------------------------------------------------------------------------------
        ;;Argument 10 (REQUIRED OUT clientsecuritytype d1)
        
        serializer.ArgumentData(10,arg10,FieldDataType.DecimalField,1,0,false)

        ;;--------------------------------------------------------------------------------
        ;;Argument 11 (REQUIRED OUT department a3)
        
        serializer.ArgumentData(11,%atrim(arg11),FieldDataType.AlphaField,3,0,false)

        ;;--------------------------------------------------------------------------------
        ;;Argument 12 (REQUIRED OUT transportmode d1)
        
        serializer.ArgumentData(12,arg12,FieldDataType.DecimalField,1,0,false)

[shiblydangdang]

I've just changed Argument 9 to this.....

    ;;--------------------------------------------------------------------------------
    ;;Argument 9 (REQUIRED OUT userclientaccess d1)
    
    serializer.ArgumentData(9,arg9,FieldDataType.DecimalField)

and it's getting DataType 2 now but still outputting 1,0 for the value........

,{"Position":9,"Value":{"DataType":2,"PassedValue":1,0}}

[shiblydangdang]

Next attempt is to clear arg9.......

        ;;--------------------------------------------------------------------------------
        ;;Argument 9 (REQUIRED OUT userclientaccess d1)
        clear arg9
        serializer.ArgumentData(9,arg9,FieldDataType.DecimalField,1,0,false)

so its back to DataType 4 but it's now outputting 0,0.......

,{"Position":9,"Value":{"DataType":4,"ElementSize":1,"DecimalPrecision":0,"PassedValue":0,0}}

[shiblydangdang]

This is the method that is writing the 1,0 etc into PassedValue in the JSON.....

    public method ArgumentData, void
        required in argPos, int
        required in value, id
        required in type, FieldDataType
        required in size, int
        required in precision, int
        required in hasBinaryData, boolean
    proc
        jsonWriter.WriteStartObject()
        jsonWriter.WriteNumber("Position", argPos)
        jsonWriter.WriteStartObject("Value")
		
        jsonWriter.WriteNumber("DataType", (i)FieldDataType.ImpliedDecimal)
        jsonWriter.WriteNumber("ElementSize", size)
        jsonWriter.WriteNumber("DecimalPrecision", precision)
        jsonWriter.WriteNumber("PassedValue", value)
        jsonWriter.WriteEndObject()
        jsonWriter.WriteEndObject()
    endmethod

Does anyone know what a data type Synergex.SynergyDE.id is as that is what the value field is defined as?

Thanks