Help Required in ICETOOL

[sultanabdulkadhar]

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

[Frank Yaeger]

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.

[sultanabdulkadhar]

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]

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


Unmatched record - another output file whcih is 14 bytes length

09171123456MNO

[Frank Yaeger]

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

Code: Select all

//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)
/*


[sultanabdulkadhar]

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 ?

Code: Select all

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]

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'.

[sultanabdulkadhar]

Its Great..... Thanks a lot.

[sultanabdulkadhar]

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,

[Frank Yaeger]

&&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.