ADJUSTUSLF

NOTE: A USL contains CM object code and is meaningful only in the CM program development process.

Syntax

  I16                      I16V     I16V
  uslferror := ADJUSTUSLF (uslfnum, adjustment);

Functional Return

uslferror

16-bit signed integer (assigned functional return)

Returns the error number if an error occurs (condition code returns CCL (1)). If no error occurs, no value is returned. The error number returned corresponds to the following:

Value

Meaning

0

The file specified by uslfnum was empty, an unexpected end-of-file was encountered while reading the uslfnum, or an unexpected end-of-file was encountered while writing the uslfnum.

1

Unexpected I/O error occurred.

4

Request exceeds the maximum file directory size (32,768 half words).

5

Insufficient directory space.

6

Insufficient USL file information block space.

Parameters

uslfnum

16-bit signed integer by value (required)

Passes the file number of the USL file (returned by FOPEN/HPFOPEN).

increment

16-bit signed integer by value (required)

Returns the assigned record count:

• If a positive value, the information block is moved toward the end-of-file in the USL file, increasing the directory block and decreasing the information block.

• If a negative value, the information block is moved toward the start of the USL file, decreasing the directory block and increasing the information block.

Condition Codes

CCE (2)

Request granted.

CCG (0)

Not returned.

CCL (1)

Request denied. An error number was returned to uslferror indicating the reason for this failure.

Related Information

Intrinsics

CLEANUSL, EXPANDUSLF, INITUSLF

Manuals

MPE Segmenter Reference Manual