1
|
DEFINE TEMP-TABLE tt NO-UNDO
|
2
|
NAMESPACE-URI "http://goldencode.com/testNamespace"
|
3
|
NAMESPACE-PREFIX "fwdPrefix"
|
4
|
FIELD achar AS CHAR FORMAT "XXXX" INITIAL '99aa' LABEL "char-attr" XML-NODE-NAME 'pk' SERIALIZE-NAME 'char' XML-NODE-TYPE 'attribute'
|
5
|
FIELD aint AS INT FORMAT "99999" INITIAL 1 LABEL "int-attr" XML-DATA-TYPE 'long' XML-NODE-TYPE 'attribute'
|
6
|
FIELD fchar AS CHAR FORMAT "XXXX" INITIAL '99aa' LABEL "char" XML-NODE-NAME 'char-node' SERIALIZE-NAME 'char-field'
|
7
|
FIELD fcharcs AS CHAR FORMAT "XXXX" INITIAL 'aa88' CASE-SENSITIVE LABEL "char-cs"
|
8
|
FIELD fcharext AS CHAR EXTENT 8 INITIAL '99ee' CASE-SENSITIVE LABEL "char-ext" XML-NODE-NAME 'extent-node'
|
9
|
FIELD fdecimal AS DECIMAL FORMAT "->>,>>9.99" HELP 'help' DECIMALS 2 LABEL "decimal" COLUMN-LABEL "decimal-column"
|
10
|
FIELD fint AS INT BGCOLOR 12 DCOLOR 9 FGCOLOR 14 PFCOLOR 16 FONT 1 MOUSE-POINTER 'cross' FORMAT "99999" INITIAL 1 LABEL "int"
|
11
|
FIELD fint1 AS INT INITIAL 1 LABEL "int1" XML-NODE-TYPE 'hidden'
|
12
|
FIELD fint64 AS INT64 FORMAT "99999" INITIAL 4 LABEL "int64" SERIALIZE-NAME 'int64-field'
|
13
|
FIELD fbool AS LOGICAL INITIAL TRUE LABEL "bool" SERIALIZE-NAME 'logical'
|
14
|
FIELD fdate AS DATE INITIAL TODAY LABEL "date"
|
15
|
FIELD fdatetime AS DATETIME INITIAL NOW LABEL "datetime"
|
16
|
FIELD fdatetime-tz AS DATETIME-TZ INITIAL NOW LABEL "datetime-tz"
|
17
|
FIELD fdatetime-tz1 AS DATETIME-TZ INITIAL "10/17/2022 13:47:48.426+03:00" LABEL "datetime-tz1"
|
18
|
FIELD fblob AS BLOB LABEL "blob" COLUMN-LABEL "blob-column"
|
19
|
FIELD fclob1 AS CLOB LABEL "clob1" TTCODEPAGE XML-NODE-TYPE 'hidden'
|
20
|
FIELD fclob2 AS CLOB LABEL "clob2" COLUMN-CODEPAGE 'ibm850'
|
21
|
FIELD frecid AS RECID LABEL "recid"
|
22
|
FIELD fhandle AS HANDLE LABEL "handle"
|
23
|
FIELD fcom-handle AS COM-HANDLE LABEL "com-handle"
|
24
|
FIELD fraw AS RAW
|
25
|
FIELD frowid AS ROWID
|
26
|
FIELD aint1 AS INT FORMAT "99999" INITIAL 1 LABEL "int-attr" XML-NODE-TYPE 'attribute'
|
27
|
INDEX idx1 fchar
|
28
|
INDEX idx2 achar DESC fchar DESC
|
29
|
INDEX idx3 AS UNIQUE fint
|
30
|
.
|
31
|
|
32
|
DEF INPUT PARAM table FOR tt BIND.
|
33
|
DEF INPUT PARAM ml AS CHAR.
|
34
|
DEF VAR l AS LOGICAL NO-UNDO.
|
35
|
DEF VAR fn AS CHAR NO-UNDO.
|
36
|
l = TEMP-TABLE tt:WRITE-XMLSCHEMA('file', 'tt-' + ml + '.xsd', TRUE, 'UTF-8', FALSE, FALSE).
|
37
|
l = TEMP-TABLE tt:WRITE-XML('file', 'tt-' + ml + '.xml', TRUE, 'UTF-8', 'htt-' + ml + '.xsd', FALSE, FALSE, ?, FALSE).
|