使用 SORT 进行大型机 JCL 记录转置

Posted

技术标签:

【中文标题】使用 SORT 进行大型机 JCL 记录转置【英文标题】:Mainframes JCL Record transposing using SORT 【发布时间】:2015-07-29 14:14:01 【问题描述】:

我想使用 SORT(snycsort 或 DFSORT)将记录转置到列中。它应该可以扩展到任意数量的记录。这可能吗?

DE001XYX A CD100000 B CD200000 C DE001KKK A CD100000 B DE003ZZZ A DE001XYX A CD100000 B CD200000 C DE001KKK A CD100000 B ...........

转置

DE001XYX CD100000 CD200000 DE001KKK CD100000 DE003ZZZ DE001XYX CD100000 CD200000 DE001KKK CD100000 ......

【问题讨论】:

请告诉我们您使用的是哪种 SORT 产品:DFSORT、Syncsort 等,并将这些标签添加到您的问题中。 它如何扩展到任意数量的记录?您只有 26 个字母,并且您有记录长度的最大值。输出顺序是否重要(因为数据至少需要排序一次)? 只有三个 Key,即 A B C .A 与以 DE 开头的记录一起使用,B 与以 CD1 开头的记录一起使用,C 与以 CD2 开头的记录一起使用。每个 DE 记录都与它下面的记录相关,即 CD1 和 CD2 记录。 如果您仍在解决这个问题,为什么不使用 REXX? 【参考方案1】:

这是我很喜欢的一个问题,并且很长一段时间以来都渴望自己解决这个问题。经过一些研究和尝试,我刚刚想出了一个解决方案。


更新: 即兴方法如下。它在 1 遍中解决了问题,而最初的方法需要 3 遍。

即兴方法: 不需要3遍。

***************************** Top of Data ******************************
//JOBNAME JOB ('ACCOUNT INFORMATION'),'TRANSPOSE',                      
//     CLASS=2,MSGCLASS=H,NOTIFY=&SYSUID                                
//STEP1   EXEC PGM=SORT                                                 
//SORTIN  DD *                                                          
DE001XYX   A                                                            
CD100000   B                                                            
CD200000   C                                                            
DE001KKK   A                                                            
CD100000   B                                                            
DE003ZZZ   A                                                            
DE001XYX   A                                                            
CD100000   B                                                            
CD200000   C                                                            
DE001KKK   A                                                            
CD100000   B                                                            
//SORTOUT DD SYSOUT=*                                                   
//SYSOUT  DD SYSOUT=*                                                   
//SYSIN   DD *                                                          
 SORT FIELDS=(30,1,CH,A)                                                
 INREC IFTHEN=(WHEN=GROUP,BEGIN=(12,1,CH,EQ,C'A'),                      
              END=(12,1,CH,EQ,C'C'),PUSH=(14:ID=1)),                    
       IFTHEN=(WHEN=(12,1,CH,EQ,C'A'),BUILD=(1:1,8,19Z,28:12,1,         
              30:14,1)),                                                
       IFTHEN=(WHEN=(12,1,CH,EQ,C'B'),                                  
              BUILD=(1:9Z,10:1,8,18:10Z,28:12,1,30:14,1)),              
       IFTHEN=(WHEN=(12,1,CH,EQ,C'C'),                                  
              BUILD=(1:18Z,19:1,8,28:12,1,30:14,1))                     
 SUM FIELDS=(1,8,10,8,19,8),FORMAT=BI                                   
 OUTREC FIELDS=(1:1,8,9:X,10:10,8,18:X,19:19,8)                         
**************************** Bottom of Data ****************************

结果与 OP 在他/她的问题中显示的相同。


初步方法:

第 1 步: 我将WHEN=GROUPBEGINENDPUSH 参数一起使用。

//JOBNAME JOB ('ACCOUNT NAME'),'TRANSPOSE',          
//     CLASS=2,MSGCLASS=H,NOTIFY=&SYSUID             
//STEP1   EXEC PGM=SORT                              
//SORTIN  DD *                                       
DE001XYX   A                                         
CD100000   B                                         
CD200000   C                                         
DE001KKK   A                                         
CD100000   B                                         
DE003ZZZ   A                                         
DE001XYX   A                                         
CD100000   B                                         
CD200000   C                                         
DE001KKK   A                                         
CD100000   B                                         
//SORTOUT DD SYSOUT=*                                
//SYSOUT  DD SYSOUT=*                                
//SYSIN   DD *                                       
 SORT FIELDS=COPY                                    
 OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(12,1,CH,EQ,C'A'),  
               END=(12,1,CH,EQ,C'C'),PUSH=(14:ID=1))

PUSH=(14:ID=1) 表示位置 14 表示 1 是每个组递增的标识符。每个 A 表示一个新组,无论前一个组是否以 C 终止。当一个新组开始时,标识符是 +1 的。

注意:由于我们只允许一个字符作为 ID,所以当 ID 计数器达到 10 时,位置 14 将出现一个“0”。您也可以为身份证。

第 1 步的输出:

********************************* TOP OF DATA **********************************
DE001XYX   A 1                                                                  
CD100000   B 1                                                                  
CD200000   C 1                                                                  
DE001KKK   A 2                                                                  
CD100000   B 2                                                                  
DE003ZZZ   A 3                                                                  
DE001XYX   A 4                                                                  
CD100000   B 4                                                                  
CD200000   C 4                                                                  
DE001KKK   A 5                                                                  
CD100000   B 5                                                                  
******************************** BOTTOM OF DATA ********************************

步骤2: 取步骤1的输出。分别根据A、B、C三个键修改DE、CD1、CD2记录的位置。

//JOBNAME JOB ('ACCOUNT NAME'),'TRANSPOSE',                     
//     CLASS=2,MSGCLASS=H,NOTIFY=&SYSUID                        
//STEP1   EXEC PGM=SORT                                         
//SORTIN  DD *                                                  
DE001XYX   A 1                                                  
CD100000   B 1                                                  
CD200000   C 1                                                  
DE001KKK   A 2                                                  
CD100000   B 2                                                  
DE003ZZZ   A 3                                                  
DE001XYX   A 4                                                  
CD100000   B 4                                                  
CD200000   C 4                                                  
DE001KKK   A 5                                                  
CD100000   B 5                                                  
//SORTOUT DD SYSOUT=*                                           
//SYSOUT  DD SYSOUT=*                                           
//SYSIN   DD *                                                  
 SORT FIELDS=COPY                                               
 OUTREC IFTHEN=(WHEN=(12,1,CH,EQ,C'A'),BUILD=(1:1,8,19Z,28:12,1,
               30:14,1)),                                       
        IFTHEN=(WHEN=(12,1,CH,EQ,C'B'),                         
               BUILD=(1:9Z,10:1,8,18:10Z,28:12,1,30:14,1)),     
        IFTHEN=(WHEN=(12,1,CH,EQ,C'C'),                         
               BUILD=(1:18Z,19:1,8,28:12,1,30:14,1))            
