#SYSTEM.RAGSOC

CODTAB S0

#SYSTEM.DATE #PAGE

USE ZON FROM CODTAB=#FROM TO CODTAB=#TO