HP3000-L Archives

October 2001, Week 3

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Any SPIFFY Programmers Out There?
From:
"Shahan, Ray" <[log in to unmask]>
Reply To:
Shahan, Ray
Date:
Wed, 17 Oct 2001 11:08:38 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (75 lines) 
It's been way to many years ago for me and FORTRAN, but don't you need a DO
UNTIL (or was it DOUNTIL)  instead of just UNTIL at line 528000?

> -----Original Message-----
> From: Harrington, Don [SMTP:[log in to unmask]]
> Sent: Wednesday, October 17, 2001 10:26 AM
> To:   [log in to unmask]
> Subject:      Any SPIFFY Programmers Out There?
>
> 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 *

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

ATOM RSS1 RSS2