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 |
