DICATTA ;SFISC/YJK - DD AUDIT ; Aug 09, 2022@08:20:56
Source file <DICATTA.m>
| 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 |
