home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / librdb2.zip / REFS.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  512b  |  20 lines
  1. * REFS.CMD - subprogram to list the contents of REFERALS.DBF
  2. * This program issues 80 characters per line with no carraige returns
  3. * or line feeds.  The terminal or printer must perform a line feed
  4. * every 80 characters.
  5.  
  6. erase
  7. select primary
  8. GOTO TOP
  9. ? "Each line is:"
  10. ? "Record number    disk number+filename     description"
  11. ? "(hit any key to continue)"
  12. wait
  13. ?    
  14. DO WHILE .NOT. EOF
  15.    ?? STR(#,3)+" "+STR(DISK,2)+FILE+" "+DESCRIP
  16.    SKIP
  17. ENDDO
  18. ? "(hit any key to continue)"
  19. wait
  20. RETURNO