I think the max number of open files within a single process is 1,024. Out
of that, you have to substract 8 standard files ($STDIN, $STDLIST, etc),
which leaves you with 1,016 files opened by the process itself. Out of
these, filenum# 8 is the program file itself, and you have to allow for SLs
if any, spoolfiles if any, etc.

That leaves you with slightly over 1,000 explicitly process-opened files.

Christian Lheureux
Responsable du Département Systèmes et Réseaux / Head of Systems and
Networks Department
APPIC R.H.
business partner hp invent
Tel : +33-1-69-80-97-22   /   Fax : +33-1-69-80-97-14 / e-mail :
[log in to unmask]
"Le Groupe APPIC recrute, contactez nous !"



> -----Message d'origine-----
> De : HP-3000 Systems Discussion [mailto:[log in to unmask]]De la
> part de Harrington, Don
> Envoyé : samedi 2 février 2002 02:04
> À : [log in to unmask]
> Objet : [HP3000-L] FNUM Question
> Importance : Haute
>
>
> 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 *
>

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