#SYSTEM.RAGSOC

CODTAB D0 S0 S4

#SYSTEM.DATE #PAGE

USE CAM FROM CODTAB=#FROM TO CODTAB=#TO