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 <IBM-MAIN@LISTSERV.UA.EDU> wrote on 05/16/2018 02:14:52 PM: > From: "Gibney, Dave" <gib...@wsu.edu> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 05/16/2018 02:17 PM > Subject: Re: Should be easy with SORT :) I thought (: > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > 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:IBM-MAIN@LISTSERV.UA.EDU] > > On Behalf Of Sri h Kolusu > > Sent: Wednesday, May 16, 2018 8:41 AM > > To: IBM-MAIN@LISTSERV.UA.EDU > > 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 > > lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
