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