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
Additional Information:
explode
extract