View previous topic :: View next topic
|
Author |
Message |
Mani453
New User
Joined: 19 Nov 2015 Posts: 13 Location: INDIA
|
|
|
|
Hi
I want to write a code for comparison of two different PDS(one in production and other one will be in test). Whether it will be easy in rexx or easytreive.
Is that possible? because in that two pds, ps members will be same but qualifiers will be different. Can anyone suggest with the code. |
|
Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2455 Location: Hampshire, UK
|
|
|
|
Why not just adapt what you have in your other post? Yes, it is possible to write a program (not a code) in Rexx to do this and you were given a hint in your other thread. |
|
Back to top |
|
|
Mani453
New User
Joined: 19 Nov 2015 Posts: 13 Location: INDIA
|
|
|
|
Hi Nic
My client again requested me prepare a tool. For comparison of test and production also. Can you suggest me the rexx program. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
Quote: |
Can you suggest me the rexx program. |
nobody will waste time in explaining how to reinvent the wheel ...
anyway comparing <files> is simple
see the cobol snippet on two files match
but if it is - source code - data without a match key -
the task is probably outside Your skill level
so just convince Your client to use the tools/programs available and sweeten the pill by writing a wrapper around it. |
|
Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2455 Location: Hampshire, UK
|
|
|
|
SUPERC is a tool. But if you are going to re-invent the wheel I and you do not know rexx then start reading the manual - Keywords, Functions and Parsing in particular. And then the TSO Extensions manual - EXECIO. And then the ISPF Library Services manual - most parts. |
|
Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3049 Location: NYC,USA
|
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
You know how to compare two files using a batch job, all you have to do is do the same in rexx...
To do the same in rexx, your program has to do:
1. allocate required DD statements using ALLOCATE command.
2. provide SYSIN file with data using EXECIO statement
3. Invoke SUPERC:
Code: |
myparm = "DELTAL,LINECMP"
Address LINKMVS "ISRSUPC MYPARM" |
4. My suggestion is to VIEW the resulting OUTDD file after SUPERC finishes.
---
An alternate approach is to write a rexx program to VIEW a member of the production file and then have an initial editor macro that automatically issues the editor COMPARE command against the test file. The result is a panel that shows the differences in a member and where you can easily incorporate the differences. |
|
Back to top |
|
|
|