It's regarding the Icetool-Splicing.
I am comparing the two Files on basis of two key field. Can any one suggest that how can we add two key field ( to compare) in the "on" during the splicing
I am able to do it for one field and the syntax in below
SPLICE FROM(T1) TO(OUT) ON(1,4,CH) ON(6,8,CH) WITH(23,1) USING(CTL3)
One key is --> 6,8,ch
second key is ----> 12,5,ch
How can we add the second compare key in the above splice syntax ?
Icetool- Splicing : More than one compare key
Moderators: Frank Yaeger, Moderator Group
Icetool- Splicing : More than one compare key
Learning is Passion. Once you get it, You will be on Top of the world.
-
- Active Member
- Posts: 732
- Joined: Thu May 24, 2012 4:07 am
@DIkDude I was just giving example and by mistake i had given different key position to present the scenario .. Please find the JCL below..
//JOB EXEC PGM=ICETOOL,REGION=0M,PARM='CORE=MAX'
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SORTWK01 DD UNIT=SORTWK,SPACE=(6000,(7000),,,ROUND)
//SORTWK02 DD UNIT=SORTWK,SPACE=(6000,(7000),,,ROUND)
//SORTWK03 DD UNIT=SORTWK,SPACE=(6000,(7000),,,ROUND)
//$ORTPARM DD DSN=FFA.CONTROL(APAXC256),DISP=SHR
//SYSOUT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=(A,,DUMP),HOLD=YES
//TOOLIN DD *
COPY FROM(SORTIN1) TO(TEMP) USING(SRT2)
COPY FROM(SORTIN2) TO(TEMP) USING(SRT3)
SPLICE FROM(TEMP) TO(OUT) ON(67,11,CH) ON(78,2,CH) W
WITH(178,2) USING(SRT4) KEEPNODUPS
//*
//*
//SORTIN1 DD DSN=FILEA,DISP=SHR * 177 RECROD LENGTH
//SORTIN2 DD DSN=FILEB,DISP=SHR * 177 RECROD LENGTH
//* COMAPRE KEY 67,11,CH AND 78,2,CH
//SRT2CNTL DD *
SORT FIELDS=COPY
OUTREC OVERLAY=(178:C'BB')
//SRT3CNTL DD *
SORT FIELDS=COPY
OUTREC OVERLAY=(178:C'BB')
//*
//TEMP DD DSN=FILEC,
// DISP=(MOD,CATLG,DELETE),
// UNIT=SYSD@,
// LABEL=RETPD=1,
// DCB=(BLKSIZE=0,LRECL=179,RECFM=FB),
// SPACE=(CYL,(10,20),RLSE)
//*
//SRT4CNTL DD *
OUTFIL FNAMES=OUT,INCLUDE=(178,2,CH,EQ,C'BB'),
BUILD=(1,177)
//*
//OUT DD DSN=CDI5.H385.CTPCRM,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSD@,
// LABEL=RETPD=1,
// DCB=(BLKSIZE=0,LRECL=177,RECFM=FB),
// SPACE=(CYL,(10,20),RLSE)
//*
I am getting the Proper result now but just want to clear one doubt as per your's valuable experience
.It's working with 1) SPLICE FROM(T1) TO(OUT) ON(1,4,CH) ON(6,8,CH) WITH(23,1) USING(CTL3)
2) SPLICE FROM(T1) TO(OUT) ON(1,4,CH) ON(6,8,CH) WITHALL WITH(23,1) USING(CTL3)
What is the difference in these two ( In one I am using WITHALL and in Second I am not using Withall ) Please clear the doubt thanks!!
//JOB EXEC PGM=ICETOOL,REGION=0M,PARM='CORE=MAX'
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SORTWK01 DD UNIT=SORTWK,SPACE=(6000,(7000),,,ROUND)
//SORTWK02 DD UNIT=SORTWK,SPACE=(6000,(7000),,,ROUND)
//SORTWK03 DD UNIT=SORTWK,SPACE=(6000,(7000),,,ROUND)
//$ORTPARM DD DSN=FFA.CONTROL(APAXC256),DISP=SHR
//SYSOUT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=(A,,DUMP),HOLD=YES
//TOOLIN DD *
COPY FROM(SORTIN1) TO(TEMP) USING(SRT2)
COPY FROM(SORTIN2) TO(TEMP) USING(SRT3)
SPLICE FROM(TEMP) TO(OUT) ON(67,11,CH) ON(78,2,CH) W
WITH(178,2) USING(SRT4) KEEPNODUPS
//*
//*
//SORTIN1 DD DSN=FILEA,DISP=SHR * 177 RECROD LENGTH
//SORTIN2 DD DSN=FILEB,DISP=SHR * 177 RECROD LENGTH
//* COMAPRE KEY 67,11,CH AND 78,2,CH
//SRT2CNTL DD *
SORT FIELDS=COPY
OUTREC OVERLAY=(178:C'BB')
//SRT3CNTL DD *
SORT FIELDS=COPY
OUTREC OVERLAY=(178:C'BB')
//*
//TEMP DD DSN=FILEC,
// DISP=(MOD,CATLG,DELETE),
// UNIT=SYSD@,
// LABEL=RETPD=1,
// DCB=(BLKSIZE=0,LRECL=179,RECFM=FB),
// SPACE=(CYL,(10,20),RLSE)
//*
//SRT4CNTL DD *
OUTFIL FNAMES=OUT,INCLUDE=(178,2,CH,EQ,C'BB'),
BUILD=(1,177)
//*
//OUT DD DSN=CDI5.H385.CTPCRM,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSD@,
// LABEL=RETPD=1,
// DCB=(BLKSIZE=0,LRECL=177,RECFM=FB),
// SPACE=(CYL,(10,20),RLSE)
//*
I am getting the Proper result now but just want to clear one doubt as per your's valuable experience
.It's working with 1) SPLICE FROM(T1) TO(OUT) ON(1,4,CH) ON(6,8,CH) WITH(23,1) USING(CTL3)
2) SPLICE FROM(T1) TO(OUT) ON(1,4,CH) ON(6,8,CH) WITHALL WITH(23,1) USING(CTL3)
What is the difference in these two ( In one I am using WITHALL and in Second I am not using Withall ) Please clear the doubt thanks!!
Learning is Passion. Once you get it, You will be on Top of the world.
-
- Active Member
- Posts: 732
- Joined: Thu May 24, 2012 4:07 am
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page