REXX macro for compare

[Baskaran Subramaniam]

Greetings to all List Users

We have a rexx exec which compares 2 PDS using self developed logic, now to
improve the performance we want to
modify this exec such that it will compare the PDSs by calling SUPERC, could
anybody advise how to call SUPERC
from the exec and how to pass parameters like the columns to be compared,etc.,
to it and how to analyse the results
of the compare (whether it will give any returncode if there are no mismatch)

Also Pls let me know from where can I get info on ISRDDN, ISRSUPC,etc.,

TIA
with best rgds
Baskar

[Itschak Mugzach]

Below is a sample of batch invokation of superc. Preallocate newdd, olddd
and outdd and call isrsupc using the SELECT PGM() service or via call.

//SUPERC EXEC PGM=ISRSUPC,
// PARM=(DELTAL,LINECMP,
// ' SEQ',
// '')
//NEWDD DD DSN=ISPO.SPF.LOAD(ISGAMBR),
// DISP=SHR
//OLDDD DD DSN=ISTO.SPF.LOAD(ISGAMBR),
// DISP=SHR
//OUTDD DD SYSOUT=(X)

Btw, the jcl produced from ispf opt 3.12 (select batch environment).

SIH, Itschak Mugzach, Securiteam Software.

[Metz, Seymour]

SUPERC can be driven by a set of control statements, documented in one of
the ISPF manuals. Your REXX will need to allocate all of the required files.
If the documentation is unclear, there is an ISPF-L
(LIST...@LISTSERV.ND.EDU) mailing list and one of the ISPF developers
monitors it.

There are help data (PF1) for ISRDDN, but no other documentation. I wish it
were otherwise, but it's useful enough that I'm glad it's there, even
without being in the manuals. But I vaguely recall that there may be
something on the ISPF web site.

Shmuel (Seymour J.) Metz

[Scarcella, Gary V]

Here's a part of a REXX program that invokes SUPERC (I used it for SEARCH
instead of COMPARE), but the process should be similar.

M = MSG("OFF")
"FREE FI(SYSIN)" /* FOR USE BY SUPERC SEARCH PROCESS */
"ALLOC FI(SYSIN) DA('"ID".X"CURRTIME".SEARCH.INPUT')",
"NEW RECFM(F B) LRECL(80) BLKSIZE(23440) DSORG(PS)",
"SPACE(1,1) BLOCK(23440) CATALOG REUSE"
IF RC > 0 THEN
DO
ERROR_MSG = 'UNSUCESSFUL ALLOCATION OF SEARCH INPUT FILE'
CALL SEVERE_ERROR
END

"FREE FI(OUTDD)" /* FOR USE BY SUPERC SEARCH PROCESS */
"ALLOC FI(OUTDD) DA('"ID".X"CURRTIME".SEARCH.OUTPUT')",
"NEW RECFM(F B) LRECL(133) BLKSIZE(13300) DSORG(PS)",
"SPACE(1,1) BLOCK(23440) CATALOG REUSE"
IF RC > 0 THEN
DO
ERROR_MSG = 'UNSUCESSFUL ALLOCATION OF SEARCH OUTPUT FILE'
CALL SEVERE_ERROR
END
M = MSG("ON")

M = MSG("OFF")
"FREE FI(NEWDD)"
"ALLOC FI(NEWDD) DA('"LOADLIB"("ZZ_LOAD_NAME")') SHR REUSE"
M = MSG("ON")

QUEUE "SRCHFOR X'" || ZZ_DB2CAT_REVTOKEN || "'"
QUEUE ''
SEARCH_PARM = 'SRCHCMP,LMTO' /*LIST MEMBER TOTALS ONLY*/
/*------------------*/
CALL SUPERC_SEARCH
/*------------------*/

