如何在 jcl 排序卡中将 s9(12)v9(2) 移动到 x(15)

Question

我想使用 jcl 中的排序卡将前导字段 s9(16)v9(2) 符号移动到 x(50)。我不确定 sort 中可用的选项。直接排序复制，显示错误，并且在 o/p 目标中也忽略了小数点。请您提供一些输入。

Answer 1

查看您的排序产品的用户指南。搜索OUTREC 语句。您可以完全控制出现在输出记录中的数据，以及使用EDIT 选项对其进行格式化的方式。

作为示例，假设输入记录在位置 10 有一个长度为 5 个字节的压缩十进制字段，并且您希望数据在输出中显示为 d,ddd,ddd.dd：

SORT     FIELDS=COPY                                
OUTREC   BUILD(1:10,5,PD,EDIT=('I,III,III.TT'))   
END                                                 

您没有指定输入数字内部的格式，即您没有指定 COBOL 声明的 COMP 属性。您可能会或可能不会将其设置为压缩十进制格式。我相信您将能够根据您的具体情况调整我的示例。