HP Business BASIC/XL Reference Manual - HP 3000 MPE/iX Computer Systems - Edition 1 (32715-90001)

4- 84
Examples
The following examples show the MAT READ statement. Each reads a group
of arrays into array variables. In lines 100 and 120, the entire arrays
are read, and in lines 110 and 130 selected elements are read.
100 MAT READ #1; A,B,C$
110 MAT READ #2; A(1:3),B(0:4,0:6),C$(3,4,5,6)
120 MAT READ #1,7; D$
130 MAT READ #4,6,2; Q,P(9,9),R
If array A has four elements, the following statements are equivalent:
100 MAT READ #1; A
100 READ #1; A(*)
100 READ #1; A(1),A(2),A(3),A(4)
100 READ #1; (FOR I=1 TO 4, A(I))
NEXT
The NEXT statement is part of the FOR construct. Refer to the FOR
statement for more information.
OFF DBERROR
The OFF DBERROR statement deactivates any ON DBERROR statement that
affects the program unit containing the OFF DBERROR statement.
Syntax
OFF DBERROR
If the program unit containing an OFF DBERROR statement calls another
program unit, then the ON DBERROR statement is inactivated in the called
program unit also.
If the OFF DBERROR statement is in a called subunit, the ON DBERROR
statement is reactivated when control returns to the calling program
unit.
OFF END
The OFF END statement disables the ON END statement.
Syntax
OFF END #fnum
Parameters
fnum The file number that the OFF END affects. This is the
same fnum specified in the ON END statement.
It disables the ON END statement that specifies the same fnum .
Examples
100 ASSIGN #1 TO "File1"
110 ASSIGN #2 TO "File2a"
120 ASSIGN #3 TO "File3"
130 ON END #1 GOTO 999
140 ON END #2 GOSUB 200 !ON END statement for file #2
150 ON END #3 CALL End3
160 READ #1; A1,B1,C1
170 READ #2; A2,B2,C2
180 READ #2; D,E,F
190 READ #3; A3,B3,C3
195 STOP