/*--------------------------------------------------------------------*/
SUPERC_SEARCH:
/*--------------------------------------------------------------------*/
/* BEFORE CALLING THIS ROUTINE YOU MUST HAVE THE FOLLOWING ALLOCATIONS*/
/* QUEUE INPUT CONTROL CARDS FOR SUPERC SEARCH TO BE WRITTEN TO SYSIN */
/* SYSIN - FILE TO HOLD INPUT CONTROL CARDS FOR SUPERC SEARCH */
/* OUTDD - FILE TO HOLD OUTPUT FROM SEARCH ROUTINE */
/* NEWDD - FILE CONTAINING DATA TO SEARCH */
/* SEARCH_PARM MUST BE SET TO SUPERC SEARCH OPTIONS */
/*--------------------------------------------------------------------*/
/* SEARCH_FOUND WILL BE SET TO 'YES' OR 'NO' WHEN ROUTINE COMPLETES */
/*--------------------------------------------------------------------*/
SEARCH_FOUND = 'NO'
ADDRESS MVS "EXECIO * DISKW SYSIN (FINIS"
IF RC > 0
THEN DO
ERROR_MSG = 'UNSUCESSFUL CREATION OF SUPER COMPARE -805' ,
'SEARCH CARDS'
CALL SEVERE_ERROR
END

TRAP = OUTTRAP("TMP.")
"ISPSTART PGM(ISRSUPC) PARM("SEARCH_PARM")"
TRAP = OUTTRAP(OFF)

ADDRESS MVS "EXECIO * DISKR OUTDD (STEM SRCHOUT. FINIS"
X = SRCHOUT.0 /* GET NUMBER OF ENTRIES */
IF X = 0
THEN DO
ERROR_MSG = 'NO OUTPUT CREATED BY SUPER COMPARE SEARCH .',
'MAKE SURE CHECK805 IS RUN IN BATCH MODE'
CALL SEVERE_ERROR
END
ELSE DO /* PROCESS SEARCH OUTPUT */
DO I = 1 TO X /* SEARCH FOR OCCURANCE FOUND COUNT */
IF INDEX(SRCHOUT.I,'LINES-FOUND') > 0 THEN
DO
V = I + 1
IF WORD(SRCHOUT.V,1) > 0 THEN
DO
SEARCH_FOUND = 'YES'
LEAVE
END
END
END /* I = 1 TO X */
END /* ELSE DO */

RETURN

Gary Scarcella
AFS/IRM/DBA - TSB2
Internet address: Scarc...@aetna.com

> ----------
> From: Metz, Seymour[SMTP:sm...@NSF.GOV]
> Reply To: TSO REXX Discussion List
> Sent: Wednesday, November 24, 1999 8:57 AM
> To: TSO-...@VM.MARIST.EDU
> Subject: Re: REXX macro for compare

[Doug Nadel]

On 24 Nov 1999 02:34:07 -0800, in bit.listserv.tsorexx you wrote:

>
>Also Pls let me know from where can I get info on ISRDDN, ISRSUPC,etc.,

ISRSUPC is doc'ed in one of the ISPF books, I think it is the User's
Guide. It is in an appendix. However, that appendix didn't make it
to the Collection kit CD for some reason in the OS/390 2.5-2.7 doc.
It should be there for 2.8+ and may be available on the web at IBM's
s390 library site.
http://www.s390.ibm.com/bookmgr-cgi/bookmgr.cmd/BOOKS/ISPUSR03/APPENDIX1%2e3?SHELF=ISPBKM08

ISRDDN documentation is available at my web site listed below. That
doc is actually for a possible future version of ISRDDN but includes
features already available in option 6 of TASID. I'd suggest using
the PDF version
http://www.mindspring.com/~somebody/isrddnms2.pdf if you want to print
it (that is a bit more up to date than the web version). Comments are
welcome as you will see in the intro page.

Doug Nadel
----------------------------------------
ISPF & OS/390 Tools & Toys page:
http://www.mindspring.com/~somebody/