CVS difference for 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