CODTAB[1,1] CODTAB[1,1] MESSAGE TABLEREAD,FCA,#110,S0

S0 CODTAB[2,20]

USE GCA