The following solution will work with SyncSort and should work with
DFSORT also. It requires 2 passes of the data but if the data volume is
not large than this should not present a problem. In English, the
approach taken is to have STEP1 build the SORT control card to be used
by STEP2 (the step that actually produces the output that you want). In
this example I changed the X'0000' to ZD'00' to make the example easier
to visualize. I also do not know what the SORT control statement for
STEP2 should look like so I simply chose 5,4,CH,A but the example can be
changed to be whatever it needs to be. In the real-world case the SORTIN
data set in both STEP1 and STEP2 are both the same real data set not
in-stream data. This was done for the sake of the demonstration. The
size of the SEQNUM field may need to be increased in your case. The
actual solution looks like:
//STEP1 EXEC PGM=SYNCSORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
12RECORD 1
55RECORD 2
00RECORD 3
42RECORD 4
00RECORD 5
32RECORD 6
//SORTOUT DD DISP=(,PASS),DSN=&&SYSIN,UNIT=SYSDA,SPACE=(CYL,1)
//SYSIN DD *
SORT FIELDS=(1,2,ZD,A),EQUALS
INREC FIELDS=(1,2,SEQNUM,4,ZD)
SUM FIELDS=NONE
OUTFIL INCLUDE=(1,2,ZD,EQ,0),
OUTREC=(C' SORT FIELDS=(5,4,CH,A),STOPAFT=',3,4,41C' ')
//*------------------------------
//STEP2 EXEC PGM=SYNCSORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
12RECORD 1
55RECORD 2
00RECORD 3
42RECORD 4
00RECORD 5
32RECORD 6
//SORTOUT DD SYSOUT=*
//SYSIN DD DSN=&&SYSIN,DISP=SHR
I would be happy to work with you further if you would like to discuss
this approach and I will continue to look for a more efficient method of
doing this.
Sincerely,
John Reda
Software Services Manager
Syncsort Inc.
201-930-8260
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
> Behalf Of Gilbert Saint-Flour
> Sent: Monday, January 29, 2007 10:25 AM
> To: [email protected]
> Subject: SORT - Logical EOF on SORTIN
>
> Hello:
>
> I am looking for a way to tell DFSORT to stop reading the SORTIN data
set
> when
> it reaches a record with X'0000' in pos 1-2. I looked at the latest
> DFSORT
> doc but didn't see anything that could help me, other than an E15
exit,
> which
> is precisely what I'm trying to stay clear of. Any idea anyone?
> Same question with SYNCSORT.
>
> --
> Gilbert Saint-Flour
> GSF Software
> http://gsf-soft.com/Freeware/
> http://gsf-soft.com/Documents/
----------------------------------------------------------------------
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
