Page 1 of 1

New help of ICETOOL

PostPosted: Mon Jan 28, 2008 10:23 pm
by pulcinella
Hi All,

(problem similar at the post write Mon Dec 10 2007 but I need a modification of process)

i have two PS files have x records with 124 pos order by the same columns.

x records file1:

AAAAAAAA
BBBBBBBB
GGGGGGGG
HHHHHHHH
JJJJJJJJ


X records file2:

11111111AAAAAAAATTTTTTTTCCCCCCVVVVVVVV
22222222AAAAAAAATTTTUUUUUUUUUUTTTTTCCC
11111111CCCCCCCCIIIIIIIIRRRRRRRUUUUUFF
33333333CCCCCCCCIIIIIIIJRRRRRRRUUUUUFF
44444444CCCCCCCCGUGUGUGGGGGGGUUGUGUGUG
11111111DDDDDDDDTUTUTUTUTUTUTUTUTUTUTT
22222222EEEEEEEEFJHDIEORIWKEJWKDJFFFFF
11111111HHHHHHHHTTTTTIIIIITTITITITITIT
11111111IIIIIIIIHHHHHRHRHRHRHRHRHRHRHR
55555555JJJJJJJJTTTTTIIIIITTTIIIGGGGGG
11111111KKKKKKKKTUTUTUTURURUTUTUTRURUR
11111111LLLLLLLLIIIIIIIIIIIIIIIIIIIIII

in this second file2, I need KEEP ALL duplicate records (AAAAAAAA, BBBBBBBB, GGGGGGGG,HHHHHHHH,JJJJJJJJ)

y record file2:

11111111AAAAAAAATTTTTTTTCCCCCCVVVVVVVV
22222222AAAAAAAATTTTUUUUUUUUUUTTTTTCCC
11111111HHHHHHHHTTTTTIIIIITTITITITITIT
55555555JJJJJJJJTTTTTIIIIITTTIIIGGGGGG

