GMRCTU ; SLC-SLC/PKS Consults - Terminated users/remove pointers. ; [2/8/00 11:15am]
Source file <GMRCTU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry point - called by option: CONSULT TERMINATE CLEANUP.
|
|
| FINDVAL | ; See if VALUE (desired USER) exists in the record.
|
|
| CALLDIE | ; Set FM variables and call DIE.
|
|
| MAIN | ; Outer FOR loop to scan file for IENs, deleting pointer entries.
|
|
| START(USER) | ;Control sequence for complete process.
|
|
| TEXT | ; Make entries below for new files/fields for pointer removal.
; DO NOT remove or change the last line. ; Enter comma-delimited lists using DD "pointers in" format: ; Filenumber,Fieldnumber,EntryPersonLocation/Initials |
|
| CLNLIST(ORLTEAM,ORLTASK) | ; Clean out pointers to 100.21 from 123.5 when a Team List is deleted.
|
|
| KPOINT | ; Set variables and call DIK to kill the pointer entry.
|
