Question

我想使用批处理排序将comp-3转换为comp。请帮助我。

我尝试了从PD到ZD 的转换，但这不起作用。

Answer 1

尝试使用inrec构建选项

Option =复制 Inrec build =（1，5，pd，to，= zd，length = 9）

尝试一下。如果您遇到错误，请告诉我

Answer 2

下面显示了一个示例。

//STEP01   EXEC PGM=SORT
//SORTIN   DD *
23456 
12345    
//SORTOUT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSIN    DD *
  INREC FIELDS=(1:1,5,ZD,TO=PD,LENGTH=3)
  SORT FIELDS=(1,3,PD,A)
  OUTREC FIELDS=(1:1,3,PD,TO=BI,LENGTH=4)
/*

注意：

在上面显示的示例中，使用INREC将可读格式转换为PD只是为了表示。

您可以尝试将上面显示的SORT步骤的输出写入输出数据集，然后使用以下控制语句将其作为输入传递到另一个SORT步骤。这样，您可以确保是否能够取回可读的数字数据。

SORT FIELDS=COPY
OUTREC FIELDS=(1:1,4,BI,EDIT=(TTTTT))

我想使用批处理排序将pic 9（5）comp 3转换为pic 9（05）comp

2 个答案: