DICL2 ;SEA/TOAD,SF/TKW-VA FileMan: Lookup: Lister, Part 3 ;11JUNE2008
Source file <DICL2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SCREEN(DIFILE,DIEN,DIFLAGS,DIFIEN,DISCREEN,DINDEX,DI0NODE) | ;
|
|
| S1 | ; entries tagged for archiving, or missing the .01 or already on
; the list should be screened out. |
|
| S2 | ; execute any screen on transformed lookup values
|
|
| S3 | ; Additional screening for using an alternate index for loop through file.
|
|
| S4 | ; Execute Screen parameter, whole file screen.
|
|
| S5 | ||
| ACCEPT(DIFILE,DIEN,DIFLAGS,DIFIEN,DINDEX,DIDENT,DILIST,DI0NODE) | ;
; accept an entry into the output list |
|
| A1 | ; if we're doing the final pass (just looking to see if there are any
; more entries), we don't actually add it to the list, just note what ; we found and quit |
|
| A2 | ; increment the number found; if it's the max, we flag to make the
; next pass a final just looking pass |
|
| A3 | ; increment (or decrement) the output list subscript
|
|
| A4 | ; output the specified values of the record
|
