EASXDRPT ;ALB/AEG - DUP PT RELATION REPORT ;7-12-02
Source file <EASXDRPT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
RPT | ; Option Entry Point.
|
|
EN1 | ; Device Handler.
|
|
START | ;
|
|
INIT | ; Setup scratch globals and initialize processing.
|
|
FIND | ; Search for potential dups in file #408.12
|
|
ACTIVE(REC12) | ; Is relation entry active ?
|
|
PURGE | ; Purge non-duplicate from temp globals.
|
|
MORE | ; Purge of non-dups continued.
|
|
NAME | ; Check names
|
|
QUIT | ; Cleanup and quit.
|
|
STOPIT | ;
|
|
QUEIT | ; Que task
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^DGPR(408.12 - [#408.12] | GET1^DIQ |
408.1275 | GET1^DIQ |
^DGMT(408.31 - [#408.31] | GET1^DIQ |
^DG(408.33 - [#408.33] | GET1^DIQ |