IBM Mainframe Forum

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

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.

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

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:



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.

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


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)



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

You must be doing something different than I am. Here's the job I gave you previously:



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

OUT1



OUT2



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