******************************************************************************* * * uniVerse port of PI/open ENTRO.PH.IBAS subroutine * * Module %M% Version %I% Date %H% * * (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved * This is unpublished proprietary source code of Ardent Software Inc. * The copyright notice above does not evidence any actual or intended * publication of such source code. * ******************************************************************************* * * Maintenance log - insert most recent change descriptions at top * * Date.... GTAR# WHO Description......................................... * 10/14/98 23801 SAP Change copyrights. * 02/24/93 11116 PVW Fix REVISE losing select list 0. * 12/02/92 10213 PVW Further changes * 12/02/92 10213 PVW Change UVPRINTMSG to *UVPRINTMSG * 11/12/92 10213 PVW Port PI/open ENTRO to replace uniVerse REVISE. * ******************************************************************************* $OPTIONS INFORMATION SUBROUTINE REVISE.PHRASE (DICT.FILE, PHRASE) $INCLUDE UNIVERSE.INCLUDE REVISE.H $INCLUDE UNIVERSE.INCLUDE VERBINSERT.H NAMES = '' KEY = '' DONE = 0 SELECTV DICT.FILE TO DICT.LIST LOOP WHILE READNEXT ID FROM DICT.LIST DO READ IT FROM DICT.FILE, ID THEN IF IT[1,1] = 'D' THEN FMC = EXTRACT(IT,2,0,0) IF NUM(FMC) THEN IF FMC THEN NAMES = REPLACE(NAMES,FMC,0,0,ID) END ELSE KEY = ID END DONE = 1 END END END REPEAT PHRASE = '' IF DONE THEN DATE.CREATED = DATE() TIME.CREATED = TIME() PHRASE = UVREADMSG(010267,"") PHRASE := OCONV(DATE.CREATED,'DWAL')[1,3]:' ' PHRASE := OCONV(DATE.CREATED,'DMAL')[1,3]:' ' PHRASE := OCONV(DATE.CREATED,'DD'):' ' PHRASE := OCONV(TIME.CREATED,'MTS'):' ' PHRASE := OCONV(DATE.CREATED,'DY4'):@FM CONVERT @FM TO ' ' IN NAMES PHRASE := KEY:' ':NAMES WRITE PHRASE ON DICT.FILE,RV$AT.REVISE CALL *UVPRINTMSG(001599,"") END RETURN END