EXPANDUSLF

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

Syntax

  I16                    I16V     I16V
  filenum := EXPANDUSLF (uslfnum, increment);

Functional Return

filenum

16-bit signed integer (optional)

Returns the new file number. If an error occurs (condition code returns CCL (1)), an error number is returned. The condition code must be tested immediately upon return from this intrinsic. If an error number is used instead of a file number in the uslfnum parameter, unpredictable results occur. Following are the possible error numbers and their meanings:

VaIue

Meaning

0

File specified by uslfnum was empty, an unexpected end-of-file was encountered when reading the old USL file, or an unexpected end-of-file was encountered when writing the new uslfnum

1

Unexpected I/O error occurred; can occur on the old USL file, or the new uslfnum where the information is being copied to

7

Unable to open the new USL file

8

IUnable to close (purge) the old USL file

9

Unable to close (save) the new USL file

10

Unable to close $NEWPASS

11

Unable to open $OLDPASS

Parameters

uslfnum

16-bit signed integer by value (required)

Passes the file number of the file.

increment

16-bit signed integer by value (required)

Passes the number of records the length of the USL file is to be changed:

• If a positive value, the new USL file is longer than the old USL.

• If a negative value, the new USL file is shorter than the old USL.

Condition Codes

CCE (2)

Request granted. The new file number is returned.

CCG (0)

Not returned.

CCL (1)

Request denied. An error number was returned to filenum.

Related Information

Intrinsics

ADJUSTUSLF

Manual

MPE Segmenter Reference Manual