Sample 1 : List Table contents

<?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="COLVAL" TYPE="STRING"/>
    <VAR NAME="TEMP" TYPE="STRING"/>

    <ASSIGN NAME="NTAB" EXPR="NumTables()"/>
    <FOR TO="$NTAB" VAR="I">
        <ASSIGN NAME="TABNAM" EXPR="TableInfo($I,1)"/>
        <PRINT/>
        <PRINT>Table : $TABNAM</PRINT>
        <ASSIGN NAME="NCOL" EXPR="TableInfo($TABNAM,4)"/>
        <STATEMENT>Fetch First From $TABNAM</STATEMENT>
        <DO EXPR="not EOT($TABNAM)" TEST="FIRST">
            <ASSIGN NAME="TEMP" EXPR="$TABNAM.RowID"/>
            <PRINT/>
            <PRINT>- RowID = $TEMP</PRINT>
            <FOR TO="$NCOL" VAR="J">
                <ASSIGN NAME="COLNAM" EXPR="ColumnInfo($TABNAM,COL$J,1)"/>
                <ASSIGN NAME="COLVAL" EXPR="$TABNAM.$COLNAM"/>
                <PRINT>-- Column $COLNAM = $COLVAL</PRINT>
            </FOR>
            <UNVAR NAME="J"/>
            <STATEMENT>Fetch Next From $TABNAM</STATEMENT>
        </DO>
        <BREAK/>
    </FOR>
    <PRINT/>

    <UNVAR NAME="I"/>
    <UNVAR NAME="NTAB"/>
    <UNVAR NAME="TABNAM"/>
    <UNVAR NAME="NCOL"/>
    <UNVAR NAME="COLNAM"/>
    <UNVAR NAME="COLVAL"/>
    <UNVAR NAME="TEMP"/>
  </MAIN>
</PROGRAM>