Thank you for your help to date. It has been most welcome. I appreciate that Syncsort is a competitor. I did specify that I was using Syncsort with my original request.
> -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] > On Behalf Of Sri h Kolusu > Sent: Wednesday, May 16, 2018 3:11 PM > To: [email protected] > Subject: Re: Should be easy with SORT :) I thought (: > > Dave, > > Your WERxxx messages that you are using Syncsort which is a competitor for > DFSORT and unfortunately I cannot fix the problem. So may be you need to > talk to their support. > > For the record > IFTHEN=(WHEN=GROUP,KEYBEGIN=(9,1),PUSH=(31:ID=8,SEQ=1)) > statements works fine with DFSORT. > > Thanks, > Kolusu > DFSORT Development > IBM Corporation > > IBM Mainframe Discussion List <[email protected]> wrote on > 05/16/2018 02:14:52 PM: > > > From: "Gibney, Dave" <[email protected]> > > To: [email protected] > > Date: 05/16/2018 02:17 PM > > Subject: Re: Should be easy with SORT :) I thought (: > > Sent by: IBM Mainframe Discussion List <[email protected]> > > > > 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 > > > > ---------------------------------------------------------------------- > 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
