Gang;
OK, now that I am actually getting a 'too many files open' error, how do I
keep the FNUM from rising so high? I'm closing the files each time (see
code snippet). Again, please reply to me as well as to the list, as I do
not get all list-directed messages.
Code snippet:
PRINT *,"AFTER LISTF, IERR:",IERR," IPARM:",IPARM
C CALL FSET(FNUM13,FSET13,IERR)
C CALL FSET(FNUM14,FSET14,IERR)
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) ! REWIND
CALL UNITCONTROL(14,8) ! CLOSE
CALL UNITCONTROL(13,8) ! CLOSE
CLOSE (13,STATUS="K",IOSTAT=IERR)
PRINT *,"AT CLOSE OF 13, IERR:",IERR
CLOSE (14,STATUS="K",IOSTAT=IERR)
PRINT *,"AT CLOSE OF 14, IERR:",IERR
C REWIND 14
270 CONTINUE
C PRINT *,"READ #14 AT 270"
READ (14,820,END=280) EJOB,YYEWEEK,ESKILL,EPROJ,EHRSCHED,
X RECNO
Starts like this:
AFTER READ #2 AT 130, TYPE=A FILENUM= 12 JOB=11014030
AFTER READ #2 AT 130, TYPE=A FILENUM= 12 JOB=11014030
AFTER READ #2 AT 130, TYPE=A FILENUM= 12 JOB=11014030
AFTER READ #2 AT 130, TYPE=A FILENUM= 12 JOB=11014030
AFTER FILE, IERR: 0 IPARM: 0
AT 260, FNUM(13): 21 FNUM(14): 22 KEYS: 1 8 0 9 8 0 17 3 0
AFTER LISTF, IERR: -3289 IPARM: 0
AT CLOSE OF 13, IERR: 0
AT CLOSE OF 14, IERR: 0
AFTER READ #2 AT 130, TYPE=A FILENUM= 12 JOB=11014030
AFTER FILE, IERR: 0 IPARM: 0
AT 260, FNUM(13): 44 FNUM(14): 45 KEYS: 1 8 0 9 8 0 17 3 0
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
AT CLOSE OF 13, IERR: 0
AT CLOSE OF 14, IERR: 0
AFTER READ #2 AT 130, TYPE=A FILENUM= 12 JOB=11014030
AFTER FILE, IERR: 0 IPARM: 0
AT 260, FNUM(13): 47 FNUM(14): 48 KEYS: 1 8 0 9 8 0 17 3 0
Ends like this:
AT CLOSE OF 13, IERR: 0
AT CLOSE OF 14, IERR: 0
AFTER READ #2 AT 130, TYPE=E FILENUM= 16 JOB=81495302
AFTER FILE, IERR: 0 IPARM: 0
AT 260, FNUM(13): 1019 FNUM(14): 1020 KEYS: 1 8 0 9 8 0 17 3 0
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
AT CLOSE OF 13, IERR: 0
AT CLOSE OF 14, IERR: 0
AFTER READ #2 AT 130, TYPE=E FILENUM= 16 JOB=81495302
AFTER FILE, IERR: 0 IPARM: 0
AT 260, FNUM(13): 1022 FNUM(14): 1023 KEYS: 1 8 0 9 8 0 17 3 0
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
**** INTERNAL TRAP
Data PAGE Fault
[VSM] Invalid Pointer Error
ABORT: FAC201F.EXE.PROD
File error: #71
File system error opening an old file. (error #1302)
TOO MANY FILES OPEN (FSERR 71) [BATCHDBG.STDIN.SYS]
$2 ($ef) nmdebug >
c
Program terminated in an error state. (CIERR 976)
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 *
|