Gang;

And by SPIFFY, I don't mean in the sense of good, cool, neato, etc.

SPIFFY is a Boeing-developed FORTRAN pre-processor.  According to the
manual, this code:

C     *****************************************************************
00525000
C     ***       SEARCH THE DORGN DATA SET LOOKING FOR ACTUALS       ***
00526000
C     *****************************************************************
00527000
C
00528000
      CALL DBFIND(BASE,DSDORGN,MODE1,STATUS,ORGNITEM,ORGNKEY)
00529000
C
00530000
      IF (CONDWORD.NE.0) GO TO 800
00531000
C
00532000
      UNTIL (CONDWORD.EQ.15 .OR. AREGHRS.NE.0 .OR. AOVTHRS.NE.0
00533000
     X   .OR. ADOLLARS.NE.0)  DO
00534000
C
00535000
          CALL DBGET(BASE,DSDORGN,MODE5,STATUS,LALL,DORGN,DUMMY)
00536000
          IF (CONDWORD.NE.0 .AND. CONDWORD.NE.15) GO TO 800
00537000
      ENDDO
00538000

Should be hunky-dorey.  However, I get this error:

 >>ENDDO      WITHOUT A CORRESPONDING LOOP
 >>WARNING.  LEVEL COUNTER RESET TO ZERO.

when compiled.

Any assistance would be appreciated.

TIA,
Don Harrington
Sr. Systems Analyst
Facilities Applications Support
Shared Services Group
The Boeing Company
P.O. Box 3707 M/C 6C-AK
Seattle, WA  98124-2207
(v) 425-234-1145 (f) 425-234-0464 (p) 206-797-6360

The opinions expressed in this e-mail reflect those of the sender.  They do
not necessarily reflect the opinions of The Boeing Company unless
specifically stated otherwise.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *