CODTAB S0 B0

B1

#SYSTEM.DATE #PAGE

USE %STA FROM CODTAB=#FROM TO CODTAB=#TO