CODTAB S0 S4 D0

#SYSTEM.DATE #PAGE

USE %VAL FROM CODTAB=#FROM TO CODTAB=#TO