Project

General

Profile

tt-marshal-accept.p

Igor Skornyakov, 11/01/2022 06:48 AM

Download (316 Bytes)

 
1 
DEF INPUT PARAM table-handle htt.
2 
DEF INPUT PARAM ml AS CHAR.
3 
DEF VAR l AS LOGICAL NO-UNDO.
4 
DEF VAR fn AS CHAR NO-UNDO.
5 
l = htt:WRITE-XMLSCHEMA('file', 'htt-' + ml + '.xsd', TRUE,  'UTF-8', FALSE, FALSE).
6 
l = htt:WRITE-XML('file', 'htt-' + ml + '.xml', TRUE,  'UTF-8', 'htt-' + ml + '.xsd', FALSE, FALSE, ?, FALSE).