Example - the asmcobol.cbl Program

$Set preprocess(preproc)
      ****************************************************************
      * Copyright Micro Focus Limited 1992-93. All Rights Reserved.  *
      * This demonstration program is provided for use by users of   *
      * Micro Focus products and may be used, modified and           *
      * distributed as part of your application provided that you    *
      * properly acknowledge the copyright of Micro Focus in this    *
      * material.                                                    *
      ****************************************************************

      * ASMCOBOL.CBL - Example program for use with the example
      * integrated preprocessor.
      *
      * The preprocessor PREPROC will process MOV, DIS, COPY, CPY, WARN
      * and ERROR verbs.  The preprocessor PREPROX will process the
      * PRINT verb.  As it stands, this program only uses the PREPROC
      * preprocessor; to demonstrate the effect of using stacked
      * preprocessors, change the first line to
      *
      * $Set preprocess(preproc) preprocess(preprox)
      *
      * (note that this line MUST be the first in the source)
      *
      * and un-comment the penultimate line of this program.
      *
       working-storage section.
       cpy "working.cbl".
       cpy "working.cbl" replacing file-stat by file-stat-2.
       01 data-item1   pic 99.
       01 data-item2   pic 99.
       01 data-item3   pic 99.
       copy "working.cbl".
       copy "working.cbl" replacing file-stat by file-stat-3.
       procedure division.
       start-para section.
           mov 1 to data-item1. dis data-item1.
           MOV  1  to    data-item1.
           MOV  2  to    data-item2.
           mov  3  to    data-item3.
      *    print data-item1. print data-item2. print data-item3.
           STOP      RUN.