Gang;

I get this error:

 AT 430, JOBNUMI: 31456499
 **** Integer overflow (TRAPS 27).

 ABORT: FAC201F.EXE.PROD
        PC=aa8.00009958 _start+$3468
 NM* 0) SP=41852630 RP=aa8.00000000
      (end of NM stack)
 R0 =00000000 467df820 00009947 418525c0 R4 =d44d4018 00000001 00000000
00000000

 R8 =00000000 00000000 00000000 00000000 R12=00000000 00000000 00000000
00000000

 R16=00000000 00000000 00000000 01dffcf1 R20=01dffcf1 000003bf c01075a0
0000001a

 R24=00001000 d44d2018 00000000 41644000 R28=00000000 467df820 41852630
01dffcf3


 IPSW=0024ff0f=jthlNxbCvmrQPDI  PRIV=3   SAR=0010 PCQF=aa8.995b   aa8.995f

 SR0=0000000a 00000000 00000000 00000000 SR4=00000aa8 00000614 0000000b
0000000a

 TR0=00000001 00000005 00851278 d5457000 TR4=853816f4 418537d8 0022c4e4
0000000f

 PID1=01fe=00ff(W) PID2=0000=0000(W)     PID3=0000=0000(W) PID4=0000=0000(W)

 RCTR=00000000 ISR=00000aa8 IOR=000003c0 IIR=b2a03802 IVA=00148000
ITMR=618e55c6

 EIEM=ffffffff EIRR=00000000 CCR=0000

For this code:

  430 CONTINUE
      PRINT *,"AT 430, JOBNUMI:",JOBNUMI
      JOBNUMI = JOBNUMI - 2J
C      JOBSAVEC = STR(JOBNUMI,8)
MIGF66
C      WRITE(JOBSAVEC ,'(I8)') JOBNUMI
MIGF77
      N=ASCII(JOBNUMI,-10,JOBSAVEC)
      IF (N .LT. 8) THEN
          DO I=10-N,1,-1
              JOBSAVEC(I:I) = "0"
          END DO
      ENDIF
      PRINT *,"AT 430, JOBNUMI=",JOBNUMI," JOBSAVEC=",JOBSAVEC


JOBNUMI is an INTEGER*4.  As you can see, we never get to the second PRINT
statement.

Any assistance is 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 *