This function returns the character company code file extension modifier.
NO OTHER PARTS
RETURN TYPE - A
This function only returns the last two characters of the company code and does not include the leading 'B'.
NOTE: In FILELOC.B all files have extensions of B+the company code. You can specify the two characters that make up the company code with this command. You can also set the beginning company in the Set Configuration program. If you are using the Pervasive file manager (Btrieve) then the files will actually have the extension of B+company code. If you are using CodeBase the files have set extensions (DBF, DBT & MDX) but we use the B+company code in FILELOC.B to keep track of the different companies.
define CO_CODE type A size 2
co_code = CO()