home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p058 / 1.img / SYS.PAK / ACADLIB.BAT next >
Encoding:
DOS Batch File  |  1990-03-05  |  1.1 KB  |  43 lines
  1. ECHO OFF
  2. CLS
  3. IF NOT EXIST %3\AttrTran.LST GOTO DONTUPDT
  4.    IF EXIST %3\AttrData.DAT GOTO DONTCREAT
  5.       %2\BL\System\AttrUpdt -c -e %3\AttrData <%3\AttrTran.LST
  6.       GOTO DONEUPDT
  7.    :DONTCREAT
  8.       %2\BL\System\AttrUpdt -e %3\AttrData <%3\AttrTran.LST
  9. :DONEUPDT
  10. DEL %3\AttrTran.LST >nul
  11. :DONTUPDT
  12. IF NOT EXIST %3\AttrData.DAT GOTO NOATTS
  13.    IF NOT %1==E GOTO NOTEDIT
  14.       %2\BL\System\AttrEdit -b %4 %3\AttrData
  15.       GOTO COMPLETE
  16.    :NOTEDIT
  17.    IF NOT %1==S GOTO NOTSELE
  18.       %2\BL\System\AttrSele -b %4 -s %2\BL\System\AttrPick %3\AttrData
  19.       GOTO COMPLETE
  20.    :NOTSELE
  21.    IF NOT %1==P GOTO NOTPRIN
  22.       %2\BL\System\AttrPrin -a %3\AttrData >%4
  23.       GOTO COMPLETE
  24.    :NOTPRIN
  25.    IF NOT %1==U GOTO NOTUPDT
  26.       GOTO COMPLETE
  27.    :NOTUPDT
  28.       CLS
  29.       ECHO Incorrect option selected during Attribute Management
  30.       PAUSE
  31.       GOTO COMPLETE
  32. :CORRUPT
  33.       CLS
  34.       ECHO Program exit shows corrupt attribute database.
  35.       ECHO Error: Please restore backup Attribute files.
  36.       PAUSE
  37.       GOTO COMPLETE
  38. :NOATTS
  39.    CLS
  40.    ECHO No Attribute file to edit
  41.    PAUSE
  42. :COMPLETE
  43.