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
