C C ************************ C * [311,77]EMPLYINT.FTN * C ************************ C C------- INITIALIZE EMPLOYEE NAME FILES C C TWO FILES ARE USED: C C LB0:[70,24]EMPLPTR.DAT C THIS FILE IS A DIRECT ACCESS FILE THAT IS ACCESSED C BY EMPLOYEE NUMBER. THE VALUE OF THE ONE WORD C RECORD IS THE RECORD NUMBER IN THE EMPLOYEE NAME FILE. C C LB0:[70,24]EMPLNAM.DAT C THIS FILE IS A DIRECT ACCESS FILE CONTAINING EMPLOYEE C NUMBERS AND NAMES. THE FILE IS IN A RANDOM ORDER. C C------- INTIALIZE THE POINTER FILE TO ALL ZEROS DEFINE FILE 1 (12289,1,U,LKJI) CALL ASSIGN (1,'LB:[70,24]EMPLPTR.DAT') CALL FDBSET (1,'NEW') K=0 DO 200 I=1,12288 WRITE(1'I) K 200 CONTINUE C C------- INITIALIZE THE LAST RECORD OF THE POINTER FILE TO C POINT TO THE NEXT AVAILABLE RECORDS IN THE NAME FILE OPEN (UNIT=2,NAME='LB0:[70,24]EMPLNAM.DAT',TYPE='NEW', 1 ACCESS='DIRECT',RECORDSIZE=8) L = 1 WRITE(1'12289) L CALL EXIT END