|
View previous topic :: View next topic
|
| Author |
Message |
Anupam Nayak
New User
Joined: 17 Feb 2020
Posts: 1
Location: India
|
|
|
|
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 |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| read the ISPF manuals about SUPERC capabilities |
|
| Back to top |
|
|
daveporcelan
Active Member
Joined: 01 Dec 2006
Posts: 792
Location: Pennsylvania
|
|
|
|
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 |
|
|
|
|
