home *** CD-ROM | disk | FTP | other *** search
/ Tools en Utilities / CDASS_5.ISO / shell / util / parse260.arj / EXAMPLE.BAT < prev    next >
Encoding:
DOS Batch File  |  1995-01-01  |  3.4 KB  |  96 lines
  1. @ECHO OFF
  2. ECHO OFF
  3.  
  4.   REM  %1   Example number
  5.   REM  %2   [P]lain, [T]race, [L]ookup menu
  6.   REM  %3   Sample file number
  7.  
  8.   IF (%3) == () START
  9.   IF EXIST POM.TRC DEL POM.TRC
  10.  
  11. :MAIN
  12.   GO-MENU EXAMPLE%2.MNU 01%1 GO-MENU.SAV
  13.   IF ERRORLEVEL 10 GOTO QUIT
  14.   IF ERRORLEVEL  6 GOTO TRACE
  15.   IF ERRORLEVEL  5 GOTO OUTPUT
  16.   IF ERRORLEVEL  4 GOTO RUN  
  17.   IF ERRORLEVEL  3 GOTO POMFILE
  18.   IF ERRORLEVEL  2 GOTO INPUT
  19.   IF ERRORLEVEL  1 GOTO DOCU
  20.  
  21. :TRACE
  22.   IF (%2) == (L) GOTO SHOWLOOK
  23.   IF EXIST POM.TRC GOTO EOCKTRC
  24.   CLS
  25.   ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
  26.   ECHO ▐                                                                             ▌
  27.   ECHO ▐  The file POM.TRC was not found.  There are two possible reasons for this:  ▌
  28.   ECHO ▐                                                                             ▌
  29.   ECHO ▐  (1)  You have not yet run the parsing job.                                 ▌
  30.   ECHO ▐                                                                             ▌
  31.   ECHO ▐  (2)  You do not have enough DOS environment space.                         ▌
  32.   ECHO ▐       For details, look up the SET command in your DOS manual.              ▌
  33.   ECHO ▐                                                                             ▌
  34.   ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
  35.   ECHO  
  36.   PAUSE
  37.   GOTO MAIN
  38. :EOCKTRC
  39.   CALL VIEW POM.TRC
  40.   GOTO MAIN
  41.  
  42. :SHOWLOOK
  43.   CALL VIEW EXAMPLE%1.TBL
  44.   GOTO MAIN
  45.  
  46. :OUTPUT
  47.   IF EXIST EXAMPLE%1.LST GOTO EOCKLST
  48.   CLS        
  49.   ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
  50.   ECHO ▐                                                                             ▌
  51.   ECHO ▐       You have to run the parsing job before you can view the output.       ▌
  52.   ECHO ▐                                                                             ▌
  53.   ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
  54.   ECHO  
  55.   PAUSE
  56.   GOTO MAIN
  57. :EOCKLST
  58.   CALL VIEW EXAMPLE%1.LST
  59.   GOTO MAIN
  60.  
  61. :RUN  
  62.   IF (%1) == (3) SET POM=HDRCNTR/TEST
  63.   IF (%1) == (4) SET POM=descrip/price
  64.   POM EXAMPLE%1.POM EXAMPLE%3.TXT EXAMPLE%1.LST
  65.   SET POM=
  66.   IF ERRORLEVEL 1 PAUSE
  67.   GOTO MAIN
  68. :POMFILE
  69.   CALL VIEW EXAMPLE%1.POM
  70.   GOTO MAIN
  71.  
  72. :INPUT
  73.   IF NOT (%1) == (5) GOTO EOWARN5
  74.   CLS                                                                                 
  75.   ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
  76.   ECHO ▐                                                                             ▌
  77.   ECHO ▐   NOTE: Although Parse-O-Matic can "SPLIT" input records of more than 255   ▌
  78.   ECHO ▐   characters, our file viewer has problems with such long lines.   In the   ▌
  79.   ECHO ▐   following display, the input lines are wrapped over more than one line.   ▌
  80.   ECHO ▐   This is a shortcoming of our little file viewer and is not a problem in   ▌
  81.   ECHO ▐   the input data.                                                           ▌
  82.   ECHO ▐                                                                             ▌
  83.   ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
  84.   ECHO  
  85.   PAUSE
  86. :EOWARN5
  87.   CALL VIEW EXAMPLE%3.TXT
  88.   GOTO MAIN
  89.  
  90. :DOCU
  91.   CALL VIEW EXAMPLE%1.INF
  92.   GOTO MAIN
  93.  
  94. :QUIT
  95.   START @ EXAMPLES
  96.