Re: need help to figure out why I'm getting EXCP=2 when I (IMHO) don't think CO

[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]

Posted by Robert G Laurin on September 22, 2010 at 06:49:19:

In Reply to: need help to figure out why I'm getting EXCP=2 when I (IMHO) don't think COMET posted by Bob A on September 21, 2010 at 14:35:20:

I've been using a different approach altogether for years.

First clear the KEY$ variable and try your KEY( ) Statement. If it fails, the KEY$ variable do9es not change (still empty).

Would look like this:


!=====================
RETRIEVE.NEXT.C1ADIST:
!=====================
C1ADIST.AT.EOF$ = N.ANS$
RC.GOOD.KEY$ = Y.ANS$
C1ADIST.KEY.BREAK$ = N.ANS$

! ----- Add This Line

C1ADIST.KEY$ = "" ! Clear old Value

! -----

C1ADIST.KEY$ = KEY(C1ADIST,EXCPSUB=EXCPSUB.KEY)
.ifdef TESTING
NR.OF.LINES.TRACED = NR.OF.LINES.TRACED + 1
IF NR.OF.LINES.TRACED MOD 55 EQ 0 THEN PRINT (1) (FF)
EXCP$ = STR(EXCP)
PRINT (1,DUMP.KEY)
.endif

! ----- Replace this line -----

!! IF EXCP EQ excp02EndOfFile THEN

! ----- with -----

IF C1ADIST.KEY$ = "" THEN ! Oops, got nothing back = EOF

! ----- Et voila !! -----

C1ADIST.AT.EOF$ = Y.ANS$
RETURN
ENDIF
IF RC.GOOD.KEY$ EQ N.ANS$ THEN RETURN
RC.GOOD.INQUIRE$ = Y.ANS$


Follow Ups:


Post a Followup

Name:
E-Mail:

Subject:

What is the name of the main Signature System's Product?  

Comments:

Optional Link URL:
Link Title:
Optional Image URL:

You may attach up to 5 files to your followup (see below):





Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.

[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]