#SYSTEM.RAGSOC

CODTAB S0 B1 I0 CLIFO.RAGSOC S7

B4 D0 D1 B0 B2 B3 S4

#SYSTEM.DATE #PAGE

USE CMS JOIN CLIFO INTO TIPOCF=="C" CODCF==I0 FROM CODTAB=#FROM TO CODTAB=#TO