CODTAB S0 I0

B0

#SYSTEM.DATE #PAGE

USE %TPD FROM CODTAB=#FROM TO CODTAB=#TO