ISO2002

Specifies that words reserved in the ISO2002 COBOL Standard are to be treated as reserved words, and changes the behavior of certain features to be compatible with that standard.

Syntax:

>>-.----.-.-ISO2002.-------.-.----><
   |    | |        +"<opt>"+ |
   +-/--+ +-NOISO2002--------+

Parameters:

<opt>
<opt> can be one of:
1
This is intended for backwards compatibility with Net Express and Server Express. It includes the following behaviors:
  • ANS85 PERFORM VARYING behavior.
  • Program names can be the same as data names.
  • The COMMUNICATION SECTION will not be recognized.
  • The class name in the INHERITANCE clause must be the specified ID in the REPOSITORY paragraph.
  • OCCURS ASCENDING/DESCENDING KEY cannot be an OBJECT REFERENCE.
  • SOURCE-COMPUTER/OBJECT-COMPUTER not allowed in a FACTORY or OBJECT paragraph.
  • CURSOR IS, CURRENCY SIGN, CRT clauses only allowed in outer level SPECIAL-NAMES paragraph.
  • ALPHABET, and other SPECIAL-NAMES clauses only allowed in a FACTORY or OBJECT paragraph.
  • CURRENCY SIGN SYMBOL literal-1 cannot be E or U.
  • ISO2002 additional values for the file status.
  • CLASS-ID WITH DATA behavior.
  • OBJECT-STORAGE not written to .cls/.ins files.
  • USAGE OBJECT REFERENCE cannot be EXTERNAL, REDEFINES or redefined, or have OCCURS DEPENDING ON.
  • Class names are not converted to lowercase.
  • CYCLE, PARAGRAPH, ONLY and RELATION are additional context sensitive words.
2
Note: This option is the equivalent of specifying ISO2002 without a parameter.
Includes all behaviors in ISO2002"1" and the following additional behaviors added since the release of Visual COBOL:
  • PROCEDURE DIVISION/CALL RETURNING behavior.
  • USAGE POINTER initialized to NULL.
  • VALUE clause extensions for OCCURS.

Properties:

Default: NOISO2002
Phase: Syntax check
$SET: Initial

Comments:

For maximum compatibility with the ISO2002 standard, you should also set the DIALECT"ISO2002" directive.