替换文档中的数据

您可以在文档中放置书签，以定界可由稍后插入或删除的数据区域。 此方法允许您在文档中提供文本或其他数据的缺省项，如果您的应用程序发现没有可用于替换该文本或数据的数据，那么可以使用此方法。

1. 创建文档，指定要在文档开头使用的任何数据。
   对于此示例，将使用一些初始文本创建文档，并在变量 MYDOCREP 中返回其标记:

   EXEC CICS DOCUMENT CREATE
   DOCTOKEN(MYDOCREP)
   TEXT('Initial sample text. ')
   LENGTH(21)

2. 使用 DOCUMENT INSERT 命令指定第一个书签:

   EXEC CICS DOCUMENT INSERT
   DOCTOKEN(MYDOCREP)
   BOOKMARK('BMark1 ')

3. 使用 DOCUMENT INSERT 命令指定要替换的文本或其他数据的项:

   EXEC CICS DOCUMENT INSERT
   DOCTOKEN(MYDOCREP)
   TEXT('Text to be replaced. ')
   LENGTH(21)

4. 使用 DOCUMENT INSERT 命令指定关闭书签:

   EXEC CICS DOCUMENT INSERT
   DOCTOKEN(MYDOCREP)
   BOOKMARK('BMark2 ')

5. 使用 DOCUMENT INSERT 命令可添加要在文档末尾使用的任何数据:

   EXEC CICS DOCUMENT INSERT
   DOCTOKEN(MYDOCREP)
   TEXT('Final sample text. ')
   LENGTH(19)

   此时，此示例文档的逻辑结构为:

    Initial sample text. <BMark1>Text to be replaced.
   <BMark2>Final
   sample text.

   书签的名称不会显示在文档中。
6. 要替换两个书签 ( BMark1 和 BMark2) 之间的文本，请使用带有 AT 和 TO 选项的 DOCUMENT INSERT 命令:

   EXEC CICS DOCUMENT INSERT
   DOCTOKEN(ATOKEN)
   TEXT('Replacement Text. ')
   LENGTH(18)
   AT('BMark1 ')
   TO('BMark2 ')

   现在示例文档如下所示:

    Initial sample text. Replacement Text. Final
   sample text.

7. 要删除两个书签之间的文本，请使用带有 AT 和 TO 选项的 DOCUMENT INSERT 命令，如上所示，但使用 TEXT 或 BINARY 选项指定一个长度为零的空字符串。