CODTAB S0 I0 S3

#SYSTEM.DATE #PAGE

USE %POR FROM CODTAB=#FROM TO CODTAB=#TO