Project

General

Profile

tt-marshal-accept.p

Igor Skornyakov, 10/25/2022 12:13 PM

Download (352 Bytes)

 
1 
DEF INPUT PARAM htt AS HANDLE.
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', 'marshal-test/htt-' + ml + '.xsd', TRUE,  'UTF-8', FALSE, FALSE).
6 
l = htt:WRITE-XML('file', 'marshal-test/htt-' + ml + '.xml', TRUE,  'UTF-8', 'marshal-test/htt-' + ml + '.xsd', FALSE, FALSE, ?, FALSE).