home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
listings
/
v_08_06
/
8n06084a
< prev
next >
Wrap
Text File
|
1990-03-14
|
508b
|
18 lines
─────────────────────────────────────────────────────────────────────────
Sample INFORMIX-4GL program (Fig. 1)
main
define contact_no integer
declare label_cur cursor for
select * from contact
order by last_name, first_name
foreach label_cur into label_rec.*
let contact_no = contact_no + 1
display "Name: ", label_rec.first_name, label_rec.last_name
end foreach
display "Found ", contact_no, "records."
end main