On Fri, 20 Jul 2007 07:48:03 -0700, Frank Yaeger wrote: > >Of course, if you already happen to have the same value in all of the >records, this can be simplified even more. For example, if every record >had a blank in position 5, you could use this DFSORT/ICETOOL job: > >//S2 EXEC PGM=ICETOOL >//TOOLMSG DD SYSOUT=* >//DFSMSG DD SYSOUT=* >//IN DD DSN=... input file >//OUT DD DSN=... output file >//TOOLIN DD * >SELECT FROM(IN) TO(OUT) ON(5,1,CH) LAST USING(CTL1) >/* I'm guessing that the ON clause tells it to look in position 5, but what tells it that a blank is what it's supposed to look for?
>//CTL1CNTL DD * > SORT FIELDS=COPY >/* Wouldn't this be a good use for a zero-length key, which could be presumed to be present and identical in every record, e.g.: //TOOLIN DD * SELECT FROM(IN) TO(OUT) ON(1,0,CH) LAST USING(CTL1) Will this work? Why not? I suspect I know the answer, but, still, why? -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
