Sample 2 : List Table overview

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE PROGRAM SYSTEM "http://www.xscript.dk/DTD/xscript.dtd">
<PROGRAM TYPE="MIPRO">
  <MAIN>
    <VAR NAME="NTAB" TYPE="INTEGER"/>
    <VAR NAME="TABNAM" TYPE="STRING"/>
    <VAR NAME="NCOL" TYPE="INTEGER"/>
    <VAR NAME="COLNAM" TYPE="STRING"/>
    <VAR NAME="COLTYP" TYPE="INTEGER"/>
    <VAR NAME="IHELP" TYPE="INTEGER"/>

    <ASSIGN NAME="NTAB" EXPR="NumTables()"/>
    <FOR TO="$NTAB" VAR="I">
        <ASSIGN NAME="TABNAM" EXPR="TableInfo($I,1)"/>
        <PRINT/>
        <IF EXPR="TableInfo($I,5)">
            <THEN>
                <PRINT>Mappable table : $TABNAM</PRINT>
            </THEN>
            <ELSE>
                <PRINT>Alphanumeric table : $TABNAM</PRINT>
            </ELSE>
        </IF>
        <ASSIGN NAME="NCOL" EXPR="TableInfo($TABNAM,4)"/>
        <PRINT>- # of columns: $NCOL</PRINT>
        <FOR TO="$NCOL" VAR="J">
            <ASSIGN NAME="COLNAM" EXPR="ColumnInfo($TABNAM,COL$J,1)"/>
            <ASSIGN NAME="COLTYP" EXPR="ColumnInfo($TABNAM,COL$J,3)"/>
            <SWITCH TEST="$COLTYP">
                <CASE VALUE="1"><!-- char -->
                    <ASSIGN NAME="IHELP" EXPR="ColumnInfo($TABNAM,COL$J,4)"/>
                    <PRINT>- Char column : $COLNAM, length = $IHELP</PRINT>
                </CASE>
                <CASE VALUE="2"><!-- decimal -->
                    <ASSIGN NAME="IHELP" EXPR="ColumnInfo($TABNAM,COL$J,5)"/>
                    <PRINT>- Decimal column : $COLNAM, #decimals = $IHELP</PRINT>
                </CASE>
                <CASE VALUE="3"><PRINT>- Integer column : $COLNAM</PRINT></CASE>
                <CASE VALUE="4"><PRINT>- Smallint column : $COLNAM</PRINT></CASE>
                <CASE VALUE="5"><PRINT>- Date column : $COLNAM</PRINT></CASE>
                <CASE VALUE="6"><PRINT>- Logical column : $COLNAM</PRINT></CASE>
                <CASE VALUE="7"><PRINT>- Graphic column : $COLNAM</PRINT></CASE>
                <CASE VALUE="8"><PRINT>- Float column : $COLNAM</PRINT></CASE>
                <DEFAULT><PRINT>- Unknown type column : $COLNAM</PRINT></DEFAULT>
            </SWITCH>
        </FOR>
        <UNVAR NAME="J"/>
    </FOR>

    <UNVAR NAME="IHELP"/>
    <UNVAR NAME="NCOL"/>
    <UNVAR NAME="COLNAM"/>
    <UNVAR NAME="COLTYP"/>
    <UNVAR NAME="I"/>
    <UNVAR NAME="NTAB"/>
    <UNVAR NAME="TABNAM"/>
  </MAIN>
</PROGRAM>