DICU11 ;SEA/TOAD,SF/TKW-VA FileMan: Lookup Tools, Get IDs & Index ;11/5/99 15:13
Source file <DICU11.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| THROW(DIFLAGS,DIDENT,DIDS,DICRSR,DICOUNT,DIDEFALT,DINDEX,DICF2) | ;
|
|
| T1 | ||
| GETFORM(DIDENT,DIFORMAT,DIDS,DICOUNT) | ;
; Strip E or I off specifier and set into DIFORMAT |
|
| FORMAT(DIFIELD,DICODE,DIUSEKEY,DIFORMAT,DIDEFALT,DIFLAGS) | ;
; Format fetch code to return either internal or external |
|
| WRITEID(DIFILE,DIDENT,DICRSR) | ;
; WRITE Identifiers Loop: add WRITE identifiers to output processor: ; for WRITE IDs we save the code as is |
