This procedure deletes an existing convention definition from the *SYSTEM/CONVENTIONS file. The convention is deleted after the next halt/load.

Note that this procedure can be used to delete only conventions that have been created by a user. Convention sets provided to you cannot be deleted.

Example

This example deletes a convention named Utopia from the conventions file.

BEGIN

 $ INCLUDE INTL="*SYMBOL/INTL/ALGOL/PROPERTIES." 10000000 - 49999999

  FILE OUT(KIND=DISK,UNITS=CHARACTERS,MYUSE=IO,FILETYPE=0,NEWFILE,
           MAXRECSIZE=80,TITLE="OUT/ALGOL/CNVDELETE.");
  DEFINE MAX_NAME_LEN        = 17#;    % Maximum length of convention
                                       % name
  EBCDIC ARRAY CNV_NAME[0:MAX_NAME_LEN - 1];
  INTEGER RESULT;

  REPLACE CNV_NAME BY "UTOPIA";
  RESULT := CNV_DELETE(CNV_NAME);
  WRITE(OUT,<"RESULT = ",J4>,RESULT);
  CLOSE(OUT,LOCK);
END.

Output

RESULT = 1

In this call, the parameters have the following meanings:

CNV_NAME is an EBCDIC array passed to the procedure. It contains the name of the convention to be deleted from the conventions file.

RESULT is an integer returned by the procedure. It indicates whether or not an error occurred during the execution of the procedure. An explanation of the error result values and messages can be found at the end of this section. The values returned by this procedure include: