|
View previous topic :: View next topic
|
| Author |
Message |
picus_mf
Warnings : 1
New User
Joined: 09 Jun 2006
Posts: 52
|
|
|
|
Hi,
I have requriement to copy a fileA
1. to fileB as it is (unsorted, say like dumping)
2. to fileC sorting on the key.
This is the code I tried. This is copying the files in two files.
1. OK
2. The file is not sorted. Is there any wrong in the below code.
| Code: |
//STEP01 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//INA1 DD DSN=A.B.C, DISP=SHR
//INA2 DD DSN=A.B.1, DISP=NEW
//INA3 DD DSN=A.B.2,DISP=NEW
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) USING(CTL1)
COPY FROM(IN1) USING(CTL2)
/*
//CTL1CTL DD *
SORT FIELDS=(3,44,CH,A)
OUTFIL FNAMES=IN3
/*
//CTL2CTL DD *
SORT FIELDS=COPY
OUTFIL FNAMES=IN2
/*
|
|
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| The DD names in your ICETOOL statements do not match those in your JCL |
|
| Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006
Posts: 2481
Location: @my desk
|
|
|
|
| Also here it should be //CTL1CNTL DD * |
|
| Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA
|
|
|
|
| Quote: |
1. to fileB as it is (unsorted, say like dumping)
|
Then no need of using CTL
Why not just
COPY FROM(infile) TO(outfile) |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
picus,
Here's a simplified DFSORT/ICETOOL job:
| Code: |
//STEP01 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=A.B.C,DISP=SHR
//OUT1 DD DSN=... output file1 (sorted)
//OUT2 DD DSN=... output file2 (unsorted)
//TOOLIN DD *
SORT FROM(IN1) TO(OUT1) USING(CTL1)
COPY FROM(IN1) TO(OUT2)
/*
//CTL1CNTL DD *
SORT FIELDS=(3,44,CH,A)
/*
|
|
|
| Back to top |
|
|
|
|