How could I obtain the two case: Y output all duplicates and Z output all no-duplicates (In the other post dec 10 2007, I can't do obtain a second file)

Thanks

Re: New help of ICETOOL

PostPosted: Mon Jan 28, 2008 11:20 pm
by Frank Yaeger
I don't understand the difference between this "new" request and the "old" request. You show the same "y output file2" output records for both. You need to explain more clearly what it is you want to do this time. Please show an example that makes it clear what's different between this new request and the old request.

In the other post dec 10 2007, I can't do obtain a second file


I don't know what you mean by this. A second file was obtained previously.

Re: New help of ICETOOL

PostPosted: Tue Jan 29, 2008 4:54 pm
by pulcinella
I try to explain,

In the example of 10 dec 2007, in the solutions, the first file has data set (with no duplicates) but the second file is empty. I need that the second file has all duplicates delete in the process. I need the two files (first all no duplicates, and second file all records duplicates). The solution was

//STEP032 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=inputfile1,DISP=SHR
// DD DSN=inputfile2,DISP=SHR
//T1 DD DSN=outputfile1,
// DISP=(NEW,CATLG,DELETE),RECFM=FB,
// SPACE=(TRK,(xxx,xxx),RLSE)
//T2 DD DSN=outputfile1,
// DISP=(NEW,CATLG,DELETE),RECFM=FB,
// SPACE=(TRK,(xxx,xxx),RLSE)
//TOOLIN DD *
SPLICE FROM(IN1) TO(T1) ON(9,18,CH) KEEPNODUPS KEEPBASE -
WITHALL WITH(1,81) USING(CTL1)
/*
//CTL1CNTL DD * *** CONSTANT CONTROL CARDS ***
INREC IFTHEN=(WHEN=(1,8,CH,EQ,C' '),OVERLAY=(124:C'BB')),
IFTHEN=(WHEN=NONE,OVERLAY=(124:C'VV'))
OUTFIL FNAMES=T1,INCLUDE=(124,2,CH,EQ,C'VV'),BUILD=(1,123)
OUTFIL FNAMES=T2,INCLUDE=(124,2,CH,EQ,C'VB'),BUILD=(1,123)
/*

But the second file is empty. I need that this file isn't empty

Thanks and excuse me. Maybe this post is not correct

Re: New help of ICETOOL

PostPosted: Tue Jan 29, 2008 9:46 pm
by Frank Yaeger
The original job I gave you did not have an empty second output file - it had the output you requested. However, I set up the input files for my job based on what I thought you showed for the input. I assumed your field for the first file started in position 9. The data I showed for my job looked like this:

//CON DD *
        AAAAAAAA
        BBBBBBBB
        GGGGGGGG
        HHHHHHHH
        JJJJJJJJ
/*
//    DD *
11111111AAAAAAAATTTTTTTTCCCCCCVVVVVVVV
22222222AAAAAAAATTTTUUUUUUUUUUTTTTTCCC
11111111CCCCCCCCIIIIIIIIRRRRRRRUUUUUFF
33333333CCCCCCCCIIIIIIIJRRRRRRRUUUUUFF
44444444CCCCCCCCGUGUGUGGGGGGGUUGUGUGUG
11111111DDDDDDDDTUTUTUTUTUTUTUTUTUTUTT
22222222EEEEEEEEFJHDIEORIWKEJWKDJFFFFF
11111111HHHHHHHHTTTTTIIIIITTITITITITIT
11111111IIIIIIIIHHHHHRHRHRHRHRHRHRHRHR
55555555JJJJJJJJTTTTTIIIIITTTIIIGGGGGG
11111111KKKKKKKKTUTUTUTURURUTUTUTRURUR
11111111LLLLLLLLIIIIIIIIIIIIIIIIIIIIII
/*


Is that what your input files look like, or does the field for the first input file actually start in another position, like position 1?

It would really help if you'd use code tags and/or indicate the starting position, length and format of the relevant input fields.

Re: New help of ICETOOL

PostPosted: Tue Jan 29, 2008 10:46 pm
by pulcinella
Excuse me Frank,

I treat of explain

In file1,
begin at position 9 (the first 8 position are spaces)
the position 9-26 (18 position) are filled (no blank)
the rest are spaces

        AAAAAAAA
        BBBBBBBB
        GGGGGGGG
        HHHHHHHH
        JJJJJJJJ

in file 2,
begin at position 1
the position 9-26 (18 position) are filled (no blank)
the rest are filled

Position 9-26 will be the same and will be important for icetool
The next position's (the position 1-8 and 27-xxx are not important)


11111111AAAAAAAATTTTTTTTCCCCCCVVVVVVVV
22222222AAAAAAAATTTTUUUUUUUUUUTTTTTCCC
11111111CCCCCCCCIIIIIIIIRRRRRRRUUUUUFF
33333333CCCCCCCCIIIIIIIJRRRRRRRUUUUUFF
44444444CCCCCCCCGUGUGUGGGGGGGUUGUGUGUG
11111111DDDDDDDDTUTUTUTUTUTUTUTUTUTUTT
22222222EEEEEEEEFJHDIEORIWKEJWKDJFFFFF
11111111HHHHHHHHTTTTTIIIIITTITITITITIT
11111111IIIIIIIIHHHHHRHRHRHRHRHRHRHRHR
55555555JJJJJJJJTTTTTIIIIITTTIIIGGGGGG
11111111KKKKKKKKTUTUTUTURURUTUTUTRURUR
11111111LLLLLLLLIIIIIIIIIIIIIIIIIIIIII

I can outrec the file's if you want but i need two output record's,
the output Y all duplicates and the other output all no duplicates but
in the solution's of 10 dec only I obtained one file (with all no duplicates)

Sorry for my english and if my explain is not very clear

Thanks

Re: New help of ICETOOL

PostPosted: Wed Jan 30, 2008 2:09 am
by Frank Yaeger
You must be doing something different than I am. Here's the job I gave you previously:

//S1    EXEC  PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG  DD SYSOUT=*
//CON DD *
        AAAAAAAA
        BBBBBBBB
        GGGGGGGG
        HHHHHHHH
        JJJJJJJJ
/*
//    DD *
11111111AAAAAAAATTTTTTTTCCCCCCVVVVVVVV
22222222AAAAAAAATTTTUUUUUUUUUUTTTTTCCC
11111111CCCCCCCCIIIIIIIIRRRRRRRUUUUUFF
33333333CCCCCCCCIIIIIIIJRRRRRRRUUUUUFF
44444444CCCCCCCCGUGUGUGGGGGGGUUGUGUGUG
11111111DDDDDDDDTUTUTUTUTUTUTUTUTUTUTT
22222222EEEEEEEEFJHDIEORIWKEJWKDJFFFFF
11111111HHHHHHHHTTTTTIIIIITTITITITITIT
11111111IIIIIIIIHHHHHRHRHRHRHRHRHRHRHR
55555555JJJJJJJJTTTTTIIIIITTTIIIGGGGGG
11111111KKKKKKKKTUTUTUTURURUTUTUTRURUR
11111111LLLLLLLLIIIIIIIIIIIIIIIIIIIIII
/*
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//TOOLIN DD *
SPLICE FROM(CON) TO(OUT1) ON(9,8,CH) KEEPNODUPS KEEPBASE -
  WITHALL WITH(1,81) USING(CTL1)
/*
//CTL1CNTL DD *
  INREC IFTHEN=(WHEN=(1,8,CH,EQ,C' '),OVERLAY=(81:C'BB')),
        IFTHEN=(WHEN=NONE,OVERLAY=(81:C'VV'))
  OUTFIL FNAMES=OUT1,INCLUDE=(81,2,CH,EQ,C'VV'),BUILD=(1,80)
  OUTFIL FNAMES=OUT2,INCLUDE=(81,2,CH,EQ,C'VB'),BUILD=(1,80)
/*


When I run that job with DFSORT, I get the following output files:

OUT1

11111111CCCCCCCCIIIIIIIIRRRRRRRUUUUUFF   
33333333CCCCCCCCIIIIIIIJRRRRRRRUUUUUFF   
44444444CCCCCCCCGUGUGUGGGGGGGUUGUGUGUG   
11111111DDDDDDDDTUTUTUTUTUTUTUTUTUTUTT   
22222222EEEEEEEEFJHDIEORIWKEJWKDJFFFFF   
11111111IIIIIIIIHHHHHRHRHRHRHRHRHRHRHR   
11111111KKKKKKKKTUTUTUTURURUTUTUTRURUR   
11111111LLLLLLLLIIIIIIIIIIIIIIIIIIIIII   


OUT2

11111111AAAAAAAATTTTTTTTCCCCCCVVVVVVVV     
22222222AAAAAAAATTTTUUUUUUUUUUTTTTTCCC     
11111111HHHHHHHHTTTTTIIIIITTITITITITIT     
55555555JJJJJJJJTTTTTIIIIITTTIIIGGGGGG     


Send me the following offline (yaeger@us.ibm.com) and I'll see if I can figure out what's different between what you're doing and what I'm doing:

o your JCL and control statements
o your input files
o the TOOLMSG and DFSMSG messages
o your output files

Please put "DFSORT" somewhere in the Subject line of your e-mail to catch my attention