如何将 s9(12)v9(2) 移动到 jcl 排序卡中的 x(15)
How to move s9(12)v9(2) to x(15) in jcl sort card
我想在 jcl 中使用排序卡将字段 s9(16)v9(2) 符号前导单独移动到 x(50)。我不确定 sort.Direct 排序副本中可用的选项，显示错误，小数点在 o/p destination.can 中也被忽略，请您提供一些输入。
查看您的排序产品的用户指南。搜索 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 属性。您可能认为它是压缩十进制格式，也可能不是。我相信您将能够根据您的具体情况调整我的示例。
我想在 jcl 中使用排序卡将字段 s9(16)v9(2) 符号前导单独移动到 x(50)。我不确定 sort.Direct 排序副本中可用的选项，显示错误，小数点在 o/p destination.can 中也被忽略，请您提供一些输入。
查看您的排序产品的用户指南。搜索 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 属性。您可能认为它是压缩十进制格式，也可能不是。我相信您将能够根据您的具体情况调整我的示例。