DICU2 ;SEA/TOAD,SF/TKW - VA FileMan: Lookup Tools, Return IDs ;5OCT2016
Source file <DICU2.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
VA FileMan | 1 | DICL2 |
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | COMPDT |
^DD("DD" | COMPDT |
^DD("STRING_LIMIT" | A1+2 |
^TMP("DIERR" | SET+6! |
^TMP("DIMSG" | I8+3*, I8+5, I8+6, I8+10! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | I4+2~, I6+3~ |
%H | I4+2~ |
%T | I4+2~ |
A | I4+2~ |
B | I4+2~ |
C | I4+2~ |
D | I4+2~, I6+3~, I6+4* |
DA | I4+3~, I4+8 |
DA( | I4+7 |
DA("" | I4+5 |
DELIM | A1~*, A1+5 |
DFN | I4+2~ |
DI | I8+2~*, I8+4, I8+5*, I8+6, I8+7 |
DI0NODE | IDS~, I1+2~*, I1+3* |
DIARG | I4+4~*, I4+6*, I4+7~ |
DIC | I6+3~, I6+5* |
DIC(0 | I6+6* |
DICODE | I2+3~, TRANOUT+2~*, TRANOUT+3 |
DICONTXT | I7+5~*, I7+6*, I7+7 |
DICOUNT | IDS~, I1+6, I1A+3, I20+4, I5+2, I8+1, I9+2 |
DICRSR | I2+3~*, I2+4*, I2+6, I20+2, I3+6, I3+7, I4+9, I7+2, SET~, SET+2 , SET+4, SET+5 |
DID | I1+4~, I2+4*, I2+5, I2+6, I20+1, I20+2, I3+3, I3+6, I3+7, I4+9 , COMPDT, I5+2, I7+2, I7+5, I8+1 |
DIDENT | IDS~ |
DIDENT( | I1A+2, I2+4, I2+6, I3+6, I4+9, COMPDT, I7+2, SET+2, SET+4, SET+5 |
DIDENT(0 | I1A+5, I1A+8 |
DIDVAL | I1+4~, I2+7!, I20+3, I20+4, I4+9*, COMPDT*, I5+2, I5+3 |
DIDVAR | I4+6~*, I4+7* |
DIEN | IDS~, I1+2~*, I1+3, I1+5, I1+6, I20+3, I4+3, I5+3, I6+7, I6+8 , I7+7, I8+7, ADD~, A1+2 |
DIEND | I8+2~*, I8+8* |
DIERR | I2+4, I3+3, I3+5~, I7+4, I8+4, I9+2, SET+6!, A1+4 |
DIFID | SET~, SET+2, SET+4, SET+5 |
DIFILE | IDS~, I1+2~*, I1+3, I1A+6, I1A+7, I1A+8, I20+2, I3+7, COMPDT, I6+5 , I6+8, I7+7, SET~, SET+1~* |
DIFILE( | I1+3, I6+5, I6+8 |
DIFLAGS | IDS~, I1+2, I1+5, I1A+2, I1A+4, I2+2, I2+5, I20+3, I3+5, I5+2 , I5+3, I6+6, I8+2, I8+7, I9+2, SET+6, ADD~, A1+3*, A1+4 |
DIGFT | I8+1~*, I8+2, I8+8 |
DILCNT | ADD~, A1 |
DILENGTH | I2+2~*, I20+3, I5+3, I8+7, ADD~, A1+1*, A1+2 |
DILINE | I8+2~, I8+6*, I8+7, I8+8, E1~, E1+2*, E1+3 |
DILIST | IDS~, I1+6, I1A+3, I20+3, I20+4, I5+2, I5+3, I8+1, I8+7, I9+2 , ADD~, A1+3, ENCODE~, E1+1, E1+2, E1+3 |
DIMAX | I4+5~*, I4+6, I4+7, I4+8 |
DIMSG | I8+10! |
DINDEX | IDS~, I1A+6, I1A+7, I20+2, I3+7, I6+4, SET~ |
DINDEX( | SET+4, SET+6, TRANOUT+2 |
DINDEX("#" | I1A+6 |
DINEW | ADD~, A1, A1+3, A1+4*, A1+5 |
DINEWLEN | A1~*, A1+1 |
DINODE | I1+5~*, I2+2, I20+3, I5+3, I8+7, I9+2, ADD~, A1+3, A1+5*, ENCODE~ , E1+4* |
DIOUT | I1A+3~*, I1A+6, I1A+7, I1A+8, I2+3~, SET~, SET+9, SET+10 |
DIREC | E1+1~*, E1+2, E1+3 |
DIRULE | E1~, E1+3, E1+4 |
DIRULE(1 | E1* |
DISUB | I1A+4~, I1A+5*, I1A+6, I1A+7, I2+3~, I2+4*, I2+6*, I20+2, I20+4, I3+7 , SET~, SET+2, SET+4, SET+5, SET+6, TRANOUT~, TRANOUT+2 |
DIVAL | SET+4~ |
DIVL | TRANOUT~, TRANOUT+1 |
DIX | I7+2~*, I7+3 |
F | I1+2~*! |
F1 | SET+1~*, SET+2*, SET+3*, SET+4, SET+5, SET+10 |
F2 | SET+1~, SET+2*, SET+3, SET+9 |
I | I1+2~*!, I1A+7~*, I4+2~ |
N | I1+2~*! |
>> O | SET+10* |
U | COMPDT, A1+3, A1+4 |
X | I4+2~, I4+9, I6+3~, SET+5~, SET+6*, SET+7*, SET+8*, SET+9, SET+10, TRANOUT+1~* , TRANOUT+4 |
X1 | I4+2~ |
X2 | I4+2~ |
Y | I4+2~, COMPDT~*, I6+3~, I6+7* |
Y1 | I6+3~, I6+8* |
Z | I4+2~ |
Z0 | I4+2~ |
Z1 | I4+2~ |