DIFG0 ;SFISC/DG(OHPRD)-SETS UP DIC("S"), EVALS 1ST LINE OF A (SUB)FILE ;05/25/93 10:17 AM
Source file <DIFG0.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
NDPC | ;DETERMINE NODE,PIECE FOR DATA FOR THIS FIELD
|
|
DICS | ;SET DIC("S")
|
|
GETVAL | ;GETS VALUE TO RIGHT OF EQUAL SIGN
|
|
X1 | ||
SETCODES | ;DETERMINE INTERNAL VALUE IF FIELD ATTRIBUTE IS SET OF CODES
|
|
DATE | ;GET INTERNAL FORM OF DATE
|
|
BASE | ;BASE FILE ENTRY LINE
|
|
FUNC | ;CHECKS FUNCTION ON BASE ENTRY LINE
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | NDPC+2, NDPC+3, NDPC+4, SETCODES+1 |
^DIC - [#1] | BASE+4 |
^DIC("B" | BASE+4 |
^UTILITY("DIFG" | FUNC+3* |
^UTILITY("DIFG@" | GETVAL+2, BASE+2, BASE+3 |
^UTILITY("DIFGX" | GETVAL+1*, GETVAL+2* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | SETCODES+1*, SETCODES+2!, FUNC+3*, FUNC+4! |
%A | SETCODES+1*, SETCODES+2! |
>> %DT | DATE+1* |
>> DIC | NDPC+2, NDPC+3, NDPC+4, DICS+3, DICS+4, DICS+5, SETCODES+1, BASE+4*, BASE+5, FUNC+3 |
>> DIFG("NOLKUP" | BASE+2*, BASE+3 |
>> DIFG("PARAM" | NDPC+2 |
>> DIFGALNK | BASE+2* |
>> DIFGCT | NDPC+1*, NDPC+2, NDPC+3, NDPC+4, DICS+1, DICS+2, DICS+5, GETVAL+1, GETVAL+2, SETCODES+1 , DATE+1 |
>> DIFGDIC( | DICS+3, DICS+5* |
>> DIFGDICS( | DICS+3*, DICS+4*, DICS+5 |
>> DIFGDIX | NDPC+2, NDPC+3, NDPC+4, GETVAL+1, GETVAL+2, DATE+1, BASE+2, BASE+3, BASE+4, BASE+6 , FUNC+3 |
>> DIFGDOL | DICS+1*, DICS+2*, DICS+5 |
>> DIFGER | DATE+2*, BASE+5* |
>> DIFGFLUS | BASE+2* |
>> DIFGHAT | NDPC+4*, GETVAL+1 |
>> DIFGINCR | FUNC+2*, FUNC+3 |
>> DIFGMO( | FUNC+3* |
>> DIFGMULT | BASE+1, BASE+2, BASE+6, FUNC+3 |
>> DIFGNUMF( | NDPC+2*, NDPC+3*, NDPC+4, SETCODES+1 |
>> DIFGO | FUNC+1*, FUNC+2 |
>> DIFGPC( | NDPC+2*, NDPC+3*, DICS+1 |
>> DIFGPTER( | NDPC+4*, DICS+5 |
>> DIFGSAVX | DATE+1* |
DIFGSET | SETCODES+1*, SETCODES+2! |
>> DIFGSKIP( | BASE+2* |
>> DIFGVAL( | GETVAL+1*, GETVAL+2*, SETCODES+1*, DATE+1* |
>> DIFGXRF( | BASE+1!, BASE+6* |
>> DIFGY | DATE+2, BASE+5, FUNC+3 |
U | NDPC+4, SETCODES+1, DATE+2, BASE+2, BASE+3, BASE+4, BASE+5, BASE+6, FUNC+3 |
>> X | DATE+1*, BASE+3* |
>> Y | DATE+1, DATE+2, BASE+2* |