Create JSON from struct

Sometimes you have data as a DataFlex struct, but need it in JSON format.

The code below gives an example on how-to change your data format so that it is available as JSON.

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Handle hoJson UChar[] ucaJson Integer iChn tYourDataType tYourStructVar   Get Create (RefClass(cJsonObject)) to hoJson Send DataTypeToJson of hoJson tYourStructVar Get StringifyUTF8 of hoJson to ucaJson Get Seq_New_Channel to iChn Direct_Output channel iChn {filename} Write channel iChn ucaJson Close_Output Send Seq_Release_Channel iChn Send Destroy of hoJson

External Links

The above was written by Mike Peat and has been taken from the following forum post:

• https://support.dataaccess.com/Forums/showthread.php?63071-YAFR-Create-RDS-report-based-on-Struct-definition(s)&p=336276#post336276

• Name meta-data tag