HP 3000 Manuals HP 3000 Manuals
EXPANDUSLF
Changes length of a User Subprogram Library (USL) file.
SYNTAX
I IV IV
filenum:=EXPANDUSLF(uslfnum,records);
FUNCTIONAL RETURN
This intrinsic returns the new file number. If an error occurs, the
error number is returned instead of the new file number. The condition
code therefore must be tested immediately on return from this intrinsic.
If an error number were to be used as a file number, unpredictable
results would occur.
PARAMETERS
uslfnum integer by value.
A word identifier supplying the file number of the file.
records integer by value.
A signed integer specifying the number of records by
which the length of the USL file is to be changed. If
records is positive, the new USL file is longer than the
old USL file. If records is negative, the new USL file
is shorter than the old USL file.
CONDITION CODES
CCE Request granted. The new file number is returned.
CCG Not returned by this intrinsic.
CCL Request denied. One of the following error numbers is
returned:
Error No. Meaning
0 The file specified by uslfnum was
empty, or an unexpected end-of-file was
encountered when reading the old
uslfnum, or an unexpected end-of-file
was encountered when writing on the new
uslfnum.
1 Unexpected I/O error occurred. This
can occur on the old uslfnum or the new
uslfnum to which the intrinsic is
copying the information.
3 Your request attempted to exceed the
maximum file size (32,768 words).
6 Insufficient space was available in the
USL file information block.
7 The intrinsic was unable to open new
USL file.
8 The intrinsic was unable to close
(purge) the old USL file.
9 The intrinsic was unable to close
(save) the new USL file.
10 The intrinsic was unable to close
$NEWPASS.
11 The intrinsic was unable to open
$OLDPASS.