54 lines
2.1 KiB
Plaintext
54 lines
2.1 KiB
Plaintext
1 1 [00]: identification division.
|
|
2 2 [00]: program-id. external1sub.
|
|
3 3 [00]: environment division.
|
|
4 4 [00]: configuration section.
|
|
5 5 [00]: special-names.
|
|
6 6 [00]: .
|
|
7 7 [00]: data division.
|
|
8 8 [00]: file section.
|
|
9 9 [00]: working-storage section.
|
|
10 10 [00]: 01 wint external pic 9(12).
|
|
11 11 [00]: LINKAGE SECTION.
|
|
12 12 [00]: procedure division.
|
|
13 13 [00]: accept wint update.
|
|
14 14 [00]: * display wint
|
|
15 15 [00]: * accept wint update
|
|
16 16 [00]: exit program.
|
|
17 17 [00]:
|
|
|
|
|
|
Error(s) listing:
|
|
|
|
|
|
=======================================================================
|
|
|
|
Symbols of module: external1sub
|
|
--------------------------------------
|
|
|
|
---------------------------------------------------- Cross Refrence Listing --------------------------------------------------------
|
|
|
|
Variable Symbol ( Qualifiers ) Locations
|
|
-----------------------------------------+------------------------------------------------------------------------------------------
|
|
WINT 000010 000013 000014 000015
|
|
|
|
---------------------------------------------------------------+-----------------
|
|
Symbol ( Variables ) Type Level Len Dec Mul | Desc Loc Pic S
|
|
---------------------------------------------------------------+-----------------
|
|
WINT 9 1 12 0 1 | 0066 0000 0072 7
|
|
|
|
|
|
|
|
-----------------------------------------------
|
|
Symbol ( 88-condition ) Variable tested
|
|
-----------------------------------------------
|
|
|
|
-----------------------------------------------------------------------
|
|
Paragraph Section Type
|
|
-----------------------------------------------------------------------
|
|
|
|
|
|
TinyCOBOL compile audit summary:
|
|
Total lines compiled : 17
|
|
Total number of warnings : 0
|
|
Total number of errors found : 0
|