home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
dirs
/
contact_384.lzh
/
Contact
/
ARexx
/
getrec.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1990-10-23
|
552b
|
23 lines
/* GetRec.rexx - Demonstrates calling Contact! from ARexx to get a record */
/* Copyright (c) 1990 CMF Software. Written by Craig Fisher */
/* Add the HyperActive program as a Rexx host at priority 0 */
call addlib 'Contact', 0
/* Tell Contact to go to first address */
call "SELECT FIRST"
call "SELECT NEXT"
SIGNAL ON ERROR
call "GET"
say "Line1 is: " line1
say "Line2 is: " line2
say "Line3 is: " line3
say "Line4 is: " line4
say "Line5 is: " line5
say "Line6 is: " line6
say "Line7 is: " line7
say "Phone1 is: " phone1
say "Phone2 is: " phone2