DICU2 ;SEA/TOAD,SF/TKW - VA FileMan: Lookup Tools, Return IDs ;5OCT2016
Source file <DICU2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IDS(DIFILE,DIEN,DIFLAGS,DINDEX,DICOUNT,DIDENT,DILIST,DI0NODE) | ;
|
|
| I1 | ; setup 0-node and ID array interface, and output IEN
|
|
| I1A | ; output primary value (index for Lister, .01 for Finder)
|
|
| I2 | ; start loop: loop through output values
|
|
| I20 | ||
| I3 | ||
| I4 | ||
| COMPDT | ||
| I5 | ||
| I6 | ||
| I7 | ||
| I8 | ||
| I9 | ; for packed output, set pack node into output array
|
|
| SET(DICRSR,DIFID,DISUB,DIOUT,DINDEX,DIFILE) | ; Move data to DIOUT.
|
|
| TRANOUT(DISUB,DIVL) | ; Execute TRANSFORM FOR DISPLAY on index value
|
|
| ADD(DIFLAGS,DINODE,DILENGTH,DINEW,DIEN,DILIST,DILCNT) | ;
|
|
| A1 | ||
| ENCODE(DILIST,DINODE) | ;
|
|
| E1 |
