#SYSTEM.RAGSOC
CODTAB[1,5] S0 R0 R1 R2 R3
#SYSTEM.DATE #PAGE
USE IMB