$$$$ LICOCHAR
* LICOCHAR  PROCEDUR  AURI      97/12/24    21:26:42     3025           
 DEBMETH LICOCHAR   CHARC*ENTIER ;
 %CHARGE= CHARC ;
 FINMETH ;