>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