CODTAB S0 S7 S6 S3

#SYSTEM.DATE #PAGE

USE TCS FROM CODTAB=#FROM TO CODTAB=#TO