* CXB40090.CBL
      * 
      *                         Grant of Unlimited Rights
      *
      * Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
      * F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained 
      * unlimited rights in the software and documentation contained herein.
      * Unlimited rights are defined in DFAR 252.227-7013(a)(19).  By making 
      * this public release, the Government intends to confer upon all 
      * recipients unlimited rights  equal to those held by the Government.  
      * These rights include rights to use, duplicate, release or disclose the 
      * released technical data and computer software in whole or in part, in 
      * any manner and for any purpose whatsoever, and to have or permit others 
      * to do so.
      *
      *                                DISCLAIMER
      *
      * ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
      * DISCLOSED ARE AS IS.  THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED 
      * WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE
      * SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE 
      * OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
      * PARTICULAR PURPOSE OF SAID MATERIAL.
      *
      * PROCEDURE NAME:  CXB40090   ("Initialize")
      *
      * PROCEDURE DESCRIPTION:
      *      This COBOL procedure has no parameters.  It is designed to 
      *      display its name on the printer (or whatever device DISPLAY
      *      is currently mapped to).
      *
      * INPUTS:
      *      None. 
      *
      * PROCESSING:
      *      A check is performed to determine whether the display is
      *      mapped currently to the printer.  If so, the program name is 
      *      displayed on the printer.  Otherwise, the program name is sent
      *      to the console.
      *
      * OUTPUTS:
      *      None. 
      *
      * 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.

      * This program will simply display its name on the printer
      * or whatever device DISPLAY is mapped to. It has no parameters 
      * and therefore the LINKAGE SECTION may be omitted.
      *
      *
      *               GENERAL COMMENTS ON COBOL
      * COBOL is column based. Division names, section names, Data
      * Division 01 level storage areas and Procedure Division
      * paragraph names must start in column 8.
      *
      * Data Division 02 - 49 level storage areas start in column 12,
      * as do Procedure Division sentences. Indentation is permitted
      * between columns 12 and 70.
      *
      * It is best not to use columns 1 - 6 and 71 - 80.
      * An asterisk (*) in column 7 indicates a comment entry.
      * Blank lines are acceptable for readability, just as in Ada.
      * Use CAPITAL letters. Newer versions of the language support
      * mixed case. Older versions and certain platforms may not.

       ENVIRONMENT DIVISION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

      * All local variables are listed in the Working-Storage Section.
      * Recommend using only 01 levels because COBOL will boundary
      * align binary values, as needed and due to the simplicity of
      * these programs.

       01  PROGRAM-NAME          PIC X(8)   VALUE 'CXB40090'.
       01  DISPLAY-OPTION        PIC X      VALUE 'C'.
           88  ON-PRINTER                      VALUE 'P'.
           88  ON-CONSOLE                      VALUE 'C'.
           88  IS-DECLINED                     VALUE 'N'.

       LINKAGE SECTION.

      * All passed variables are listed in the Linkage Section. The
      * Linkage Section is only present if there are parameters
      * passed into or out of the COBOL program. Recommend using only
      * 01 levels in the Linkage Section, unless record passing is
      * being tested. All 01 levels in the Linkage Section must be
      * named in the USING clause of the Procedure Division statement.
      *
      * These examples support parameter passing by reference. 

       PROCEDURE DIVISION.
       MAIN.

           DISPLAY PROGRAM-NAME

           EXIT PROGRAM.