CVS difference for acats/cxb/cxb40090.cbl

Differences between 1.1 and version 1.2
Log of other versions for file acats/cxb/cxb40090.cbl

--- acats/cxb/cxb40090.cbl	1998/09/26 01:07:23	1.1
+++ acats/cxb/cxb40090.cbl	1998/09/27 03:12:48	1.2
@@ -43,7 +43,8 @@
       * CHANGE HISTORY:
       *    23 Feb 1996   SAIC   Initial release for ACVC 2.1.
       *    10 Jun 1996   SAIC   Incorporated reviewer comments for ACVC 2.1.
-      * 
+      *    26 Jun 1998   EDS    Substituted COBOL code provided by RBK Dewar
+      *                         for original incorrect COBOL code
 
        IDENTIFICATION DIVISION.
        PROGRAM-ID. CXB40090.
@@ -96,10 +97,8 @@
       * These examples support parameter passing by reference. 
 
        PROCEDURE DIVISION.
+       MAIN.
 
-           IF DISPLAY-ON-PRINTER
-               DISPLAY PROGRAM-NAME
-           ELSE IF DISPLAY-ON-CONSOLE
-               DISPLAY PROGRAM-NAME UPON CONSOLE.
+           DISPLAY PROGRAM-NAME
 
            EXIT PROGRAM.

Questions? Ask the ACAA Technical Agent