CODTAB S0 B0

#SYSTEM.DATE #PAGE

USE CTD FROM CODTAB=#FROM TO CODTAB=#TO