(FILECREATED " 9-SEP-83 13:33:40" ("compiled on " {INDIGO}SOURCES>LOOPSUID.;3) " 8-SEP-83 19:22:13" tcompl'd in WORK dated " 8-SEP-83 19:38:18") (FILECREATED " 8-JUL-83 00:22:12" {INDIGO}SOURCES>LOOPSUID.;3 6348 changes to: (FNS DB-InitUI DB-PackUI DB-UnpackUI) (VARS UIFNS) previous date: "22-JUN-83 11:26:07" {INDIGO}SOURCES>LOOPSUID.;2) DB-InitUI D1 (P 10Q nsHostNumber P 7 temp P 6 startIndex P 5 dateCode P 4 monthCode P 3 day P 2 month P 1 year P 0 date F 11Q DB.UICOUNT F 12Q DB.FRONTUI) . ђg-_«jdh_їXdll YHllZHkldҐdЎµ Hld[H Hkl o Щ^nи Jdgр–їg±‡gр”g°|Jdgр•їg°ogр”g°eJdgр•їg°Xgр”g°NJdgр•їg°Agр”g°7Jdgр•їg°*gр”g° Jdgр•їg°gр“g‡Jo \jcLKl@Ш I gOgOgOgNg c(451Q CONCAT 406Q CHARACTER 402Q CHARACTER 366Q ERROR 144Q WAITMS 134Q IDATE 131Q CONCAT 122Q SUBSTRING 113Q IDATE 106Q SUBATOM 63Q SUBATOM 53Q SUBATOM 42Q SUBATOM 31Q DATE 15Q DAYTIME) (445Q %. 441Q %. 430Q %. 420Q %. 411Q %. 355Q D 350Q DEC 343Q N 335Q NOV 326Q O 321Q OCT 314Q S 306Q SEP 277Q G 272Q AUG 265Q L 257Q JUL 250Q U 243Q JUN 236Q Y 230Q MAY 221Q A 214Q APR 207Q M 201Q MAR 172Q F 165Q FEB 157Q J 151Q JAN 5 \MY.NSHOSTNUMBER) (363Q "IS NOT A MONTH" 126Q "00:00:00") DB-PackUI D1 (F 0 DB.UICOUNT F 1 DB.FRONTUI) QPkШc (10Q PACK*) NIL NIL DB-UnpackUI D1 (P 10Q dateCode P 7 charCodes P 6 uiCount P 5 year P 4 month P 3 day P 2 partiton P 1 hostNumber P 0 netNumber I 0 UI) Ь ђ@ _dOl Ш_Ol ]Ol l@Щ[O dgр–їg±Ќdgр–їg±Ђdgр•їg°sdgр•їg°gdgр•їg°[dgр•їg°Odgр•їg°Cdgр•їg°7dgр•їg°+dgр•їg°dgр•їg°gр“g‡Lo \oKLMh(314Q ERROR 65Q CHARACTER 52Q NTH 41Q NTH 27Q LSH 6 CHCON) (303Q DEC 276Q D 271Q NOV 263Q N 255Q OCT 247Q O 241Q SEP 233Q S 225Q AUG 217Q G 211Q JUL 203Q L 175Q JUN 167Q U 161Q MAY 153Q Y 145Q APR 137Q A 131Q MAR 123Q M 114Q FEB 106Q F 77Q JAN 71Q J) (321Q "Created" 311Q "IS NOT A MONTH") UID D1 (P 1 uid P 0 entity I 1 nameFlg I 0 OBJ) B @d`р–Й°'`рЁ@d`рџї@Йµ@ ґ @Й†o №A‘II (77Q MKSTRING 66Q ERROR 51Q NewEntity) (35Q classTYPE# 25Q instanceTYPE# 15Q Entity 10Q EntityTYPE#) (63Q "cannot have UID") (PRETTYCOMPRINT LOOPSUIDCOMS) (RPAQQ LOOPSUIDCOMS ((* Copyright (c) 1983 by Xerox Corporation) (* Creates unique identifiers for instances) (RECORDS UIREC) (VARS * UIVARS) (FNS * UIFNS) (P (DB-InitUI)))) (RECORD UIREC (NetNumber HostNumber PartitionNumber Day Month Year UICount)) (RPAQQ UIVARS ((DB.PRINTDESTINATION PROMPTWINDOW) (DB.UIFILENAME (COND ((FMEMB (SYSTEMTYPE) (QUOTE ( ALTO D))) (QUOTE {DSK}Lore-UI.SAVE)) (T (QUOTE Lore-UI.SAVE)))) (DB.UIREC NIL) (DB.FRONTUI NIL) ( DB.UICOUNT 0) (DB.UIDUMPINCR 1000) (DB.NEXTUIDUMP NIL) (DB.ENVIRONMENT NIL) (UIDPRINTFLG) (NETNUMBER 0 ))) (RPAQ DB.PRINTDESTINATION PROMPTWINDOW) (RPAQ DB.UIFILENAME (COND ((FMEMB (SYSTEMTYPE) (QUOTE (ALTO D))) (QUOTE {DSK}Lore-UI.SAVE)) (T (QUOTE Lore-UI.SAVE)))) (RPAQQ DB.UIREC NIL) (RPAQQ DB.FRONTUI NIL) (RPAQQ DB.UICOUNT 0) (RPAQQ DB.UIDUMPINCR 1000) (RPAQQ DB.NEXTUIDUMP NIL) (RPAQQ DB.ENVIRONMENT NIL) (RPAQQ UIDPRINTFLG NIL) (RPAQQ NETNUMBER 0) (RPAQQ UIFNS (DB-InitUI DB-PackUI DB-UnpackUI UID)) (DB-InitUI) NIL