#SYSTEM.RAGSOC

CODTAB[1,3] CODTAB[4,6] CODTAB[7,12] S0

#SYSTEM.DATE #PAGE

USE PCI