#SYSTEM.RAGSOC

CODTAB[1,5] CODTAB[6,7] S0 R0 R1 S2 S1 B0

#SYSTEM.DATE #PAGE

USE SUA FROM CODTAB=#FROM TO CODTAB=#TO