home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug104.arc / MENU.LBR / MUSE.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  130 lines
  1. *
  2. *  muse.cmd
  3. *
  4. *  Glenn Story - 6/11/83
  5. *
  6. *  This command file will select the data base to use
  7. *
  8. set talk off
  9. store '        ' to cur:file
  10. store '        ' to cur:index
  11. store '                                         ' to cur:fields
  12. store f to got:index
  13. do while (cur:file = ' ') .or. (.not. got:index)
  14.   set intensity off
  15.   do muse1
  16.   set intensity on
  17.   if cur:file = '?'
  18.     erase
  19.     list files
  20.     wait
  21.     loop
  22.   endif
  23.   if cur:index = '?'
  24.     erase
  25.     list files like *.ndx
  26.     wait
  27.     loop
  28.   endif
  29.   if cur:fields = '?'
  30.     erase
  31.     use &cur:file
  32.     list structure
  33.     wait
  34.     store f to got:index
  35.     loop
  36.   endif
  37.   if cur:file = ' '
  38.     @ 20,10 say "Data base name not specified"
  39.     store '        ' to cur:file
  40.   else
  41.     if .not. file (cur:file)
  42.       @ 20,10 say "Data base name not found on disk"
  43.       store '        ' to cur:file
  44.     endif
  45.   endif
  46.   store t to got:index
  47.   if (cur:index # ' ') .and. (cur:fields # ' ')
  48.     @ 21,10 say "Don't specify both index name and index fields"
  49.     store f to got:index
  50.   endif
  51.   if (cur:index # ' ')
  52.     store trim (cur:index) + '.ndx' to index:file
  53.     if .not. file (index:file)
  54.         @ 22,10 say "Specified index file is not on disk"
  55.         store f to got:index
  56.     endif
  57.   endif
  58.   if (cur:file = ' ') .or. (.not. got:index)
  59.     wait
  60.   endif
  61. enddo
  62. if cur:index = ' '
  63.   use &cur:file
  64.   if cur:fields # ' '
  65.     index on &cur:fields to temp
  66.   endif
  67. else
  68.   use &cur:file index &cur:index
  69. endif
  70. ey
  71.   if (*) .or. (#=0)
  72.     loop
  73.   endif
  74. *
  75.   do case
  76.     case type='M'
  77.       store id to cur:name
  78.       loop
  79.     case tye file &cur:file
  80. rename temp to &cur:file
  81. *
  82. CASE MAINT:CMD = "MADD"
  83. *
  84. do muse
  85. append
  86. *
  87. CASE MAINT:CMD = "MBROWSE"
  88. *
  89. do muse
  90. browse
  91. *
  92. CASE MAINT:CMD = 'MCOM'
  93. *
  94. erase
  95. modify command
  96. *
  97. CASE MAINT:CMD = 'MCREATE'
  98. *
  99. set intensity on
  100. accept "Enter data base name: " to cur:file
  101. create &cur:file
  102. set intensity off
  103. use &cur:file
  104. do mindex
  105. *
  106. CASE MAINT:CMD = 'MDELETE'
  107. ndex name and index fields"
  108.     store f to got:index
  109.   endif
  110.   if (cur:index # ' ')
  111.     store trim (cur:index) + '.ndx' to index:file
  112.     if .not. file (index:file)
  113.         @ 22,10 say "Specified index file is not on disk"
  114.         store f to got:index
  115.     endif
  116.   endif
  117.   if (cur:file = ' ') .or. (.not. got:index)
  118.     wait
  119.   endif
  120. enddo
  121. if cur:index = ' '
  122.   use &cur:file
  123.   if cur:fields # ' '
  124.     index on &cur:fields to temp
  125.   endif
  126. else
  127.   use &cur:file index &cur:index
  128. endif
  129. ey
  130.