DG53688A ;ALB/SCK - Patch DG*5.3*688 Pre-Install Utility Routine ; 5 MAR 2007
Source file <DG53688A.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 |
|---|---|---|
| START | ; Entry point for EVENT^IVMPLOG trigger clean-up
|
|
| FIND(DGXRF,DGFLD) | ; This procedure will determine the selected x-ref's number from the DD file
; and return the number to the calling procedure ; Input ; DGXRF - Name of the cross-reference ; DGFLD - DD Field the cross-reference is stored on ; Output ; DGNUM - The number of the cross-reference ; |
|
| REMOVE(DGXRF,DGFLD,DGXNUM) | ; The procedure will delete the cross-reference from the Data Dictionary
; Input ; DGXRF - Name of the cross-reference ; DGFLD - DD Field number the cross-reference is stored on ; DGXNUM - The cross-reference number ; |
|
| FILE | ; Data Dictionary containing the cross-references to be cleaned-up
|
|
| TEXT | ; Cross-reference ID;Field Number
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | FIND+11, FIND+12, REMOVE+8 |
| ^DGOUT("DIEZ" | REMOVE+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | START+1~, START+16* |
| DGCNT | REMOVE+6~, REMOVE+17*, REMOVE+19, REMOVE+20* |
| DGDONE | FIND+8~, FIND+11, FIND+12* |
| DGERR | REMOVE+6~, REMOVE+24, REMOVE+25 |
| DGFILE | START+1~, START+9*, START+10, FIND+11, FIND+12, REMOVE+8, REMOVE+12 |
| DGFLD | START+1~, START+17!, START+18*, START+19, START+20, FIND~, FIND+11, FIND+12, REMOVE~, REMOVE+8 , REMOVE+9, REMOVE+12 |
| DGNAME | REMOVE+6~, REMOVE+8*, REMOVE+9 |
| DGNUM | FIND+8~, FIND+12*, FIND+14 |
| DGOUT | REMOVE+6~, REMOVE+16 |
| DGOUT("DIEZ" | REMOVE+18 |
| DGRXF | START+17! |
| DGTEXT | REMOVE+6~, REMOVE+25*, REMOVE+28 |
| DGTEXT( | REMOVE+19* |
| DGTEXT(1 | REMOVE+27* |
| DGX | REMOVE+6~, REMOVE+17*, REMOVE+18*, REMOVE+19 |
| DGXNUM | START+1~, START+19*, START+20, REMOVE~, REMOVE+9, REMOVE+12 |
| DGXRF | START+1~, START+18*, START+19, START+20, FIND~, FIND+12, REMOVE~, REMOVE+9, REMOVE+27 |
| LINE | START+1~, START+6*, START+8, START+9, START+16*, START+18 |
| MSG | START+1~, REMOVE+6~, REMOVE+9*, REMOVE+10 |
| RSLT | START+1~ |
| U | FIND+12, REMOVE+8, REMOVE+19 |
| X | START+1~ |
| XX | FIND+8~, FIND+10*, FIND+11*, FIND+12 |
| Y | START+1~ |
