CDO> DEFINE PARTITION FIRST_BASELEVEL.
  CDO> DEFINE CONTEXT DEVELOPMENT_CONTEXT
  cont> BASE_PARTITION FIRST_BASELEVEL.
  CDO> SET CONTEXT DEVELOPMENT_CONTEXT
  CDO> DEFINE COLLECTION CLIENT.
  CDO> RESERVE COLLECTION CLIENT
  CDO> DEFINE FILE_ELEMENT MCS_TEXT_TOOL CLIENT_BUILD
  cont> STORETYPE INTERNAL. END.
  CDO> RESERVE FILE_ELEMENT MCS_TEXT_TOOL CLIENT_BUILD
  CDO> FETCH FILE_ELEMENT MCS_TEXT_TOOL CLIENT_BUILD(1)
  cont> TO BLD$:BUILD_CLIENT.COM
  CDO> REPLACE FILE_ELEMENT MCS_TEXT_TOOL CLIENT_BUILD

      In certain circumstances, you may want to use the FETCH command
      instead of the OPEN and CLOSE commands. This example shows how
      to use the FETCH command to access the contents of an earlier
      version of a file element that is currently reserved.