$onText
step 0: data extraction from database
execute as: > gams SQLSr0 save=s0
$offText

$callTool win32.msappavail Access
$if errorlevel 1 $abort.noError "No Access available"

Set
   i 'suppliers'
   j 'demand centers';

Parameter
   demand(j)
   supply(i)
   dist(i,j) 'distances';

$onEcho > cmd.txt
C=DRIVER=Microsoft Access Driver (*.mdb, *.accdb);dbq=.\Transportation.accdb

Q1=SELECT name FROM suppliers
O1=i.inc

Q2=SELECT name FROM demandcenters
O2=j.inc

Q3=SELECT name, demand FROM demandcenters
O3=demand.inc

Q4=SELECT name, supply FROM suppliers
O4=supply.inc

Q5=SELECT supplier, demandcenter, distance FROM distances
O5=dist.inc
$offEcho

$call sql2gms.exe @cmd.txt > %system.nullfile%
$ifE errorLevel<>0 $abort Error using SQL2GMS!

Set i /
$include i.inc
/;

Set j /
$include j.inc
/;

Parameter demand /
$include demand.inc
/;

Parameter supply /
$include supply.inc
/;

Parameter dist /
$include dist.inc
/;
display i, j, demand, supply, dist;