I am confused about a statement I'm seeing in the DFSORT - ICETOOL Chapter and 
its example:
Example 3 - Create files with matching and non-matching records
I've copied the example below and my question is regarding the last line below 
and it statement on sorting:
We sort the records of T1 on positions 1-3 and splice the second id byte for 
matching records.

Where in the JCL code does it state to sort the T1 records on positions 1-3??

//S3 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
Vicky
Frank
Carrie
Holly
Paul
/*
//IN2 DD *
Karen
Holly
Carrie
Vicky
Mary
/*
//OUT12 DD SYSOUT=*
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//T1 DD DSN=&&T1,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(5,5))
//TOOLIN DD *
   COPY FROM(IN1) TO(T1) USING(CTL1)
   COPY FROM(IN2) TO(T1) USING(CTL2)
   SPLICE FROM(T1) TO(OUT12) ON(1,10,CH) WITH(13,1) USING(CTL3) KEEPNODUPS
/*
//CTL1CNTL DD *
   OUTREC FIELDS=(1,10,12:C'11')
/*
//CTL2CNTL DD *
   OUTREC FIELDS=(1,10,12:C'22')
/*
//CTL3CNTL DD *
   OUTFIL FNAMES=OUT12,INCLUDE=(12,2,CH,EQ,C'12'),OUTREC=(1,10)
   OUTFIL FNAMES=OUT1,INCLUDE=(12,2,CH,EQ,C'11'),OUTREC=(1,10)
   OUTFIL FNAMES=OUT2,INCLUDE=(12,2,CH,EQ,C'22'),OUTREC=(1,10)
/*

We copy the IN1 records to the T1 data set and add an identifier of '11' to 
show they come from FILE1.
 We copy the IN2 records to the end (MOD) of the T1 data set and add an 
identifier of '22' to show they come from FILE2.
 We sort the records of T1 on positions 1-3 and splice the second id byte for 
matching records.


Thanks for any insights
Bill

______________________________________________________________________
CONFIDENTIALITY NOTICE: This email from the State of California is for the sole 
use of the intended recipient and may contain confidential and privileged 
information. Any unauthorized review or use, including disclosure or 
distribution, is prohibited. If you are not the intended recipient, please 
contact the sender and destroy all copies of this email.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to