I've got a paragraph (UniVerse, Pick flavor) I run every night that copies
all phantoms 3 days or older to a PH.BAK file, in case I want them later, a
painless way to keep the &PH& file cleaned out.
SELECT &PH& WITH DATE LT THREE.DAYS.AGO OR WITH (DATE = THREE.DAYS.AGO AND
TIME LT "08:00:00pm")
SAVE.LIST PH.CLEANUP
GET.LIST PH.CLEANUP
IF @SYSTEM.RETURN.CODE LT 1 THEN GO NO.RECORDS
COPY &PH&
DATA (PH.BAK
DATA
GET.LIST PH.CLEANUP
IF @SYSTEM.RETURN.CODE LT 1 THEN GO NO.RECORDS [I know, overkill, but I like
to be sure...]
DELETE &PH&
...
LIST DICT &PH& "DATE""TIME""THREE.DAYS.AGO"
DICT PH 01:24:23pm 04 Feb 2008 Page 1
Field......... Type & Field........ Conversion.. Column......... Output
Depth &
Name.......... Field. Definition... Code........ Heading........ Format
Assoc..
Number
DATE I FIELD(@ID,"_" D2/ 10R S
,3)
THREE.DAYS.AGO I @DATE - 3 D 11R S
TIME I FIELD(@ID,"_" MTHS 10R S
,2)
3 records listed.
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
