I am getting a Fatal Error Exception code: C0000005 on the '*' line of the following code.

lParam typeOfResult, whatName
Local nextProgramIndex
nextProgramIndex = 1

getProgramDataIndexString = "Select recseq From engpmtbl20"
		
If SQLEXEC(esglobal.as400_connection2, getProgramDataIndexString, 'getProgramDataIndexQuery') <> -1 Then

If reccount('getProgramDataIndexQuery') > 0 Then
Select Max(recseq) As recseq From getProgramDataIndexQuery InTo Cursor getProgramDataIndexQuery2

If reccount('getProgramDataIndexQuery2') > 0 Then
* nextProgramIndex = getProgramDataIndexQuery2.recseq
Return nextProgramIndex + 1
Else
Return 1
EndIf
Else
Return 1
EndIf
				
Else
If Aerror(esglobal.globalerrorflag) > 0 Then
	MessageBox(esglobal.globalerrorflag(2))
EndIf
Return 0 &&Logon Support is not running
EndIf