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:

Value	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	Unable 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

Related Information