HP3000-L Archives

January 2002, 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:
DASCII in FORTRAN 77
From:
"Harrington, Don" <[log in to unmask]>
Reply To:
Harrington, Don
Date:
Fri, 18 Jan 2002 15:24:43 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (79 lines) 
Gang;

Why does this code:

  430 CONTINUE
      PRINT *,"AT 430, JOBNUMI:",JOBNUMI
      JOBNUMI = JOBNUMI - 2J
      PRINT *,"JOBNUMI- 2J:",JOBNUMI
C      JOBSAVEC = STR(JOBNUMI,8)
MIGF66
C      WRITE(JOBSAVEC ,'(I8)') JOBNUMI
MIGF77
      N=DASCII(JOBNUML,-10,JOBSAVEC)
      PRINT *,"AFTER DASCII, N:",N," JOBNUMI:",JOBNUMI,
     +    " JOBSAVEC:",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

produce this result:

 AT 430, JOBNUMI: 31402999
 JOBNUMI- 2J: 31402997
 AFTER DASCII, N: 8 JOBNUMI: 808597817 JOBSAVEC:71402999
 AT 430, JOBNUMI= 808597817 JOBSAVEC=71402999
 AT 420, DBGET OF MJOB:71402999 17
 AT 430, JOBNUMI: 808597817
 JOBNUMI- 2J: 808597815
 AFTER DASCII, N: 9 JOBNUMI: 959920177 JOBSAVEC:51402999
 AT 430, JOBNUMI= 959920177 JOBSAVEC=51402999
 AT 420, DBGET OF MJOB:51402999 17
 AT 430, JOBNUMI: 959920177
 JOBNUMI- 2J: 959920175
 AFTER DASCII, N: 9 JOBNUMI: 842019127 JOBSAVEC:51402999
 AT 430, JOBNUMI= 842019127 JOBSAVEC=51402999
 AT 420, DBGET OF MJOB:51402999 17
 AT 430, JOBNUMI: 842019127
 JOBNUMI- 2J: 842019125
 AFTER DASCII, N: 9 JOBNUMI: 825831730 JOBSAVEC:51402999
 AT 430, JOBNUMI= 825831730 JOBSAVEC=51402999
 AT 420, DBGET OF MJOB:51402999 17
 AT 430, JOBNUMI: 825831730
 JOBNUMI- 2J: 825831728
 AFTER DASCII, N: 9 JOBNUMI: 858863410 JOBSAVEC:81402999
 AT 430, JOBNUMI= 858863410 JOBSAVEC=81402999
 AT 420, DBGET OF MJOB:81402999 17
 AT 430, JOBNUMI: 858863410
 JOBNUMI- 2J: 858863408
 AFTER DASCII, N: 9 JOBNUMI: 909325360 JOBSAVEC:81402999
 AT 430, JOBNUMI= 909325360 JOBSAVEC=81402999
 AT 420, DBGET OF MJOB:81402999 17
 AT 430, JOBNUMI: 909325360
 JOBNUMI- 2J: 909325358
 AFTER DASCII, N: 9 JOBNUMI: 842347317 JOBSAVEC:81402999

???

Inquiring minds want to know!

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 *

ATOM RSS1 RSS2