Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Paired changes and Non paired chnges in seperate files

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
ajithkumarsl

New User


Joined: 23 Oct 2006
Posts: 19
Location: Chennai

PostPosted: Tue Jun 19, 2007 7:49 am    Post subject: Paired changes and Non paired chnges in seperate files
Reply with quote

Hi,

Going through some similar cases, I cannot find a exact solution for my requirement.

I did a Superc comparison and i got a result like this

4166 TOTAL CHANGES (PAIRED+NON PAIRED CHNG)
2940 PAIRED CHANGES (REFM+PAIRED INS/DEL)
1215 NON-PAIRED INSERTS
11 NON-PAIRED DELETES

Now, My requirement is I want

1. 2940 paired changes in one file
2. 1215 non paired inserts in another one file
3. 11 non-paired deleted in another one file

I am quite new to the mainframes.

I tried with the Splice option in ICETOOL, but I am getting an output as Paired and non-paired inserts(2940 + 1215) records in one file and Paired and Non-paired deletes(2940 + 11)records in another file and I cannot separate the paired change and non-paired change records.

I tried with Comparex also but getting a similar result.

Is there any option in Superc itself for getting these in separate files?

Please help me out to solve this issue.

Thank you,
Ajith Kumar
Back to top
View user's profile Send private message

krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Tue Jun 19, 2007 9:49 am    Post subject:
Reply with quote

ajithkumarsl

Quote:
Now, My requirement is I want

1. 2940 paired changes in one file
2. 1215 non paired inserts in another one file
3. 11 non-paired deleted in another one file

If you have already extracted these information through Superc , then its only a matter of splitting this into 3 o/p files.
Show the extracted data from SUPERC and also show how the o/p should look like.

Quote:
I tried with the Splice option in ICETOOL

Let us know what you had tried? icon_rolleyes.gif
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Tue Jun 19, 2007 10:35 am    Post subject:
Reply with quote

krisprems,

Quote:
If you have already extracted these information through Superc , then its only a matter of splitting this into 3 o/p files.
Show the extracted data from SUPERC and also show how the o/p should look like.


Could you let us know how will you pull the paired records from the SUPERC list?
Back to top
View user's profile Send private message
ajithkumarsl

New User


Joined: 23 Oct 2006
Posts: 19
Location: Chennai

PostPosted: Tue Jun 19, 2007 10:55 am    Post subject:
Reply with quote

Thanks for ur reply Kris.

The result will be in the spool or in a data set and this will look like as follows -

1. for Non-paired Inserts

I - 53171310048692D5359600041105
I - 53171310048692W1071200041105
I - 53171310048692W5287700041105
I - 53171310048692W5327400041105

2. for non-paired deletes

D - 29300727406532W5325500095022
D - 29300727406532W5863500095022
D - 29300727406532W6040600095022

3. for Paired chnages

I - 29300727574019W10706000081267
D - 29300727574019W10706000081267
I - 29300727574019W10879000081267
D - 29300727574019W10879000081267
I - 29300727574019W53255000081267
D - 29300727574019W53255000081267

These all will be mixed up and it is even difficult to seperate a few records manually. I have thousands of records and i need any other way.

I want the output files like

In one file only the inserts:

53171310048692D5359600041105
53171310048692W1071200041105
53171310048692W5287700041105
53171310048692W5327400041105

In another file only the deletes:

29300727406532W5325500095022
29300727406532W5863500095022
29300727406532W6040600095022


In another one file only the paired changes

29300727574019W10706000081267
29300727574019W10706000082267
29300727574019W10879000084267
29300727574019W10879001081167
29300727574019W53255400082567
29300727574019W53255000087867

By using splice option in the ICETOOL I tried to seperate by using the following control statement -

SPLICE FROM(DS01)) TO(DS02) ON(1,29,CH) -
WITH(33,1) KEEPNODUPS

The DS01 and DS02 are two DD names. The 32 and 33rd position I sufixed with a Tag say '11' and '22' in the old and new files respectively which I used for Superc Comparison. The DS01 will contain all the merged records from the Old and New files sufixed with 11 and 22 respectively. The output DD(DS02) will be contain(after run) the records with sufix 11, 22 and 12. the 11 will be the in new file but not in old file(non-paired inserts) and 22 will be the in old file but not in new file(non-paired deletes) and 12 will be the common records.

But now what is happening is the Icetool considers the paired changes also Non-paired inserts or deletes.

I think i explained what i did clearly.

can u say any other option or utility to do the required action Please?

Thanks for ur time.
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Tue Jun 19, 2007 1:12 pm    Post subject:
Reply with quote

ajithkumarsl

Check this ICETOOL solution for extracting
Quote:
1. 2940 paired changes in one file
2. 1215 non paired inserts in another one file
3. 11 non-paired deleted in another one file

