Hi All,
Is it possible to display the Matching Records (instead of the Differences) using 3.13 SUPER CE utility. If so, please let me know how. Thank you.
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
Hello and welcome to the forum,
Not that i'm aware of - SUPERC is to identify differences. . .
You can probably do what you want using your sort product.
For any help to be given, you need to post much more info than you have. What re the recfm and lrecl of the files? What is wanted for output? Post some representative sample input data from both files and show the output you want when your process is run.
Hi Gerry,
I used your example and I got Matching, Un-Matching records all in one. Now I want to separate Matching from Unmatching. For that below is the requirement.
If the First 2 Bytes of the Record is *M, then start copying all the Records till the Record whose first 2 bytes are *I or *D. for eg.
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
Nageshwar Vedula wrote:
Hi Gerry,
I used your example and I got Matching, Un-Matching records all in one. Now I want to separate Matching from Unmatching. For that below is the requirement.
If the First 2 Bytes of the Record is *M, then start copying all the Records till the Record whose first 2 bytes are *I or *D. for eg.[...]So my output should contain all the records from *M till (*I or *D) in the above i.e. This should be repeated for all *M in the First 2 bytes
Ah, so now we see a rather different requirement; you want your output to consist of groups of records identified by group headers.
Not being a *Sort maven, I will defer to those more knowledgeable than I as to whether this can be done with *Sort. Otherwise, you're looking at a little programming; fortunately, as your profile indicates that COBOL is in your skill set, this will not be difficult for you.
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
I would recommend against it; the duplicate post would only be seen as a waste of space and an annoyance. One of the moderators -- Mr. Yaeger, if no other -- will know if it is possible or not. If so, you can ask (or perhaps will not even need to do so) that moderator to move this thread to a more appropriate forum.
Joined: 08 May 2006 Posts: 1193 Location: Dublin, Ireland
Whether a moderator should move it to the JCL forum or DFSORT forum will depend on whether you are using SYNCSORT or DFSORT. I suggest you post whichever sort product you use and ask for it to be moved as appropriate.
Hi Gerry,
I tried your solution, but getting the below error.
Code:
SYNCSORT FOR Z/OS 1.3.1.0R U.S. PATENTS: 4210961, 5117495 (C) 2007
z/OS 1.11.0
SYNCSORT LICENSED FOR CPU SERIAL NUMBER 29773, MODEL 2096 V02
SYSIN :
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(3,1,CH,EQ,C'-'),PUSH=(101:1,3))
*
OUTFIL INCLUDE=(1,3,CH,NE,C'*M-',AND,101,3,CH,EQ,C'*M-'),
BUILD=(1,100)
WER268A INREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
You need a Syncsort solution. Have you got your manual handy?
Maybe the topic can be split into the JCL forum at this stage?
Edit: Whoops, already in JCL it seems. Perhaps still a split? "Using Syncsort to list matched records" or whatever. I'm rushing to beat the 10 minute deadline, so can't check if name is reasonable...
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
Hello,
If you had used the Code Tag, your post would have been easier to read. It has now been coded. . .
Your control statement looks incorrect. You may need an END= if you use BEGIN= or you may need to remove the WHEN=GROUP and use only the
IFTHEN=(WHEN=(1,1,CH,EQ,C’S’), form.
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
Hi,
If I run the code I provided, I get the following error
Code:
SYNCSORT FOR Z/OS 1.3.1.0N U.S. PATENTS: 4210961, 5117495 (C) 2007 SYNCSO
z/OS 1.9.0
SYNCSORT LICENSED FOR CPU SERIAL NUMBER 1EAED, MODEL 2096 N02 LICEN
SYSIN :
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(3,1,CH,EQ,C'-'),PUSH=(101:1,3))
*
OUTFIL INCLUDE=(1,3,CH,NE,C'*M-',AND,101,3,CH,EQ,C'*M-'),
BUILD=(1,100)
WER268A INREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
I think your SYNCSORT like mine does not support the WHEN=GROUP function. Note the error points to GROUP and not to BEGIN=(3,1,
Joined: 28 Aug 2007 Posts: 1742 Location: Tirupur, India
Hi,
Superc with long listing provides both the matched and difference records,
if we have a SORT step to omit unwanted(insertions/deletions) records then we would have only the matched records in output,
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
Hello,
Quote:
My 1.3 manual shows that WHEN=GROUP is supported.
My bad . . .
My 1.3 documentation includes changes up thru 1.3.2 - which has the WHEN=GROUP support. I must have replaced the original 1.3 material with the newer update. The 1.3.1 does not support WHEN=GROUP as has been mentioned. Apologies for the false lead. . .
@Nageshwar Rao Vedula - as even 1.3.2 has been around for quite a while, possibly your product could be upgraded to the newest 1.4 which has WHEN=GROUP and a whole lot more.