/*      

注意:在其间插入二进制零作为占位符,以便在第 3 步中填充数据。

第 2 步的输出:

********************************* TOP OF DATA **********************************
DE001XYX                   A 1                                                  
         CD100000          B 1                                                  
                  CD200000 C 1                                                  
DE001KKK                   A 2                                                  
         CD100000          B 2                                                  
DE003ZZZ                   A 3                                                  
DE001XYX                   A 4                                                  
         CD100000          B 4                                                  
                  CD200000 C 4                                                  
DE001KKK                   A 5                                                  
         CD100000          B 5                                                  
******************************** BOTTOM OF DATA ********************************

打开十六进制模式,您将能够看到二进制零 (X'00)。

***************************** Top of Data ******************************
DE001XYX                   A 1                                          
CCFFFEEE0000000000000000000C4F444444444444444444444444444444444444444444
450017870000000000000000000101000000000000000000000000000000000000000000
----------------------------------------------------------------------- 
         CD100000          B 1                                          
000000000CCFFFFFF0000000000C4F444444444444444444444444444444444444444444
000000000341000000000000000201000000000000000000000000000000000000000000
----------------------------------------------------------------------- 
                  CD200000 C 1                                          
000000000000000000CCFFFFFF4C4F444444444444444444444444444444444444444444
000000000000000000342000000301000000000000000000000000000000000000000000
----------------------------------------------------------------------- 
DE001KKK                   A 2                                          
CCFFFDDD0000000000000000000C4F444444444444444444444444444444444444444444
450012220000000000000000000102000000000000000000000000000000000000000000
----------------------------------------------------------------------- 
         CD100000          B 2                                          
000000000CCFFFFFF0000000000C4F444444444444444444444444444444444444444444
000000000341000000000000000202000000000000000000000000000000000000000000
----------------------------------------------------------------------- 
DE003ZZZ                   A 3                                          
CCFFFEEE0000000000000000000C4F444444444444444444444444444444444444444444
450039990000000000000000000103000000000000000000000000000000000000000000
----------------------------------------------------------------------- 
DE001XYX                   A 4                                          
CCFFFEEE0000000000000000000C4F444444444444444444444444444444444444444444
450017870000000000000000000104000000000000000000000000000000000000000000
----------------------------------------------------------------------- 
         CD100000          B 4                                          
000000000CCFFFFFF0000000000C4F444444444444444444444444444444444444444444
000000000341000000000000000204000000000000000000000000000000000000000000
----------------------------------------------------------------------- 
                  CD200000 C 4                                          
000000000000000000CCFFFFFF4C4F444444444444444444444444444444444444444444
000000000000000000342000000304000000000000000000000000000000000000000000
DE001KKK                   A 5                                          
CCFFFDDD0000000000000000000C4F444444444444444444444444444444444444444444
450012220000000000000000000105000000000000000000000000000000000000000000
----------------------------------------------------------------------- 
         CD100000          B 5                                          
000000000CCFFFFFF0000000000C4F444444444444444444444444444444444444444444
000000000341000000000000000205000000000000000000000000000000000000000000
----------------------------------------------------------------------- 
**************************** Bottom of Data ****************************

步骤 3: 将步骤 2 的输出作为输入,使用 SUM FIELDS 组合组的 DE、CD1 和 CD2 记录,SORT FIELDS 在第 30 位的 ID 字段中.

//JOBNAME JOB ('ACCOUNT NAME'),'TRANSPOSE',                     
//     CLASS=2,MSGCLASS=H,NOTIFY=&SYSUID                        
//STEP1   EXEC PGM=SORT                                         
//SORTIN  DD *                                                  
DE001XYX                   A 1                                                  
         CD100000          B 1                                                  
                  CD200000 C 1                                                  
DE001KKK                   A 2                                                  
         CD100000          B 2                                                  
DE003ZZZ                   A 3                                                  
DE001XYX                   A 4                                                  
         CD100000          B 4                                                  
                  CD200000 C 4                                                  
DE001KKK                   A 5                                                  
         CD100000          B 5                                                  
//SORTOUT DD SYSOUT=*                                           
//SYSOUT  DD SYSOUT=*                                           
//SYSIN   DD *
  SORT FIELDS=(30,1,CH,A)                       
  SUM FIELDS=(1,8,10,8,19,8),FORMAT=BI          
  OUTREC FIELDS=(1:1,8,9:X,10:10,8,18:X,19:19,8)
/* 

使用OUTREC FIELDS=(1:1,8,9:X,10:10,8,18:X,19:19,8),将 DE、CD1 和 CD2 字段之间的二进制零替换为空格。

第 3 步的输出:开始!

***************************** Top of Data ******************************
DE001XYX CD100000 CD200000                                              
DE001KKK CD100000                                                       
DE003ZZZ                                                                
DE001XYX CD100000 CD200000                                              
DE001KKK CD100000                                                       
**************************** Bottom of Data ****************************

有关SUM FIELDS 的更多详细信息(带有二进制零):

二进制加法对两个位模式进行操作。让我们考虑以下记录(十六进制模式已打开,因为我想展示如何对十六进制值执行二进制加法)。

****** ********
000001 DE001XYX
       CCFFFEEE
       45001787
---------------
000002         
       00000000
       00000000

第一个字节的十六进制值 X'C4' 与第二条记录的第一个字节中的二进制零相加。

 C4
+00
 --
 C4

X'C4' 表示 EBCDIC 中的字母 'D'

如果我们将第一个字节中的二进制零更改为二进制一 (X'01'),结果会有所不同。

 C4
+01
 --
 C5

X'C5' 表示 EBCDIC 中的字母“E”。

使用二进制零,我们可以对字母数字数据项(EBCDIC 字符 a-z、A-Z、0-9)执行SUM FIELDS,以将它们分组到一个记录中。


【讨论】:

非常感谢您的努力。事实上,Inposted这个并忘记了。我找到了解决这个问题的方法。但我已经通过 JCL 和 BTEQ terdata querires 实现了这一点。 嗨@user2959433 很高兴知道您找到了解决方案。由于 Syncsort 被标记为问题,我考虑使用它来找到解决方案。这是相当具有挑战性的,并发掘了新的可能性。

以上是关于使用 SORT 进行大型机 JCL 记录转置的主要内容,如果未能解决你的问题,请参考以下文章

MAINFRAME:在 JCL 中排序以将数据集转换为 CSV 格式

如何自动化 jcl 在大型机上运行 cobol 程序

使用 FTP 和 C# 启动现有大型机作业

大型机中用于转置的 DB2 Sql [关闭]

使用循环平铺转置大型二维矩阵没有性能提升

如何使用 SFTP 向大型机提交/​​检索批处理作业