#SYSTEM.RAGSOC

CODTAB S0 I3 I4 I5 I0 I1 I2

#SYSTEM.DATE #PAGE

USE CCO FROM CODTAB=#FROM TO CODTAB=#TO