DICU1 ;SEA/TOAD,SF/TKW-VA FileMan: Lookup Tools, Get IDs & Index ;26JUNE2011
Source file <DICU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IDENTS(DIFLAGS,DIFILE,DIDS,DIWRITE,DIDENT,DINDEX) | ;
; get definition of fields to return with each entry |
|
| ID1 | ; prepare to build output processor:
|
|
| ID1A | ; for Lister: add indexed fields to DIDENT array (to build 1 nodes)
|
|
| ID2 | ; decide whether to auto-include the .01 in the field list
; will come out in 1 node for Lister, in "ID" nodes for Finder |
|
| ID3 | ; Process auto-included .01 field (if included) on first pass,
; Start loop to process each field from DIFIELDS parameter ; and Identifiers. |
|
| ID4 | ||
| ID4A | ||
| ID4B | ||
| ID4X | ||
| ID4C | ||
| ID5 | ||
| ID6 | ; Write Identifiers: add to output processor
; ID Parameter: add ID parameter to output processor |
|
| BLD | ; get fetch code for value
|
|
| BLD1 | ; set up format code and load with fetch code into DIDENT
|
|
| COMP(DIGFTI) | ;EXECUTE A COMPUTED FIELD! COME HERE FROM DICU2
|
|
| ERR(DIERN,DIFILE,DIENS,DIFIELD,DI1) | ;
|
|
| ERR202 | ||
| BADIX(DIDENT) | ;
|
