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