17 lines
471 B
Plaintext
17 lines
471 B
Plaintext
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 |