如何通过TOAD SQL在Oracle中创建COMP-3字段以传输至IBM大型机

Oracle本身没有原生的COMP-3（压缩十进制）字段类型——COMP-3是COBOL里定义的、专门给IBM大型机用的存储格式。要生成符合要求的COMP-3格式数据文件，你得在导出数据的时候做格式转换，下面是用TOAD SQL实现的几种常见方式：

方法一：用Oracle内置函数拼COMP-3字节流 #

借助UTL_RAW包的函数，把数值转成COMP-3格式的原始字节就行：

• 正数的话，每两位十进制数占一个字节，最后一个字节的低四位是0xC（标记正数）
• 负数的话，最后一个字节的低四位是0xD（标记负数）

举个例子，把数值1234转成COMP-3格式的SQL：

SELECT UTL_RAW.CAST_TO_RAW(CHR(TO_NUMBER('12', 'XX')) || CHR(TO_NUMBER('34C', 'XX'))) AS comp3_data
FROM DUAL;

简单说就是把12转成一个字节，34C转成另一个字节（末尾的C表示正数），拼起来就是COMP-3格式的原始数据。

方法二：写PL/SQL批量生成COMP-3文件 #

如果要批量处理数据并生成能直接发给大型机的文件，可以写个PL/SQL块，结合UTL_FILE包来生成：

DECLARE
  v_file UTL_FILE.FILE_TYPE;
  v_num NUMBER := 1234;
  v_comp3 RAW(10);
BEGIN
  -- 把正数转成COMP-3格式
  v_comp3 := UTL_RAW.CONCAT(
    UTL_RAW.CAST_FROM_NUMBER(FLOOR(v_num/100)),
    UTL_RAW.BIT_AND(UTL_RAW.CAST_FROM_NUMBER(MOD(v_num,100)), '00FF') || 'C'
  );
  
  -- 打开文件并写入数据，注意替换成你自己的目录和文件名
  v_file := UTL_FILE.FOPEN('YOUR_DIRECTORY', 'comp3_data.dat', 'WB', 32767);
  UTL_FILE.PUT_RAW(v_file, v_comp3);
  UTL_FILE.FCLOSE(v_file);
END;
/

提醒一下：得先在Oracle里建对应的目录对象（用CREATE DIRECTORY语句），还要给用户开UTL_FILE的权限才能用。

方法三：用TOAD导出工具直接配置格式 #

TOAD自带的导出工具能直接设置COMP-3格式，步骤如下：

1. 打开TOAD的「Export Data」导出向导
2. 选择导出类型为「Flat File」（平面文件）
3. 到字段设置界面，找到要转成COMP-3的数值字段，把「Data Format」设为「COMP-3」，再指定好精度和小数位数
4. 配置完导出的文件，就能直接发给IBM大型机用了

内容的提问来源于stack exchange，提问作者Denis