Thanks, this did work. But, the reall group is signaled by a change in the first char of the disk volume. I tried IFTHEN=(WHEN=GROUP,KEYBEGIN=(9,1),PUSH=(31:ID=8,SEQ=1)), And I get WER486A ERROR IN JNF1 PROCESSING WER482I JNF1 STATISTICS WER268A INREC STATEMENT : SYNTAX ERROR
And I can't figure the correct DDNAME for JNFxCNTL echo/error messages. > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] > On Behalf Of Sri h Kolusu > Sent: Wednesday, May 16, 2018 8:41 AM > To: [email protected] > Subject: Re: Should be easy with SORT :) I thought (: > > Dave, > > If your input record count is NOT a multiple of 4, then you may want to see > the unpaired records too. My earlier job will only consider the paired > records. So in order to account for the unpaired records , change the main > task SYSIN to the following > > //SYSIN DD * > OPTION COPY > JOINKEYS F1=INA,FIELDS=(31,9,A),SORTED,NOSEQCK > JOINKEYS F2=INB,FIELDS=(31,9,A),SORTED,NOSEQCK > JOIN UNPAIRED > REFORMAT FIELDS=(F1:1,39,F2:1,39,?) > INCLUDE COND=(79,1,CH,EQ,C'B',OR, > (79,1,CH,EQ,C'1',AND,39,1,ZD,LE,2)) > > INREC BUILD=(1,30,C'|',40,30) > /* > > Thanks, > Kolusu > DFSORT Development > IBM Corporation > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
