|
NAME |
DIM |
20 |
|
ADDRESS |
DIM |
20 |
|
CITY |
DIM |
20 |
|
. |
|
MYBASE |
DBFILE |
|
|
. |
|
ERROR |
DIM |
80 |
|
STATE |
DIM |
10 |
|
NULL |
DIM |
1 |
|
CODE1 |
FORM |
7 |
|
CODE2 |
FORM |
7 |
|
. |
|
RESULT |
INTEGER |
1 |
|
* |
|
. Catch Errors |
|
. |
|
|
TRAP |
DBERR IF DBFAIL |
|
* |
|
. Connect to the Database |
|
. |
|
|
DBCONNECT |
MYBASE,"RemoteDb","Mike","Orange" |
|
* |
|
.Issue the Query |
|
. |
|
|
DBSEND |
MYBASE;"SELECT emp_name, ": |
|
|
|
"emp_addr, emp_city ": |
|
|
|
"FROM employee ": |
|
|
|
"ORDER BY emp_name;" |
|
* |
|
.Execute the Query |
|
. |
|
|
DBEXECUTE |
MYBASE //Execute query |
|
* |
|
.Wait for Query to Complete |
|
. |
|
|
LOOP |
|
|
|
DBSTATE |
MYBASE //Check status of query |
|
|
REPEAT |
WHILE LESS //Wait until finished |
|
* |
|
.Fetch Rows of Data |
|
. |
|
|
LOOP |
|
|
|
DBFETCH |
MYBASE,"-1";NAME,ADDRESS,CITY |
|
|
UNTIL |
OVER |
|
|
DISPLAY |
*HD,*R,NAME,*H=22,ADDRESS,*H=44,CITY; |
|
|
REPEAT |
|
|
* |
|
.Disconnect from the Database |
|
. |
|
|
DBDISCONNECT |
MYBASE |
|
|
STOP |
|
|
* |
|
.Report Errors |
|
. |
|
DBERR |
|
|
|
|
DBERROR |
MYBASE;ERROR,STATE,NULL,CODE1,CODE2 |
|
|
ALERT |
STOP,ERROR,RESULT,"Database Error" |
|
|
STOP |
|
