JCL SORT SQZ сдвиг влево, используя сборку - PullRequest
Новая
       14

JCL SORT SQZ сдвиг влево, используя сборку

0 голосов
/ 20 февраля 2019

У меня есть 2 входных файла.Я слил их, используя JOINKEY.Первый входной файл включает количество записей (длина 10 с ведущими нулями).Второй файл - это поля, разделенные запятыми между двойными кавычками (например, «xxxx», «yyyy» и т. Д.).

Проблема, с которой я столкнулся, заключается в том, что я хочу избавиться от лидирующих нулей изколичество записей первого входного файла.

Мой счетчик 0000000012, я хотел бы иметь 12.

Я не понимаю, как обрабатывать его с помощью функции SQZ, так как это будетПеременная длинаКак мы можем справиться с этим в OUTREC BUILD, так как это будет уже не фиксированная длина 10, а переменная длина, если я использую функцию SQZ?

Спасибо за вашу помощь.

Вот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=*                                         
//
...