Using KSAM/XL and KSAM 64 (32650-90886)

Appendix B 245
BASIC/V Intrinsics
BKOPEN
80 REM
90 REM THE KSAM/3000 FILE WAS BUILT WITH:
100 REM REC=-80,16,F,ASCII
110 REM KEY=B,2,2,,DUP
120 REM SO,RECORD LENGTH IS 80 BYTES, FIXED, TYPE ASCII, 16 REC/BLOCK.
130 REM THE KEY IS 2 CHARACTERS LONG,STARTING IN CHARACTER 2 OF RECORD
135 REM
140 REM ********************************************************
145 REM * OPEN A KSAM FILE *
150 REM ********************************************************
160 REM
170 REM THE FILE NAME IS IN N$
175 REM THE STATUS OF THE CALL IS RETURNED IN S$
180 REM WHEN SUCCESSFUL, BKOPEN RETURNS A FILE NUMBER IN F
190 REM INPUT-OUTPUT ACCESS IS SPECIFIED IN J
200 REM DYNAMIC LOCKING IS ALLOWED IN D
210 REM SEMI-EXCLUSIVE ACCESS IS INDICATED IN E
220 REM
240 N$="KNAME,ACCOUNT,GROUP" <---------- file name
250 J=3 <-------- access is read/write
260 D=1 <------------------------------- dynamic locking allowed
270 E=3 <-------- access shared
280 CALL BKOPEN(F,S$,N$,J,D,E)
290 REM
300 REM NOW DETERMINE WHETHER THE CALL SUCCEEDED:
310 REM
320 IF S$[1;1]<>"0" THEN DO
330 REM S$ IS THE STATUS CODE SET BY THE CALL TO BKOPEN
340 REM N$ IS THE NAME OF THE FILE
350 PRINT "UNABLE TO OPEN ";N$;" ERROR ";S$[1;1];"DETAIL "LS$[2]
360 CALL BKERROR(S$,M$)
370 PRINT M$
380 GOTO 3620 <-------- to close the file
390 DOEND
400 REM
410 REM THE PROGRAM CONTINUES