Re: %EQUAL in a DOU loop

[Scott Klement <klemscot@xxxxxxxxxxxx>]

> The program seems to crash in the routine below.  I know that there
> aren't any records with 999 lines of notes.  I'm thinking that maybe the
> program keeps looping. Am I missing something in the code below that
> would cause this routine to keep looping?

The only thing I can think of that would cause this to keep looping would
be if KF_LINE is not part of the FILEKEY15.

Why such convoluted code?  I mean, you're checking the value of %EQUAL
once before the loop, and then 3 more times during the loop.  You can
accomplish the same thing with only one check of %EQUAL, and with much
less code like this:

     c                   eval      KF_LINE = 1

     c     FILEKEY15     setll     FILE15

     c                   dow       %EQUAL
     c                   eval      KF_LINE = KF_LINE + 1
     c     FILEKEY15     setll     FILE15
     c                   enddo