Routine: RMPR150P

Information

RMPR150P ;VM/RB - FIX PROBLEM FILE #660 ISSUES WITH NEGATIVE AMIS GROUPER COUNTER ;03/27/08

Source file <RMPR150P.m>

Name	Comments	DBIA/ICR reference
FIXAMIS	; Post install to correct negative AMIS GROUPER pointers/links caused by ; field GROUPER COUNTER in File #669.9 being set to zero and ; allowing negative pointers to be created.
BUILD
0	;FIND 660 RECORDS WITH NEGATIVE 'AMS' POINTERS
1
2
3
5
6
10
11
12
19
90	;correct any sites with NULL/negative AMIS GROUPER number and change to 99999999.
91
92
EXIT	;