IMPORT util
MAIN
    DEFINE rec RECORD
             field1 INTEGER,
             field2 CHAR(1),
             subrec1 RECORD
               field11 INTEGER,
               fiedl12 VARCHAR(30)
             END RECORD,
             subarr1 DYNAMIC ARRAY OF INTEGER
           END RECORD
    INITIALIZE rec.* TO NULL
    LET rec.field1 = 999
    LET rec.field2 ='N'
    LET rec.subarr1[3] = 888
    DISPLAY "stringify() : ", util.JSON.stringify(rec)
END MAIN