The SET statement sets values of indexes associated with table
  elements.  It can also change the value of a conditional variable,
  change the status of an external switch, and store the address of a
  COBOL identifier reference at run time.

1  –  1format TO

  The SET statement sets values of indexes associated with table
  elements.  It can also change the value of a conditional variable,
  change the status of an external switch, and store the address of a
  COBOL identifier reference at run time.

  Format 1 -

  SET { rsult } ... TO val

1.1  –  rsult

  is an index-name, the identifier of an index data item, or an
  elementary numeric data item described as an integer.

1.2  –  val

  is a positive integer, which may be signed.  It can also be an
  index-name (or the identifier of an index data item) or an elementary
  numeric data item described as an integer.

2  –  2format UP DOWN

  The SET statement sets values of indexes associated with table
  elements.  It can also change the value of a conditional variable,
  change the status of an external switch, and store the address of a
  COBOL identifier reference at run time.

  Format 2 -

   SET { indx } ... { UP BY   } increm
                    { DOWN BY }

2.1  –  indx

  is an index-name.

2.2  –  increm

  is an integer, which may be signed.  It can also be the identifier of
  an elementary numeric data item described as an integer.

3  –  3format_cond-name

  The SET statement sets values of indexes associated with table
  elements.  It can also change the value of a conditional variable,
  change the status of an external switch, and store the address of a
  COBOL identifier reference at run time.

  Format 3 -

   SET { cond-name } ... TO TRUE

3.1  –  cond-name

  is a condition-name that must be associated with a conditional
  variable.

4  –  4format_switch-name

  The SET statement sets values of indexes associated with table
  elements.  It can also change the value of a conditional variable,
  change the status of an external switch, and store the address of a
  COBOL identifier reference at run time.

  Format 4 -

   SET { { switch-name } ... TO { ON  } } ...
       {                        { OFF } }

4.1  –  switch-name

  is the name of an external switch defined in the SPECIAL-NAMES
  paragraph.

5  –  5format REFERENCE

  The SET statement sets values of indexes associated with table
  elements.  It can also change the value of a conditional variable,
  change the status of an external switch, and store the address of a
  COBOL identifier reference at run time.

  Format 5 -

   SET { pointer-id } ... TO REFERENCE OF identifier

5.1  –  pointer-id

  is a data-name whose data description entry must contain the USAGE IS
  POINTER or POINTER-64 clause.

5.2  –  identifier

  is a data item in the File, Working-Storage, Linkage Section, or
  Sub-Schema Section.

6  –  6format SUCCESS FAILURE

  The SET statement sets values of indexes associated with table
  elements.  It can also change the value of a conditional variable,
  change the status of an external switch, and store the address of a
  COBOL identifier reference at run time.

  Format 6 -

   SET status-code-id TO { SUCCESS }
                         { FAILURE }

6.1  –  status-code-id

  is a word or longword integer data item represented by PIC S9(1) to
  S9(9) COMP.