CLEANUSL

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

Syntax

  I16                  I16V     CA
  filenum := CLEANUSL (uslfnum, formaldesig);

Functional Return

filenum

16-bit signed integer (assigned functional return)

Returns the new file number, if no error occurs, or if an error occurs condition code returns CCL (1) and filenum returns one of the following:

VaIue

Meaning

0

Unexpected end-of-file (EOF) marker on either the old or the new USL file

1

Unexpected I/O error on either the old or the new USL file

7

Unable to open new USL file

12

Invalid USL file

Parameters

uslfnum

16-bit signed integer by value (required)

Returns the file number of the file.

formaldesig

character array (required)

Passes the name to be given to the cleaned file. The array must end with a blank. If it contains all blanks, it deletes the inactive entries.

Condition Codes

CCE (2)

Request granted. The new file number is returned to filenum.

CCG (0)

Not returned.

CCL (1)

Request denied. An error number is returned to filenum.

Related Information

Intrinsics

ADJUSTUSLF, EXPANDUSLF, INITUSLF

Manual

MPE Segmenter Reference Manual