$$$$ LESPITYP * LESPITYP PROCEDUR AURI 97/12/24 21:26:27 3025 DEBMETH LESPITYP IIII*ENTIER ; %ITYP= IIII ; FINMETH ;