Re: CHAIN vs. SETLL (was Re: DOW vs DOU)

[John Carr <74711.77@xxxxxxxxxxxxxx>]

Greg  said

<Large Snip>

>
>And now for some real fun, lets debate:
>
>*IN90   DOWEQ*OFF
>KEY1    DELETRCD1        90
>        ENDDO
>
>as opposed to:
>
>KEY1    SETLLRCD1
>KEY1    READERCD1        90
>*IN90   DOWEQ*OFF
>        DELETRCD1
>        READERCD1        90
>        ENDDO
>
>or in your case, Dave :)
>
>KEY1    CHAINRCD1    90
>*IN90   DOWEQ*OFF
>        DELETRCD1
>        READERCD1        90
>        ENDDO
>
>Adding fuel to the fire and fanning the flames.....
>-------------------------
>Greg Thielen<



Personally  I find them all bulky.   The following works even if I don't have
that index being
used in my program.

C/EXEC-SQL
C+                                DELETE   FROM RECD1
C+                                 WHERE   filefieldname  =  :KEY1
C/END-EXEC

Of  course if I were to use a loop  I would use the more correct one.
That being  a SETLL/DOU/LEAVE   loop,   but we've heard that before.   ITER
,ITER

John Carr   CDP
EdgeTech   

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *