时间戳

首页 > 解决方案 > 我想使用批量排序将 pic 9(5) comp 3 转换为 pic 9(05) comp

mainframe - 我想使用批量排序将 pic 9(5) comp 3 转换为 pic 9(05) comp

问题描述

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

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

标签： mainframedfsort

解决方案

我在下面展示了一个示例。

//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))

推荐阅读