CODTAB[1,1] CODTAB[1,1] MESSAGE TABLEREAD,FCG,#110,S0
S0 CODTAB[2,20]
USE GCG