Greg, As you suspected it is the OMIT statement on your OUTFIL which is causing the problem. You can compare in chunks of 256 bytes.
So Change the OMIT statement from OUTFIL REMOVECC,OMIT=(1,366,CH,EQ,368,366,CH), TO OUTFIL REMOVECC, OMIT=((1,256,CH,EQ,368,256,CH),AND,(257,110,CH,EQ,624,110,CH)), and re-run your job. Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List <[email protected]> wrote on 10/19/2012 01:22:56 PM: > From: Greg Shirey <[email protected]> > To: [email protected], > Date: 10/19/2012 01:23 PM > Subject: DFSORT Join Unpaired > Sent by: IBM Mainframe Discussion List <[email protected]> > > Good Friday, everyone, > > I have a programmer who is trying to make use of DFSORT to compare a > couple of files of record length 366. When he attempts it with the > SYSIN statements are below, he is getting: > ICE221A 1 INVALID FIELD OR CONSTANT IN SORTOUT IFTHEN 0 CONDITION 1 > > Referencing the message manual, it appears the problem is that "the > length for a field with a format other than SS was greater than 256 > " and he has attempted the statements below (slightly modified) on > files with record lengths less than 200 and his job completes successfully. > > Is this enough information for someone with better SORT skills than > I to recommend a method to deal with this circumstance? I'd > appreciate the feedback because I don't know what to tell him. > > > OPTION COPY > JOINKEYS F1=UPDA,FIELDS(82,6,A) > JOINKEYS F2=MAST,FIELDS(82,6,A) > JOIN UNPAIRED > REFORMAT FIELDS(F1:1,366,?,F2:1,366) > OUTFIL REMOVECC,OMIT=(1,366,CH,EQ,368,366,CH), > IFTHEN=(WHEN=(200,1,CH,EQ,C'1'),BUILD=(C'A',1,200)), > IFTHEN=(WHEN=(200,1,CH,EQ,C'2'),BUILD=(C'D',202,200)), > IFTHEN=(WHEN=(NONE),BUILD(C'C',1,200)), > HEADER1=(C'A',C' FILENAME',DATE), > TRAILER1=(C'Z',C' FILENAME ',COUNT(EDIT=(TTTTTTT))) > > > TIA, > > Greg Shirey > Ben E. Keith Company > > > > > ---------------------------------------------------------------------- > 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
