DICATTA ;SFISC/YJK - DD AUDIT ; Aug 09, 2022@08:20:56
Source file <DICATTA.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 |
|---|---|---|
| SV | ;From DICATT & DICATTD
|
|
| AUDT | ;
|
|
| B | ||
| I() | ||
| B1(B1) | ||
| DDAUDITQ(FILE) | ;ALWAYS DO DD AUDIT
|
|
| UPDATED(FILE,FIELD) | ;
|
|
| P | ;From ^DIAUTL & B1 above
|
|
| AUDIT(FILE,FIELD,OLD,NEW,ATTRIB) | ;AUDIT the DATA DICTIONARY
|
|
| ADD(OLD,NEW) | ;NEED 'B0' (FILE #), 'DA'(FIELD #), 'OLD' and 'NEW' values, and A0="LENGTH^.23" or whatever. %D is return variable. If it is not there, we are not auditing.
|
|
| IT | ;From DIU3, DIU31, DICATT2
|
|
| IT1 | ;From DIU31
|
|
| XS | ;From DICE
|
|
| XA | ;From DICE, DICE0, DIKD, DICD
|
|
| TR | ||
| CK | ||
| C | ||
| XL |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | SV+1, AUDT+4, B, B1, UPDATED+1, UPDATED+2*, UPDATED+3, UPDATED+4*, ADD+3, XS+1 , XS+2, TR, CK |
| ^DD(0 | B1, AUDIT+4 |
| ^DDA - [#.6] | ADD+3*, ADD+4, ADD+5, ADD+6*, XL*, XL+1* |
| ^DIC - [#1] | UPDATED+5*, ADD+3 |
| ^UTILITY("DDA" | SV+1*, AUDT+3, B, B1, XS+1*, XS+2*, TR, CK, QQ! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | SV+1*, SV+2!, B+2*, B1*, ADD+3*, XS+2*, XS+3!, TR+2*, CK, C* , C+1*, QQ!, XL*, XL+1*, XL+3! |
| %D | ADD+8*, TR+2, QQ!, XL, XL+1 |
| %T | ADD+2~, ADD+6* |
| >> A | SV+1 |
| A0 | SV+1*, SV+2!, AUDT+3*, B*, B+2*, B+3*, B+4*, B1*, AUDIT+2~, AUDIT+4* , ADD+6, XA+1*, TR+2*, QQ!, XL, XL+2* |
| A1 | B*, B+2, B+3, B+4*, B+5!, B1*, P+1!, P+2, P+3, P+4! , IT+1, TR!*, TR+1, CK!*, C, C+1, QQ! |
| A2 | B*, B+2, B+3, B+4*, B+5!, B1*, P+1, P+2!, P+3, P+4! , IT+1, TR!*, TR+1, CK!*, C, C+1, QQ! |
| A3 | B+1*, B+2*, B+3, B+5! |
| A4 | B+2*, B+3*, B+4, B+5! |
| A5 | B+1*, B+2, B+5! |
| ATTRIB | AUDIT~, AUDIT+4 |
| B0 | AUDT+2*, AUDT+3, AUDT+4, B, B1, AUDIT+2~, AUDIT+3*, ADD+1, ADD+3, ADD+4 , ADD+5, ADD+6, IT+1*, IT1+1*, XA+1*, TR, CK, QQ!, XL, XL+1 |
| B1 | B+2*, B+3*, B+4, B1~, XS+2*, XS+3!, TR+2*, CK*, QQ!, XL , XL+1, XL+2* |
| B2 | B+2*, B+3*, B+4, B1*, QQ!, XL*, XL+1*, XL+3! |
| B3 | B+1*, B+2, B+5!, ADD+2~, ADD+4*, ADD+5, ADD+6, ADD+8 |
| DA | AUDT+3, AUDT+4, B, B1, AUDIT+2~, AUDIT+4*, ADD+1, ADD+5, ADD+6, XS+1 , XS+2, XA+1*, TR, CK |
| DDA | AUDT+2, AUDT+3, P+1*, P+2*, P+3*, AUDIT+2~, AUDIT+4*, ADD+6, IT+1*, XS+1* , XA+2*, TR+2, QQ*, XL+2 |
| DDA(1 | AUDT+2 |
| >> DI | IT+1, IT1+1 |
| >> DL | XA+1 |
| >> DQ | XS+1, XS+2, TR, CK |
| DT | UPDATED+1, UPDATED+2, UPDATED+4, XL+1 |
| DUZ | ADD+6 |
| FIELD | UPDATED~, UPDATED+1, AUDIT~, AUDIT+4 |
| FILE | DDAUDITQ~, UPDATED~, UPDATED+1, UPDATED+2, UPDATED+3*, UPDATED+4, UPDATED+5, AUDIT~, AUDIT+3 |
| J | AUDIT+2~ |
| J( | XS+1, XS+2, XA+1 |
| J(0 | AUDIT+3*, ADD+3 |
| >> N | XS+1, XS+2, XA+1 |
| NEW | AUDT+1~, AUDT+4*, AUDT+5, AUDIT~, AUDIT+1, AUDIT+5, ADD~, ADD+7 |
| OLD | AUDT+1~, AUDT+3*, AUDT+5, AUDIT~, AUDIT+1, AUDIT+5, ADD~, ADD+7 |
| U | AUDT+3, AUDT+4, B+2, B+3, B1, UPDATED+5, ADD+3, ADD+4, ADD+5, ADD+6 , XS+1 |
| >> Y | SV+1 |