Code:
//******************************************************************** 
//S1       EXEC  PGM=ICETOOL                                           
//TOOLMSG  DD  SYSOUT=*                                                 
//SSMSG    DD SYSOUT=*                                                 
//IN       DD *   
 I - 53171310048692D5359600041105                                       
 I - 53171310048692W1071200041105                                       
 I - 53171310048692W5287700041105                                       
 I - 53171310048692W5327400041105                                       
 D - 29300727406532W5325500095022                                       
 D - 29300727406532W5863500095022                                       
 D - 29300727406532W6040600095022                                       
 I - 29300727574019W10706000081267                                     
 D - 29300727574019W10706000081267                                     
 I - 29300727574019W10879000081267                                     
 D - 29300727574019W10879000081267                                     
 I - 29300727574019W53255000081267                                     
 D - 29300727574019W53255000081267                                     
/*                                                                     
//OUT      DD SYSOUT=*                                                 
//OUT1     DD SYSOUT=*                                                 
//OUT2     DD SYSOUT=*                                                 
//TOOLIN   DD    *                                                     
  SELECT FROM(IN) TO(OUT) ON(6,29,CH) ALLDUPS USING(CP01)               
  SELECT FROM(IN) TO(OUT1) ON(6,29,CH) NODUPS USING(CP02)               
/*                                                                     
//CP01CNTL DD    *                                                     
  OUTFIL FNAMES=OUT,BUILD=(6,29)                                       
/*                                                                     
//CP02CNTL DD    *                                                     
  OUTFIL FNAMES=OUT1,INCLUDE=(2,1,CH,EQ,C'I'),BUILD=(6,29)             
  OUTFIL FNAMES=OUT2,INCLUDE=(2,1,CH,EQ,C'D'),BUILD=(6,29)             
/*                                                                     


OUT(Paired Changes)
Code:
29300727574019W10706000081267
29300727574019W10706000081267
29300727574019W10879000081267
29300727574019W10879000081267
29300727574019W53255000081267
29300727574019W53255000081267

OUT1(Non-paired Inserts )
Code:
53171310048692D5359600041105
53171310048692W1071200041105
53171310048692W5287700041105
53171310048692W5327400041105

OUT2(non-paired deletes)
Code:
29300727406532W5325500095022
29300727406532W5863500095022
29300727406532W6040600095022


murmohk1, Hope i have answered your question here.!

ajithkumarsl, I havent looked at your SPLICE approach, am bit occupied!
Back to top
View user's profile Send private message
ajithkumarsl

New User


Joined: 23 Oct 2006
Posts: 19
Location: Chennai

PostPosted: Wed Jun 20, 2007 8:02 am    Post subject:
Reply with quote

Hi Kris,

U are right. In this case this is a solution.

But in a couple of other instances, I found that the paired changes, the records are matching only to a certain extend - i mean it will not be the exact duplicate.

For example please make a look on the following records

I - 29300727574019W10706000081267
D - 29300727574019W10706000082267
I - 29300727574019W10879000084267
D - 29300727574019W10879001081167
I - 29300727574019W53255400082567
D - 29300727574019W53255000087867

I did the comparison with 1:29 positions.

The report was like

3 TOTAL CHANGES (PAIRED+NONPAIRED CHNG)
3 PAIRED CHANGES (REFM+PAIRED INS/DEL)
0 NON-PAIRED INSERTS
0 NON-PAIRED DELETES

if I try by ur method, we will not get any record in any of the file(out,out1 and out2).

Can u please try this.

Thank you for ur time.
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Wed Jun 20, 2007 1:31 pm    Post subject:
Reply with quote

ajithkumarsl

Quote:
I did the comparison with 1:29 positions.

Is this 1 to 29 or from 6 position through to 29 bytes?

Just check your select statement(positions) once.

If not resolved, provide the select statement that you are using and the sample set of i/p's.
Back to top
View user's profile Send private message
ajithkumarsl

New User


Joined: 23 Oct 2006
Posts: 19
Location: Chennai

PostPosted: Thu Jun 21, 2007 6:59 am    Post subject:
Reply with quote

Hai Kris,

I am sending the full report. I think this will clear your doubt.

LINE COMPARE SUMMARY AND STATISTICS

0 NUMBER OF LINE MATCHES --- 3 TOTAL CHANGES (PAIRED+NONPAIRED CHNG)
0 REFORMATTED LINES --- 3 PAIRED CHANGES (REFM+PAIRED INS/DEL)
3 NEW FILE LINE INSERTIONS --- 0 NON-PAIRED INSERTS
3 OLD FILE LINE DELETIONS --- 0 NON-PAIRED DELETES
3 NEW FILE LINES PROCESSED
3 OLD FILE LINES PROCESSED

LISTING-TYPE = DELTA COMPARE-COLUMNS = 1:29 LONGEST-LINE = 30
PROCESS OPTIONS USED: NONE

(the hypens are not in the report - i put for understand the spaces between that)


I think it is a little bit tough to identify a common characterestic in the paired change.

Thank you very much for helping me Kris
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Thu Jun 21, 2007 11:01 am    Post subject: Re: Paired changes and Non paired chnges in seperate files
Reply with quote

ajithkumarsl
Quote:
But in a couple of other instances, I found that the paired changes, the records are matching only to a certain extend - i mean it will not be the exact duplicate.


If you give the proper positions and length, you will get the right o/p
I considered what ever records you provided and ran the Sort again, check this
Code:
//******************************************************************** 
//S1       EXEC  PGM=ICETOOL                                           
//TOOLMSG  DD  SYSOUT=*                                                 
//SSMSG    DD SYSOUT=*                                                 
//IN       DD *                                                         
 I - 29300727574019W10706000081267                                     
 D - 29300727574019W10706000082267                                     
 I - 29300727574019W10879000084267                                     
 D - 29300727574019W10879001081167                                     
 I - 29300727574019W53255400082567                                     
 D - 29300727574019W53255000087867                                     
/*                                                                     
//OUT      DD SYSOUT=*                                                 
//OUT1     DD SYSOUT=*                                                 
//OUT2     DD SYSOUT=*                                                 
//TOOLIN   DD    *                                                     
  SELECT FROM(IN) TO(OUT) ON(6,29,CH) ALLDUPS USING(CP01)               
  SELECT FROM(IN) TO(OUT1) ON(6,29,CH) NODUPS USING(CP02)               
/*                                                                     
//CP01CNTL DD    *                                                     
  OUTFIL FNAMES=OUT,BUILD=(6,29)                                       
/*                                                                     
//CP02CNTL DD    *                                                     
  OUTFIL FNAMES=OUT1,INCLUDE=(2,1,CH,EQ,C'I'),BUILD=(6,29)             
  OUTFIL FNAMES=OUT2,INCLUDE=(2,1,CH,EQ,C'D'),BUILD=(6,29)             
/*                                                                     

If
Quote:
the records are matching only to a certain extend

then i shd have some records in the o/p OUT.
But, the OUT is empty for my run.
OUT1 contains
Code:
29300727574019W10706000081267
29300727574019W10879000084267
29300727574019W53255400082567

OUT2 Contains
Code:
29300727574019W10706000082267
29300727574019W10879001081167
29300727574019W53255000087867

Check this Quote, i have marked bold for the part which is matching....
Quote:

29300727574019W10706000081267
29300727574019W10706000082267
29300727574019W10879000084267
29300727574019W10879001081167
29300727574019W53255400082567
29300727574019W53255000087867

Check if the i/p file that you are using is an VB file,Since the position that you need to use will differ than wt i have suggested here!
Back to top
View user's profile Send private message
ajithkumarsl

New User


Joined: 23 Oct 2006
Posts: 19
Location: Chennai

PostPosted: Thu Jun 21, 2007 12:11 pm    Post subject:
Reply with quote

Hi Kris,

That is absolutely currect Kris.
This only a sample. there are thousands of records and for all these records it is very difficult to find a comon characteristics like this.

For example please look in this report form superc

I - 29140727574019W107060000000100
D - 29130727574019W107060000000100
I - 29315727574019W108790000000200
D - 29314727574019W108790000000200
I - 29301627574019W532554000000300
D - 29301527574019W532550000000300


0 NUMBER OF LINE MATCHES---- 3 TOTAL CHANGES (PAIRED+NONPAIRED CHNG)
0 REFORMATTED LINES ---- 3 PAIRED CHANGES (REFM+PAIRED INS/DEL) 3 NEW FILE LINE INSERTIONS ---- 0 NON-PAIRED INSERTS
3 OLD FILE LINE DELETIONS ----- 0 NON-PAIRED DELETES
3 NEW FILE LINES PROCESSED
3 OLD FILE LINES PROCESSED

LISTING-TYPE = DELTA COMPARE-COLUMNS = 1:29 LONGEST-LINE = 30


These cases are very complicated. Very difficult to find a common characteristic by which we can extract.

Kris, is there any option in Superc It self for extracting this?

Thank you very much for ur time Kris.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts getting three output files out of JOI... migusd SYNCSORT 7 Mon Jun 05, 2017 11:30 pm
No new posts Using ICETOOL, how we can seperate th... bshkris SYNCSORT 5 Tue May 09, 2017 8:33 pm
No new posts Unable to create multiple files using... mbattu COBOL Programming 3 Fri May 05, 2017 5:35 pm
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts Dynamic split of files under groups sril.krishy DFSORT/ICETOOL 4 Mon Apr 17, 2017 1:09 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us