home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / CATLOG / DMASTER.LBR / DELET.CZD / DELET.CMD
OS/2 REXX Batch file  |  2000-06-30  |  3KB  |  88 lines
  1. ******DELET.CMD
  2. ERASE
  3. SET TALK OFF
  4. SET EXACT ON
  5. STOR'Y'TO ANSWER
  6. ERASE
  7. ?' Do not use the COM, ASM, HEX, part of the file name. '
  8. ?
  9. REMA Which file do you want to MARK for deletion?
  10. ?
  11. ACCEPT ' BY YOUR COMMAND' TO FLD
  12. ERASE
  13. STOR !(FLD)TO FLD
  14. REMA PLEASE STAND BY
  15. USE B:FILE INDEX B:FINAME
  16. STOR 0 TO COUNTER
  17. STOR 0 TO LC
  18. ERAS
  19. FIND &FLD
  20. DO WHIL FILE:NAME=FLD
  21. DISP
  22. SKIP
  23. STOR COUNTER + 1 TO COUNTER
  24. STOR LC + 1 TO LC
  25. IF COUNTER > 18
  26. REMA Press any key to continue.
  27. WAIT
  28. ERAS
  29. STOR 0 TO COUNTER
  30. ENDI
  31. ENDD
  32. IF LC = 0
  33. REMARK THE FILE CALLED &FLD DOES NOT EXIST
  34. ?
  35. REMARK PLEASE CHECK YOUR SPELLING.
  36. ?
  37. REMARK Press any key to return to the main menu.
  38. WAIT
  39. RETU
  40. ENDI
  41. GO TOP
  42. ?
  43. ?'Which file do you want to mark for deletion by (RECORD #)?'
  44. ?
  45. ACCEPT'BY YOUR COMMAND' TO RECNO
  46. ERASE
  47. IF &RECNO>0
  48. REMA PLEASE ALLOW TIME FOR A SEARCH
  49. USE B:FILE
  50. DELETE RECORD &RECNO
  51. ERAS
  52. DISP ALL FOR *
  53. ENDI
  54. IF &RECNO<1
  55. ERASE
  56. REMARK RECORD NUMBER MUST BE>1
  57. ?
  58. REMARK Press any key to retry.
  59. WAIT
  60. RETU
  61. ENDI
  62. ?
  63. ACCEPT'Are you sure this is the file to be deleted? (Y/N) 'TO ANSWER
  64. IF !(ANSWER)='Y'
  65. ERASE
  66. SET TALK ON
  67. USE B:FILE
  68. REMARK PACKING MASTER FILE
  69. PACK
  70. ENDI
  71. IF !(ANSWER)='N'
  72. ERASE
  73. REMARK Since you answered NO,let's RECALL the file.
  74. ?
  75. REMARK Press any key to RECALL the file.
  76. WAIT
  77. ERAS
  78. REMA PLEASE STAND BY
  79. USE B:FILE INDEX B:FINAME,B:DISC,B:EXT
  80. RECALL RECORD &RECNO
  81. ENDI
  82. ERAS
  83. REMARK YOU MUST USE OPTION # 8 IF YOU HAVE DELETED ANY RECORDS.
  84. ?
  85. REMARK Press any key to return to the main menu.
  86. WAIT
  87. RETU
  88. # 8 IF YOU HAVE DELETED ANY          21DATATECHNEW                                          21LU3     COM    CCNTS  )ALL     LASM     ,ASM     AUTO    AUTO    gAUTO    6AUTO    @AUTO    AUTO    !AUTO    AUTOST      AUTOST  `AUTOST  )AUXDICT )AUXDICT BACKUP  BACKUP  BACKUP  <BALSHEETBAZCONFIGBAZIC08 BAZIC08 ?BAZIC10 BAZIC10 CBAZIC12     BAZIC12 ;BAZIC14 BAZIC14 'BOTH    sBOTH    vBROKER