我有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=*
//