EXTERNALROUTINE FACS(STRING (255)S) EXTERNALINTEGERFNSPEC DCONNECT(STRING (6)U, STRING (11)F, C INTEGER FSYS, MODE, APF, INTEGERNAME SEG, GAP) INTEGER J, SEG, GAP, A INTEGERARRAYNAME F INTEGERARRAYFORMAT FF(0:1016) CONSTSTRING (6)FILE = "FCOUNT" CONSTSTRING (6)USER = "VOLUMS" CONSTINTEGER TOP J = 95 CONSTSTRING (33)ARRAY PROC(1:TOP J) = C "ACREATE2", "BADPAGE", "DACCEPT", "DASYNCINH", "DBITMAP", "DBITMAP2", "DCHACCESS", "DCHECKBPASS", "DCHSIZE", "DCLEARINTMESSAGE", "DCONNECT", "DCPUTIME", "DCREATE", "DDELAY", "DDELUSER", "DDESTROY", "DDISABLETERMINALSTREAM1", "DDISCONNECT", "DDONATE", "DDUMP", "DEMPTYI", "DENABLETERMINALSTREAM", "DERR2", "DERRS", "DEXECMESS", "DFILENAMES", "DFINFO", "DFSTATUS", "DFSYS", "DGETDA", "DINDEX", "DINDEX2", "DINDNO", "DISCID", "DLOCK", "DLOWERACR", "DMAGCLAIM", "DMAGIO", "DMAIL", "DMESSAGE", "DMESSAGE2", "DMODARCH", "DMODE", "DMONITOR", "DMON", "DNEWARCHINDEX", "DNEWGEN", "DNEWINWARDCALL", "DNEWOUTWARDCALL", "DNEWUSER", "DNINDA", "DNOMINATESTACK", "DOFFER", "DOPERR", "DOPER", "DOPERPROMPT", "DOUT", "DOUT11", "DOUT18", "DPERMISSION", "DPLUGINJVECTOR", "DPOFF", "DPON", "DPON2", "DPON3", "DPRG", "DPRINTSTRING", "DPROCS", "DPVM", "DRENAME", "DRENAMEINDEX", "DREPLACE", "DREPLACEINDEX", "DRESETCONTINGENCY", "DRESTORE", "DRESUME", "DSETIC", "DSFI", "DSPOOL", "DSTOP", "DSYSAD", "DTOFF", "DTRANSFER", "DUNLOCK", "DUNPRG", "DXDUMPI", "FBASE", "GETAVFSYS", "GETUSNAMES", "GETUSNAMES2", "PRIMECONTINGENCY", "PRINTMP", "READID", "S#OPER", "SETDIRMON" SEG = 0 GAP = 0 J = DCONNECT(USER, FILE, -1, 11, 0, SEG, GAP) IF J = 0 OR J = 34 START A = SEG << 18 + 32 F == ARRAY(A, FF) CYCLE J = 1, 1, TOPJ IF F(J) > 0 START WRITE(F(J), 6) PRINTSTRING(" " . PROC(J)) NEWLINE FINISH REPEAT FINISH ELSE START PRINTSTRING("FLAG =") WRITE(J, 1) NEWLINE FINISH END ENDOFFILE