home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / SYS / Rexx / GetPage1.IDesk < prev    next >
Text File  |  1995-04-05  |  454b  |  26 lines
  1. /* Reads first n Catalog Entries */
  2.  
  3. /* --------------------- standard startup ----------------------- */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. if( ADDRESS() ~= "IDESK_REXXPORT" ) then
  8.     ADDRESS IDESK_REXXPORT
  9.  
  10. /* -------------------------------------------------------------- */
  11.  
  12. IDGETFILE '"Select catalog file"'
  13. if (RC > 0) then exit
  14.  
  15. filename = RESULT
  16.  
  17. GETSYSINFO DESKSPACE
  18.  
  19. deskspace = RESULT
  20.  
  21. CLEANDESK
  22. if (RC > 0) then exit
  23.  
  24. OPENCAT '"'||filename||'"' 1 deskspace
  25.  
  26.