#SYSTEM.RAGSOC

CODTAB D0 D1

#SYSTEM.DATE #PAGE

USE ESC FROM CODTAB=#FROM TO CODTAB=#TO