Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Need a Macro to compare datasets and store the output

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
Anupam Nayak

New User


Joined: 17 Feb 2020
Posts: 1
Location: India

PostPosted: Mon Feb 17, 2020 4:45 pm    Post subject: Need a Macro to compare datasets and store the output
Reply with quote

Hi,

Can I write and run a macro on ISPF screen that can compare 2 PDS members and save the output in another PDS member, and do repeated compares? Please let me know if we have any other method to do the same.
Back to top
View user's profile Send private message

enrico-sorichetti

Senior Member


Joined: 14 Mar 2007
Posts: 10662
Location: italy

PostPosted: Mon Feb 17, 2020 4:57 pm    Post subject: Reply to: Need a Macro to compare datasets and store the output
Reply with quote

read the ISPF manuals about SUPERC capabilities
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 734
Location: Pennsylvania

PostPosted: Mon Feb 17, 2020 8:15 pm    Post subject:
Reply with quote

Here is a nugget for you to work with to get you started.

This is just the call to SUPERCE from a REXX exec.

You will need a loop for each member to wrap around this code.
This would be best as an internal subroutine.

Code:
/*  INVOKE 3.13 SUPERCE WITHOUT THE PANEL.            */

/* POPULATE SYSIN WITH COMPARE OPTIONS OF YOUR CHOICE */
"ALLOC FI(SYSIN) DA('SUPER.SYSIN.SEQ') SHR REUSE"

 SCEOLDFL = 'OLD.PDS('||MEMBER||')'
 SCENEWFL = 'NEW.PDS('||MEMBER||')'
"ALLOC FI(OLDDD) DA('"SCEOLDFL"') SHR REUSE"
"ALLOC FI(NEWDD) DA('"SCENEWFL"') SHR REUSE"

 SUPER_OUT = 'RESULTS.PDS('||MEMBER||')'
"ALLOC FI(OUTDD) DA('"SUPER_OUT"') SHR REUSE"

"ISPEXEC SELECT PGM(ISRSUPC) PARM(DELTAL,LINECMP,,)"

"FREE FI(SYSIN)"
"FREE FI(OLDDD)"
"FREE FI(NEWDD)"
"FREE FI(OUTDD)"

/* VIEW RESULTS IF YOU CHOOSE */
"ISPEXEC VIEW DATASET ("SUPER_OUT")"
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 -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Compare Two datasets and get the 1st ... ArunkumarGanesan DFSORT/ICETOOL 4 Fri Mar 27, 2020 2:00 am
No new posts DFSORT Output file order query A_programmers DFSORT/ICETOOL 1 Thu Mar 26, 2020 11:59 pm
No new posts Compare input date as YYMMDD with the... Khurshid_Khan SYNCSORT 5 Fri Feb 21, 2020 10:28 pm
No new posts convert SUPERC compare report to side... jzhardy CLIST & REXX 5 Fri Feb 21, 2020 8:55 am
No new posts Compare 2 records of the same PS file... Twinkle22 COBOL Programming 10 Fri Jan 31, 2020 3:25 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us