#SYSTEM.RAGSOC

CODTAB[1,4] CODTAB[5,7] I0 S0 S8 I5 D2 I1 D3 S1

#SYSTEM.DATE #PAGE

USE REG FROM CODTAB=#FROM TO CODTAB=#TO