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 |
