**FREE
ctl-opt DFTACTGRP(*NO);

dcl-f COLORSD WorkStn 
              Handler('UNIVERSAL(HANDLER)');

dcl-f COLORSP Keyed;

Write Header;

Read COLORS;
Dow Not %Eof();
  Write Body;
  Read COLORS;
EndDo;
 Write Footer;

*InLr = *On;
RETURN;