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.