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