!****************************************************************************
!               SAMPLE PROGRAM TO DISPLAY FREE RECORDS
!                       IN AN ISAM FILE
!****************************************************************************
!DONATED BY GOLDEN CITY DATA SYSTEMS PTY LTD
!36 WATTLE STREET,BENDIGO VIC AUSTRALIA
!FOR USE BY AMUS MEMBERS
!
!
       MAP1 FILE'SPEC,S,30      ! FILE NAME
       MAP1 STATUS'FLAG,B,1     ! 0 = FILE FOUND   1 = FILE NOT FOUND
       MAP1 FREE'REC,S,6        ! NO OF FREE RECORDS IN FILE
       MAP1 FREE'INDEX,S,6      ! NO OF FREE INDEX BLOCKS
       MAP1 USED'REC,S,6        ! USED RECORDS IN FILE
!
START:
       PRINT TAB(-1,0)
       PRINT TAB(10,20);"ENTER FILENAME";TAB(10,35);
       INPUT,FILE'SPEC
       XCALL ISAM1,FILE'SPEC,FREE'REC,FREE'INDEX,USED'REC,STATUS'FLAG
       IF STATUS'FLAG # 0 GOTO START
       PRINT TAB(-1,0)
       TOTAL = (VAL(USED'REC)+VAL(FREE'REC))
       PRINT TAB(5,20);"DETAILS OF ";FILE'SPEC;" ARE";
       PRINT TAB(6,20);"***********";"******";"****";
       PRINT TAB(8,20);"MAX NO OF RECORDS ..";TOTAL USING "######"
       PRINT TAB(10,20);"LESS USED...........";VAL(USED'REC) USING "######"
       PRINT TAB(12,20);"                    ";"======"
       PRINT TAB(14,20);"AVAILABLE RECORDS   ";VAL(FREE'REC) USING "######"
       PRINT TAB(16,20);"                    ";"======"
       PRINT TAB(20,20);"FREE INDEX BLOCKS   ";VAL(FREE'INDEX) USING "######"

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.