home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / autobk2.zip / BMMenu.CMD < prev    next >
OS/2 REXX Batch file  |  1995-07-28  |  2KB  |  75 lines
  1. /*******************************************************/
  2. /* Set error traps to force clean up on failures       */
  3. /*******************************************************/
  4. Signal On Failure Name CLEANUP
  5. Signal On Halt Name CLEANUP
  6. Signal On Syntax Name CLEANUP
  7.  
  8. /*******************************************************/
  9. /*  Initialize Visual REXX button values               */
  10. /*******************************************************/
  11. Ok         = 1
  12. Cancel     = 2
  13. OkOrCancel = 3
  14. Yes        = 4
  15. No         = 5
  16. YesOrNo    = 6
  17.  
  18. /*******************************************************/
  19. /*  Set up a conditional loop.                         */
  20. /*******************************************************/
  21. eoj = 0
  22. Do Until eoj
  23.  
  24. /*******************************************************/
  25. /*  Initialize Visual REXX environment                 */
  26. /*******************************************************/
  27.    Call RxFuncAdd 'VInit', 'VREXX', 'VINIT'
  28.    initcode = VInit()
  29.    If initcode = 'ERROR' Then
  30.       signal CLEANUP
  31.    Call VDialogPos 50, 50 /* All dialog boxes centered */
  32.  
  33. /*******************************************************/
  34. /*  Allow the user to select which BackMaster Function */
  35. /*  to execute this time around.                       */
  36. /*******************************************************/
  37.    type.0 = 5
  38.    type.1 = 'Full Backup of all partitions'
  39.    type.2 = 'Incremental Backup of all partitions  '
  40.    type.3 = 'Quick Erase Cartridges'
  41.    type.4 = 'Format Cartridges'
  42.    type.5 = 'Display BackMaster Log'
  43.    choice = VRadioBox('Select Backup Type', type, OkOrCancel)
  44.    Call VExit
  45.    If choice = 'OK' Then
  46.       Do
  47.          Select
  48.             When type.vstring = type.1 Then
  49.                Do
  50.                   Call FullBkup
  51.                   eoj = 1
  52.                End
  53.             When type.vstring = type.2 Then
  54.                Do
  55.                   Call IncrBkup
  56.                   eoj = 1
  57.                End
  58.             When type.vstring = type.3 Then
  59.                Call ZapTapes
  60.             When type.vstring = type.4 Then
  61.                Call TpFormat
  62.             When type.vstring = type.5 Then
  63.                Call BMLog
  64.             Otherwise
  65.                Nop
  66.          End
  67.       End
  68.    Else
  69.       eoj = 1
  70. End
  71. Exit
  72. CLEANUP:
  73.    Call VExit
  74.    Exit
  75.