CODTAB S0 I0 CODTAB[11,12] B0 B1

#SYSTEM.DATE #PAGE

USE %CPG FROM CODTAB=#FROM TO CODTAB=#TO