DGPFUT64 ;SHRPE/SGM - FLAG UTILITIES ; Aug 17, 2018 09:30
Source file <DGPFUT64.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 |
---|---|---|
FLAG(DGPFIN,SCR,TYPE) | ;
; Does flag name and flag variable pointer match? ; INPUT PARAMETERS: ; DGPFIN - required - flag full name or variable-pointer syntax ; SCR - required - flag name to use as a screen if DGPFIN is ; var-pointer ; TYPE - optional - I:only return Cat I values ; II:only return Cat II values ; null or 0:return either Cat I or Cat II ; EXTRINSIC FUNCTION returns 0 or variable_pointer^flag_name |
|
FLAGCVRT(DGRET,VAL,TYPE) | ;
|
|
SELASGN(DGSCR,FLG) | ;
; select an existing assignment from from 26.13 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DGPF(26.11 - [#26.11] | FIND1^DIC |
^DGPF(26.15 - [#26.15] | FIND1^DIC |
Name | Line Occurrences |
---|---|
$$FLAGCVRT | FLAG+13, SELASGN+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BEH | SELASGN+11~, SELASGN+13*, SELASGN+14 |
DA | SELASGN+7~ |
DGERR | FLAGCVRT+31~, FLAGCVRT+38~ |
DGPFIN | FLAG~, FLAG+13 |
DGRET | FLAGCVRT~, FLAGCVRT+50*, FLAGCVRT+51 |
DGSCR | SELASGN~, SELASGN+10*, SELASGN+12, SELASGN+17 |
DIC | SELASGN+7~, SELASGN+8* |
DIC("A" | SELASGN+9* |
DIC("S" | SELASGN+12*, SELASGN+14* |
DIC(0 | SELASGN+8* |
DIERR | FLAGCVRT+31~, FLAGCVRT+35, FLAGCVRT+38~, FLAGCVRT+41, FLAGCVRT+45 |
DTOUT | SELASGN+7~, SELASGN+21 |
DUOUT | SELASGN+7~ |
ERR | FLAGCVRT+13~, FLAGCVRT+14*, FLAGCVRT+23, FLAGCVRT+26*, FLAGCVRT+27* |
FILE | FLAGCVRT+31~, FLAGCVRT+32*, FLAGCVRT+34 |
FLAG | FLAGCVRT+38~ |
FLG | SELASGN~, SELASGN+20 |
FLGX | FLAGCVRT+13~, FLAGCVRT+15*, FLAGCVRT+18, FLAGCVRT+19, FLAGCVRT+22, FLAGCVRT+25, FLAGCVRT+35, FLAGCVRT+40, FLAGCVRT+44 |
FLGX("I" | FLAGCVRT+41*, FLAGCVRT+47, FLAGCVRT+48 |
FLGX("II" | FLAGCVRT+45*, FLAGCVRT+47, FLAGCVRT+48 |
FLGX(1 | FLAGCVRT+16*, FLAGCVRT+35*, FLAGCVRT+47*, FLAGCVRT+48*, FLAGCVRT+50 |
GL | FLAGCVRT+24~, FLAGCVRT+25*, FLAGCVRT+27, FLAGCVRT+28 |
IENS | FLAGCVRT+31~, FLAGCVRT+33*, FLAGCVRT+34 |
NAME | FLAGCVRT+13~, FLAGCVRT+21*, FLAGCVRT+22*, FLAGCVRT+37, FLAGCVRT+41, FLAGCVRT+45 |
PTR | FLAGCVRT+13~, FLAGCVRT+21*, FLAGCVRT+28*, FLAGCVRT+30, FLAGCVRT+33 |
ROOT | FLAGCVRT+13~, FLAGCVRT+21*, FLAGCVRT+28*, FLAGCVRT+32 |
SCR | FLAG~, FLAG+11, FLAG+14 |
TYPE | FLAG~, FLAG+13, FLAGCVRT~, FLAGCVRT+17*, FLAGCVRT+18*, FLAGCVRT+19*, FLAGCVRT+20*, FLAGCVRT+39, FLAGCVRT+43 |
U | FLAG+14, FLAGCVRT+15, FLAGCVRT+35, FLAGCVRT+41, FLAGCVRT+45, SELASGN+14, SELASGN+20 |
VAL | FLAGCVRT~, FLAGCVRT+15 |
X | FLAG+12~, FLAG+13*, FLAG+14, FLAGCVRT+13~, FLAGCVRT+24~, FLAGCVRT+31~, FLAGCVRT+38~, SELASGN+7~, SELASGN+16*, SELASGN+17* , SELASGN+18, SELASGN+20* |
XQY0 | SELASGN+7~ |
Y | FLAG+12~, FLAG+14*, FLAG+15, FLAGCVRT+24~, FLAGCVRT+25*, FLAGCVRT+26, FLAGCVRT+28, FLAGCVRT+31~, FLAGCVRT+34*, FLAGCVRT+35 , FLAGCVRT+38~, FLAGCVRT+40*, FLAGCVRT+41, FLAGCVRT+44*, FLAGCVRT+45, SELASGN+7~, SELASGN+20*, SELASGN+21 |
Y(0 | SELASGN+20 |