79 lines
2.3 KiB
Plaintext
Executable File
79 lines
2.3 KiB
Plaintext
Executable File
*******************************************************************************
|
|
*
|
|
* 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
|