home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l360 / 3.ddi / TICTAC.@EM / TTDEMO.CMD < prev   
Encoding:
Text File  |  1991-05-24  |  7.6 KB  |  146 lines
  1. echo off
  2. rem    Batch File to Compile, Link and Run the TICTAC demonstration program.
  3. rem    This batch file can be run from your OS/2 prompt. If you specify the
  4. rem    "animate" parameter to the batch file then the TICTAC program will be
  5. rem    compiled and then ANIMATED.
  6. cls
  7. echo .
  8. echo     *------------------* TICTAC demonstration program *-------------------*
  9. echo     *                                                                     *
  10. echo     * Please ensure that you have followed the installation instructions  *
  11. echo     * for COBOL, which are found in the COBOL/2 Getting Started manual.   *
  12. echo     * This means that you have included the directory containing          *
  13. echo     * containing your COBOL Compiler on your OS/2 PATH and you            *
  14. echo     * will have set up the COBDIR environment variable to also include    *
  15. echo     * the COBOL Compiler directory.                                       *
  16. echo     *                                                                     *
  17. echo     * Press Ctrl+C to exit if you have NOT properly installed your        *
  18. echo     * COBOL Compiler, or copied the required files.                       *
  19. echo     *                                                                     *
  20. echo     *---------------------------------------------------------------------*
  21. echo .
  22. pause
  23. if not exist TICTAC.CBL goto errtic
  24. :cobret
  25. if %1. == animate. goto doanim
  26. if %1. == ANIMATE. goto doanim
  27. cls
  28. echo     *---------------------------------------------------------------------*
  29. echo     *          Compiling the TICTAC demonstration program                 *
  30. echo     *---------------------------------------------------------------------*
  31. echo on
  32. COBOL TICTAC.CBL;
  33. echo off
  34. if errorlevel 1 goto nocob
  35. echo     *---------------------------------------------------------------------*
  36. echo     *                Compiling successfully completed                     *
  37. echo     *---------------------------------------------------------------------*
  38. pause
  39. cls
  40. echo     *---------------------------------------------------------------------*
  41. echo     *                   Linking the TICTAC program                        *
  42. echo     *                                                                     *
  43. echo     *  Notice inclusion of ADIS.                                          *
  44. echo     *                                                                     *
  45. if %1. == lcobol. goto ltxtl
  46. if %1. == LCOBOL. goto ltxtl
  47. echo     *  The program will be linked to run with the shared run-time,        *
  48. echo     *  COBLIB. The EXE file created requires the file COBLIB.DLE to be    *
  49. echo     *  present in the COBOL system directories in order to operate.       *
  50. echo     *                                                                     *
  51. echo     *  Restart this batch file with the parameter, LCOBOL, to see the     *
  52. echo     *  program statically linked so that it is independent of any other   *
  53. echo     *  files at run-time. (i.e. enter TTDEMO LCOBOL)                      *
  54. goto ltxte
  55. :ltxtl
  56. echo     *  The program will be statically linked. That is, the COBOL run-time *
  57. echo     *  support required for this program is linked into the EXE file      *
  58. echo     *  making it independent of any other files at run-time.              *
  59. :ltxte
  60. echo     *                                                                     *
  61. echo     *---------------------------------------------------------------------*
  62. if %1. == lcobol. goto linkl
  63. if %1. == LCOBOL. goto linkl
  64. :linkc
  65. echo on
  66. LINK TICTAC+ADIS+ADISKEY+ADISINIT/NOD,,,COBLIB+OS2;
  67. echo off
  68. goto linke
  69. :linkl
  70. echo on
  71. LINK TICTAC+ADIS+ADISKEY+ADISINIT/NOD,,,LCOBOL+OS2;
  72. echo off
  73. :linke
  74. echo off
  75. echo     *---------------------------------------------------------------------*
  76. echo     *                 Linking successfully completed                      *
  77. echo     *---------------------------------------------------------------------*
  78. pause
  79. cls
  80. echo     *---------------------------------------------------------------------*
  81. echo     *                         Running TICTAC                              *
  82. echo     *                                                                     *
  83. echo     *  Can you beat the Program?    It is possible !!                     *
  84. echo     *                                                                     *
  85. echo     *---------------------------------------------------------------------*
  86. echo on
  87. TICTAC
  88. echo off
  89. echo .
  90. cls
  91. echo     *---------------------------------------------------------------------*
  92. echo     *                                                                     *
  93. echo     * Have you tried the COBOL ANIMATOR ?                                 *
  94. echo     *                                                                     *
  95. echo     * For an example of how to get going with the ANIMATOR, rerun this    *
  96. echo     * batch file with the "animate" parameter. That is, type the          *
  97. echo     * following:  "TTDEMO ANIMATE"                                        *
  98. echo     *                                                                     *
  99. echo     *---------------------------------------------------------------------*
  100. echo .
  101. goto endtic
  102. :doanim
  103. cls
  104. echo     *---------------------------------------------------------------------*
  105. echo     *     Compiling the TICTAC demonstration program for Animation        *
  106. echo     *---------------------------------------------------------------------*
  107. echo on
  108. COBOL TICTAC.CBL ANIM;
  109. echo off
  110. if errorlevel 1 goto nocob
  111. echo     *---------------------------------------------------------------------*
  112. echo     *                Compiling successfully completed                     *
  113. echo     *---------------------------------------------------------------------*
  114. pause
  115. cls
  116. echo     *---------------------------------------------------------------------*
  117. echo     *                    Animating the TICTAC program                     *
  118. echo     *---------------------------------------------------------------------*
  119. echo on
  120. ANIMATE TICTAC
  121. echo off
  122. if errorlevel 1 goto nocob
  123. echo     *---------------------------------------------------------------------*
  124. echo     *                Animating successfully completed                     *
  125. echo     *---------------------------------------------------------------------*
  126. pause
  127. goto endtic
  128. :nocob
  129. echo     ***********************************************************************
  130. echo     *                                                                     *
  131. echo     * An error occured while running the Compiler. Please ensure that you *
  132. echo     * have installed all the necessary files.                             *
  133. echo     *                                                                     *
  134. echo     ***********************************************************************
  135. :errtic
  136. echo     ***********************************************************************
  137. echo     *                                                                     *
  138. echo     * The TICTAC program is not in the current directory. Either change   *
  139. echo     * directory or copy TICTAC.CBL from your issue disks.                 *
  140. echo     *                                                                     *
  141. echo     ***********************************************************************
  142. :endtic
  143. echo     *---------------------------------------------------------------------*
  144. echo     *                   End of TICTAC Demonstration                       *
  145. echo     *---------------------------------------------------------------------*
  146.