#SYSTEM.RAGSOC

CODTAB S0 S6[1,2] 200@.S0 R0 B0

#SYSTEM.DATE #PAGE

USE LAV JOIN %UMS ALIAS 200 INTO CODTAB==S6