View previous topic :: View next topic
|
Author |
Message |
selvaganesan
New User
Joined: 21 Oct 2005 Posts: 5 Location: USA
|
|
|
|
hi,
Is it possible in jcl to do the following task?
input file1- record
123 ram cbe qw
456 sam chn wq
input file2-record
123 ram cbe mw
456 sam chn sk
The result should be,
123 ram cbe qwmw
456 sam chn wqsk
Thanks and regards,
Selvaganesan |
|
Back to top |
|
|
priyesh.agrawal
Senior Member
Joined: 28 Mar 2005 Posts: 1448 Location: Chicago, IL
|
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Selvaganesan,
Here's a DFSORT/ICETOOL job that will do what you asked for. I assumed that your input files each have RECFM=FB and LRECL=14 and that your output file should have RECFM=FB and LRECL=16. You can change the job appropriately for other attributes.
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=... input file1 (FB/14)
//IN2 DD DSN=... input file2 (FB/14)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT DD DSN=... output file (FB/16)
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT) ON(1,12,CH) WITH(15,2)
/*
//CTL1CNTL DD *
OUTREC OVERLAY=(15:2X)
/*
//CTL2CNTL DD *
OUTREC OVERLAY=(15:13,2)
/*
|
|
|
Back to top |
|
|
selvaganesan
New User
Joined: 21 Oct 2005 Posts: 5 Location: USA
|
|
|
|
Thanks all,
actually we don't know icetool facility in our systems. Please give some other methods that uses ibm utilities to do the above task.
Thanks & regards,
selvaganesan |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Quote: |
actually we don't know icetool facility in our systems. Please give some other methods that uses ibm utilities to do the above task |
ICETOOL is an "IBM utility". It's part of DFSORT, an IBM product. ICETOOL has been shipped free with DFSORT since 1991!
If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:
Use [URL] BBCode for External Links |
|
Back to top |
|
|
|