VSITKIL ;ISL/ARS,JVS - NON INTERACTIVE CHECK DEPENDENT ENTRY COUNT ;May 17, 2017@12:01
Source file <VSITKIL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
KILL(VSITKDFN) | ; ENTER THE VSIT YOU WANT CHECKED SET VSITKDFN=IEN
; VSITKDFN = Vsit Ien REQUIRED |
|
XIT | ;exit
|
|
DOC | ; This routine checks the dependent entry count of the VISIT file for
; accuracy. If it is not correct it is replaced with a correct count ; The count is determined by scanning each of the VISIT related ; files for entries that point to that VISIT. A count is incremented ; each time a "hit" is made. ; The user can enter the visit IEN and if there is not any entries ; pointing to the entry it is deleted. (not logically but totally) |
|
DEC(VISIT,VISUAL) | ;Test looking through DD to find fields pointing to the visit entries.
; VISIT=Visit ien to looked up and counted ; VISUAL= Set to 1 if you want and interactive display of what is found |
|
REF | ;Look for all of the regular cross references and other
|
|
REG | ;Look for regular cross references
|
|
QUE | ;CHECK OUT CROSS REFERENCE
|
|
COUNT(NPX,UPPER) | ;COUNT ENTRIES IN FILES AND SUB-FILES
|
|
COMP | ;COMPARE DEC WITH WHAT UTILITY SAYS
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^AUPNVSIT - [#9000010] | Classic Fileman Calls |