HP 3000 Manuals HP 3000 Manuals
ADJUSTUSLF
Adjusts directory space in a User Subprogram Library (USL) file.
SYNTAX
I IV IA
errnum:=ADJUSTUSLF(uslfnum,records);
FUNCTIONAL RETURN
This intrinsic returns an error number if the condition code is equal to
CCL.
PARAMETERS
uslfnum integer by value.
A word supplying the file number of the USL file (as
returned by FOPEN).
records integer by value.
A word supplying a signed record count. If records is
greater than zero, the information block is moved toward
the end-of-file in the USL file, increasing the space
available for the directory block and decreasing the
space available for the information block. If records
is less than zero, the information block is moved
toward the start of the USL file, decreasing
the directory-block space and increasing the
information-block space.
CONDITION CODES
CCE Request granted.
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.
4 Attempt to exceed maximum directory
size (32K words).
5 Insufficient directory space.
6 Insufficient space was available in the
USL file information block.