Hi,

Is it possible to create an XML file in WebFocus.

For Example:

TABLE FILE CAR
PRINT CAR MODEL BODYTYPE SEATS
BY COUNTRY
END

Should generate the following XML file.


<COUNTRY>ENGLAND</COUNTRY>
<CAR>JAGUAR</CAR>
<MODEL>V12XKE AUTO</MODEL>
<SEATS>2</SEATS>

Thanks
Mickey

Just add

ON TABLE PCHOLD FORMAT XML or
ON TABLE HOLD FORMAT XML

That will do it.

Ben

Mickey,

Here is a complete FEX using CAR that returns an XML document:

TABLE FILE CAR
SUM
SALES
BY
COUNTRY
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT XML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='SCREEN',
LEFTMARGIN=0.000000,
RIGHTMARGIN=0.000000,
TOPMARGIN=0.000000,
BOTTOMMARGIN=0.000000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=9,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
RIGHTGAP=0.125000,
TOPGAP=0.013889,
BOTTOMGAP=0.027778,
$
TYPE=TITLE,
STYLE=BOLD,
$
TYPE=TABHEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=TABFOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=HEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=FOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=SUBHEAD,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBFOOT,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBTOTAL,
BACKCOLOR=RGB(210 210 210),
$
TYPE=ACROSSVALUE,
SIZE=9,
$
TYPE=ACROSSTITLE,
STYLE=BOLD,
$
TYPE=GRANDTOTAL,
BACKCOLOR=RGB(210 210 210),
STYLE=BOLD,
$
ENDSTYLE
END

Hope this helps!

bump

is it possible to have the output as clean as mickey asked.

ENGLAND
JAGUAR
V12XKE AUTO
2

pchold as XML, is VERY cluttered... i would love to be able to clean it up to basics.

-Thanks

MZZ,

Of course it is, but not using XML output. You would have to "hand crank" your output -

APP FI MYXML DISK BASEAPP/MYXML.XML
DEFINE FILE CAR
  CRLF/A1 = HEXBYT(10,'A1');
  XML_COUNTRY/A29  = '<country>'||COUNTRY||'</country>';
  XML_CAR/A27      = '<car>'||CAR||'</car>';
  XML_MODEL/A39    = '<model>'||MODEL||'</model>';
  XML_BODYTYPE/A33 = '<bodytype>'||BODYTYPE||'</bodytype>';
END
TABLE FILE CAR
PRINT XML_COUNTRY CRLF
      XML_CAR CRLF
      XML_MODEL CRLF
      XML_BODYTYPE
ON TABLE SAVE AS MYXML
END

Note: Using OVER will make no difference to the output, before you ask that is why I've used an embeded line feed character.

Forgot to mention that you would need to use FTOA, PTOA or EDIT to get the numerics into the alpha output.

T

This message has been edited. Last edited by: Tony A,

Don't forget the XML header and maybe trailer.

I created an RSS feed (which is XML), but used a different approach. As I used maintain (for speed), the pseudo-ish code goes like:

APP FI XMLFILE DISK BASEAPP/XMLFILE.XML
TABLE FILE CAR
PRINT CAR MODEL BODYTYPE SEATS
BY COUNTRY
ON TABLE SAVE
END
-RUN
-WRITE XMLFILE <?xml version="1.0" encoding ="iso-8859-1"?>
-WRITE any other headers you want
-REPEAT BLOCK &LINES TIMES
-READ SAVE &FLD2.10 &FLD2.20 etc.
-WRITE XMLFILE <fieldname1>!IBI.AMP.FLD1;</fieldname1>
-WRITE XMLFILE <fieldname2>!IBI.AMP.FLD2;</fieldname2>
-BLOCK
-WRITE any footers

You could also write the headers, run Tony's code with an APPEND.

Thanks!