60 lines
2.4 KiB
Plaintext
60 lines
2.4 KiB
Plaintext
1 1 [00]: IDENTIFICATION DIVISION.
|
|
2 2 [00]: PROGRAM-ID. TEST26.
|
|
3 3 [00]: ENVIRONMENT DIVISION.
|
|
4 4 [00]: CONFIGURATION SECTION.
|
|
5 5 [00]: * INPUT-OUTPUT SECTION.
|
|
6 6 [00]: DATA DIVISION.
|
|
7 7 [00]: FILE SECTION.
|
|
8 8 [00]:
|
|
9 9 [00]: WORKING-STORAGE SECTION.
|
|
10 10 [00]: 01 W-1 PIC X(10) VALUE "testing".
|
|
11 11 [00]: 01 W-2 PIC X(10).
|
|
12 12 [00]:
|
|
13 13 [00]: PROCEDURE DIVISION.
|
|
14 14 [00]: A100.
|
|
15 15 [00]: display W-1 line 1 position 2
|
|
16 16 [00]: accept W-2 line 5 position 2
|
|
17 17 [00]: display "<-- OK"
|
|
18 18 [00]: display W-1 line 12 position 5
|
|
19 19 [00]: accept W-2 line 1 position 1
|
|
20 20 [00]: STOP RUN.
|
|
|
|
|
|
Error(s) listing:
|
|
|
|
|
|
=======================================================================
|
|
|
|
Symbols of module: TEST26
|
|
--------------------------------------
|
|
|
|
---------------------------------------------------- Cross Refrence Listing --------------------------------------------------------
|
|
|
|
Variable Symbol ( Qualifiers ) Locations
|
|
-----------------------------------------+------------------------------------------------------------------------------------------
|
|
W-1 000010 000015 000018
|
|
W-2 000011 000016 000019
|
|
|
|
---------------------------------------------------------------+-----------------
|
|
Symbol ( Variables ) Type Level Len Dec Mul | Desc Loc Pic S
|
|
---------------------------------------------------------------+-----------------
|
|
W-1 X 1 10 0 1 | 007D 0004 0089 3
|
|
W-2 X 1 10 0 1 | 008C 000E 0098 3
|
|
|
|
|
|
|
|
-----------------------------------------------
|
|
Symbol ( 88-condition ) Variable tested
|
|
-----------------------------------------------
|
|
|
|
-----------------------------------------------------------------------
|
|
Paragraph Section Type
|
|
-----------------------------------------------------------------------
|
|
A100 P
|
|
|
|
|
|
TinyCOBOL compile audit summary:
|
|
Total lines compiled : 20
|
|
Total number of warnings : 0
|
|
Total number of errors found : 0
|