Project

General

Profile

tt-marshal-accept.p

Igor Skornyakov, 10/26/2022 05:33 AM

Download (360 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', 'E:/marshal-test1/htt-' + ml + '.xsd', TRUE,  'UTF-8', FALSE, FALSE).
6 
l = htt:WRITE-XML('file', 'E:/marshal-test1/htt-' + ml + '.xml', TRUE,  'UTF-8', 'marshal-test/htt-' + ml + '.xsd', FALSE, FALSE, ?, FALSE).