TABLES: icon.

 INCLUDE <icon>.

 FIELD-SYMBOLS: <f>.

 SELECT * FROM icon.

   ASSIGN (icon-name) TO <f>.

   WRITE:   /() <f>,  '@', icon-id+(),

 '@',icon-oleng,

            icon-button,icon-status,icon-message,icon-function,

            icon-name.

 ENDSELECT.