添加前导 SO 和尾随 SI 字符

对于 PIC G 格式的字符串,可以指示事务集成商 (TI) 运行时环境添加前导移出 (SO) 字符和尾随移入 (SI) 字符,方法是在字符串的“COBOL 定义”选项卡上选择“添加前导 SO 和尾随 SI 检查”框, (TI Project 中的属性页) 。

如果选择了“添加前导 SO 和尾随 SI 检查”框,则 TI 运行时环境处理大型机数据结构中的两个附加字节,用于描述双字节字符集 (DBCS) 字符串。 当它格式化发送到大型机的消息时,TI 运行时环境会添加前导 SO 和尾随 SI 字节。 当它解释从大型机接收的消息时,TI 运行时环境会丢弃前导 SO 和尾随 SI 字节。

无论是否存在周围的 SO 和 SI 字符,PIC G 字符串的维度值始终指定字符串中的双字节 DBCS 字符数。

客户端应用程序中隐藏了此自动 SO 和 SI 处理的用法。 但是,大型机应用程序必须确保相应的 PIC X 声明环绕 PIC G 字符串的声明。

TI 项目为周围的 SO 和 SI 字节生成适当的声明,如以下示例代码所示:

01     A-SOSI-WRAPPED-DBCS.  
       05  LEADING-SO-1                            PIC X.  
       05  MY-DBCS-STRING                          PIC G(80).  
       05  LEADING-SI-1                            PIC X.  
  

TI 项目中的导入 COBOL 向导未设置添加前导 SO 和尾随 SI 字节的选项。 换句话说,导入 COBOL 向导对 PIC G 字符串周围是否存在 PIC X 声明没有意义。 如果现有的大型机事务程序 (TP) 使用 COBOL 声明,这些声明包含包装 PIC G 字符串的 SO 和 SI 字符的显式声明,则必须手动修改导入 COBOL 向导创建的接口。