#SYSTEM.RAGSOC

CODTAB[1,1] CODTAB[2,2] S0

#SYSTEM.DATE #PAGE

USE CLR FROM CODTAB=#FROM TO CODTAB=#TO