Help Required in ICETOOL



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

Re: Help Required in ICETOOL

Postby sultanabdulkadhar » Mon Jul 13, 2009 9:31 pm

Hi,

Thanks a lot. its working fine. i did a mistake while coding. now its corrected and working fine.

Also, want to add one more file like

The data present in second file(14Bytes) and not present in first file(18K) to one output file.

Please advice
sultanabdulkadhar
 
Posts: 19
Joined: Tue Jul 07, 2009 9:33 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Help Required in ICETOOL

Postby Frank Yaeger » Mon Jul 13, 2009 11:25 pm

Thanks a lot. its working fine.


Good.

Also, want to add one more file like

The data present in second file(14Bytes) and not present in first file(18K) to one output file.


It isn't clear what you want to do. Please show a complete example (input/output) and explain it.
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1079
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 15 times

Re: Help Required in ICETOOL

Postby sultanabdulkadhar » Mon Jul 13, 2009 11:30 pm

This is the detail about master file - 18,000Bytes(with Duplicates) RECFM FB, LRECL = 18000

09171123456ABCXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
09171123456ABCXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
09171123456DEFXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
09171123456GHIXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
09171123456GHIXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX


Second file - 14 Bytes length (No Duplicates) RECFM FB, LRECL = 14
09171123456ABC
09171123456DEF
09171123456JKL
09171123456GHI
09171123456MNO

The output file Matched Records should be 18,000Bytes - Records from the Master file (unique records) No Duplicates- RECFM FB, LRECL = 18000

09171123456ABCXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
09171123456DEFXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
09171123456GHIXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Unmatched record - another output file whcih is 14 bytes length

09171123456GHI
09171123456MNO


Please Advice
sultanabdulkadhar
 
Posts: 19
Joined: Tue Jul 07, 2009 9:33 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Help Required in ICETOOL

Postby sultanabdulkadhar » Mon Jul 13, 2009 11:32 pm

sorry... above output as expected is wrong. below one is correct


Unmatched record - another output file whcih is 14 bytes length

09171123456MNO
sultanabdulkadhar
 
Posts: 19
Joined: Tue Jul 07, 2009 9:33 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Help Required in ICETOOL

Postby Frank Yaeger » Tue Jul 14, 2009 1:54 am

Here's a DFSORT/ICETOOL job for your changed requirement:

//S1   EXEC  PGM=ICETOOL
//TOOLMSG   DD  SYSOUT=*
//DFSMSG    DD  SYSOUT=*
//IN1 DD DSN=... input file1 (FB/18000)
//IN2 DD DSN=... input file2 (FB/14)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT1 DD DSN=...  output file1 (FB/18000)
//OUT2 DD DSN=...  output file2 (FB/14)
//TOOLIN DD *
COPY FROM(IN2) TO(T1) USING(CTL1)
COPY FROM(IN1) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT1) ON(1,14,CH) WITH(1,18001) USING(CTL3) -
 KEEPNODUPS
/*
//CTL1CNTL DD *
  INREC OVERLAY=(18001:C'BB')
/*
//CTL2CNTL DD *
  INREC OVERLAY=(18001:C'VV')
/*
//CTL3CNTL DD *
  OUTFIL FNAMES=OUT1,INCLUDE=(18001,2,CH,EQ,C'VB'),
    BUILD=(1,18000)
  OUTFIL FNAMES=OUT2,INCLUDE=(18001,2,CH,EQ,C'BB'),
    BUILD=(1,14)
/*
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1079
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 15 times

Re: Help Required in ICETOOL

Postby sultanabdulkadhar » Tue Jul 14, 2009 10:37 pm

Hi Frank,

Thanks a lot. its working fine....

can you please explain the below code, how is it get populate VB for matched record. since we are moving BB for 14bytes file and VV for 18k file.. where and how the VB combination will happen ?

COPY FROM(IN2) TO(T1) USING(CTL1)
COPY FROM(IN1) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT1) ON(1,14,CH) WITH(1,18001) USING(CTL3) -
KEEPNODUPS
/*
//CTL1CNTL DD *
  INREC OVERLAY=(18001:C'BB')
/*
//CTL2CNTL DD *
  INREC OVERLAY=(18001:C'VV')
/*
//CTL3CNTL DD *
  OUTFIL FNAMES=OUT1,INCLUDE=(18001,2,CH,EQ,C'VB'),
    BUILD=(1,18000)
  OUTFIL FNAMES=OUT2,INCLUDE=(18001,2,CH,EQ,C'BB'),
    BUILD=(1,14)
/*
sultanabdulkadhar
 
Posts: 19
Joined: Tue Jul 07, 2009 9:33 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Help Required in ICETOOL

Postby Frank Yaeger » Tue Jul 14, 2009 10:49 pm

We put 'BB' in positions 18001-2 for file1 and 'VV' in positions 18001-2 for file2.

WITH(1,18001)

For a match on the ON field value, this splices positions 1-18001 from the file2 (overlay) record with position 18002 from the file1 (base) record. So for a match 18001 has 'V' from file2 and 18002 has 'B' from file1. Thus 18001-18002 has 'VB'.
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1079
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 15 times

Re: Help Required in ICETOOL

Postby sultanabdulkadhar » Tue Jul 14, 2009 11:28 pm

Its Great..... Thanks a lot.
sultanabdulkadhar
 
Posts: 19
Joined: Tue Jul 07, 2009 9:33 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Help Required in ICETOOL

Postby sultanabdulkadhar » Fri Jul 17, 2009 11:58 pm

Hi,

I have to execute the below steps in 4 0r 5 times in PROC

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=... input file1 (FB/18000)
//IN2 DD DSN=... input file2 (FB/14)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT1 DD DSN=... output file1 (FB/18000)
//OUT2 DD DSN=... output file2 (FB/14)

if i give T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS) this, i mean DISP=(MOD,PASS), the data still there, when i execute the next time... how to avoid this... my cincern is the temp file will get new every step it runs,
sultanabdulkadhar
 
Posts: 19
Joined: Tue Jul 07, 2009 9:33 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Help Required in ICETOOL

Postby Frank Yaeger » Sat Jul 18, 2009 12:58 am

&&T1 is a temporary data set, so it will be be deleted at the end of the job. A new T1 (with a different temporary name) will be created each time you run the job.

However, if you use &&T1 with DISP=(MOD,PASS) in more than one step of the same job, the data from each step will be appended to the end of the &&T1 data set. You can avoid that by using a different temporary name for each step, e.g. &&T1 for step1, &&T2 for step2, etc.

Does that answer your question? If not, please give more details/clarification.
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1079
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 15 times

PreviousNext

Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post