使用构建将JCL SORT SQZ左移

时间:2019-02-20 13:02:33

标签: sorting mainframe jcl

我有2个输入文件。我使用JOINKEY合并了它们。第一个输入文件计数为记录计数(长度为10,前导零)。 第二个文件是双引号(例如“ xxxx”,“ yyyy”等)之间用逗号分隔的字段。

我遇到的问题是我想摆脱第一个输入文件的记录计数中的前导零。

我的计数是0000000012,我想要12。

我不知道如何使用SQZ函数来处理它,因为它将是一个可变长度。我们将如何在OUTREC BUILD中处理它,因为如果我使用SQZ函数,它将不再是固定长度10,而是可变长度?

感谢您的帮助。

这是JCL:

//SORT100 EXEC PGM=SORT                                       
//*                                                            
//SORTJNF1 DD * 
 Counter written records:           0000000012                                                               
//SORTJNF2 DD 
   DSN=INPUT.WITHOUT.COUNT,DISP=SHR                                            
//SORTOUT DD DSN=OUTPUT.WITH.COUNT, 
//        DISP= 
    (,CATLG),RECFM=FB,LRECL=130,DATACLAS=DCPRXTP    

//SYSIN    DD *                                                
 SORT FIELDS=COPY                                              
 JOINKEYS FILE=F1,FIELDS=(131,8,A),SORTED,NOSEQCK              
 JOINKEYS FILE=F2,FIELDS=(131,8,A),SORTED,NOSEQCK              
 REFORMAT FIELDS=(F2:1,80,F1:30,10)                            
 OUTREC BUILD=(1,80,81,10,C'," "',36X)                         
//JNF1CNTL DD *                                                
 INREC OVERLAY=(131:SEQNUM,8,ZD)                              
//JNF2CNTL DD *                                                
 INREC OVERLAY=(131:SEQNUM,8,ZD)                              
//*                                                            
//SYSOUT   DD SYSOUT=*                                         
//                                                             

0 个答案:

没有答案