Gang;
Is there a limit to the value FNUM can hold? I'm trying to figure out why
this code:
MESSAGE80="PURGE TEMP14,TEMP"//RETURNC
CALL COMMAND (MESSAGE80,IERR,IPARM)
C PRINT *,"AFTER PURGE, IERR:",IERR," IPARM:",IPARM
MESSAGE80="FILE FTN14=TEMP14,NEW;TEMP;REC=-30,,F,ASCII;DISC=500"//
+ RETURNC
CALL COMMAND (MESSAGE80,IERR,IPARM)
PRINT *,"AFTER FILE, IERR:",IERR," IPARM:",IPARM
PRINT *,"AT 260, FNUM(13):",FNUM(13)," FNUM(14):",FNUM(14),
+ " KEYS:",KEYS
MESSAGE80="LISTFTEMP TEMP@,2"//RETURNC
CALL COMMAND(MESSAGE80,IERR,IPARM)
PRINT *,"AFTER LISTF, IERR:",IERR," IPARM:",IPARM
INFILES(1)=FNUM(13)
INFILES(2)=0
OUTFILES(1)=FNUM(14)
OUTFILES(2)=0
REWIND 13
CALL SORTINIT(INFILES,OUTFILES,,,,3,LKEYS,,,,,FAILURE,IPARM)
IF (FAILURE) THEN
C PRINT *,"AFTER SORTINIT, FALIURE:",FAILURE," IPARM:",IPARM
CALL SORTERRORMESS (IPARM,MESSAGE80,N)
C PRINT *,"SORT ERROR:",MESSAGE80
GO TO 280
ENDIF
CALL SORTEND
C PRINT *,"AFTER SORTEND, FAILURE:",FAILURE
IF (FAILURE) GO TO 280
CALL UNITCONTROL(14,-1)
CALL UNITCONTROL(13,8)
C REWIND 14
270 CONTINUE
C PRINT *,"READ #14 AT 270"
READ (14,820,END=280) EJOB,YYEWEEK,ESKILL,EPROJ,EHRSCHED,
X RECNO
RECCNT = RECCNT + 1
works until I get to this point:
AFTER READ #2 AT 130, TYPE=P FILENUM= 18 JOB=71019500
AFTER FILE, IERR: 0 IPARM: 0
AT 260, FNUM(13): 1018 FNUM(14): 1020 KEYS: 1 8 0 9 8 0 17 3 0
(7392/7451) Continue?
TEMPORARY FILES FOR MGR.PROD,PUB
ACCOUNT= PROD GROUP= PUB
FILENAME CODE ------------LOGICAL RECORD----------- ----SPACE----
SIZE TYP EOF LIMIT R/B SECTORS #X MX
TEMP13 30B FA 5 500 1 64 1 32 (TEMP)
AFTER LISTF, IERR: 0 IPARM: 0
AFTER READ #2 AT 130, TYPE=P FILENUM= 18 JOB=71019500
AFTER FILE, IERR: 0 IPARM: 0
*** FORTRAN I/O ERROR 908: COULD NOT OPEN FILE SPECIFIED
where the program is trying to read #14.
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 *
|