Dave,
Here is a rexx exec to invoke ISRSUPC in rexx
/* REXX */
ADDRESS TSO
"ALLOC FI(NEWDD) DA('PMSBDH.VPS.LRS.AFP.V2R10.FDEFLIB') SHR"
"ALLOC FI(OLDDD) DA('VPS.LRS.VPS.V2R10.FDEFLIB') SHR"
"ALLOC DD(OUTDD) DA(*) REU"
"ALLOC F(SYSIN) DUMMY REUSE"
"CALL *(ISRSUPC) 'FILECMP,DELTAL'"
"FREE FI(NEWDD OLDDD SYSIN OUTDD)"
Check this link for SUPERC reference
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ISPZU290/A.0?
Kolusu
IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> wrote on
03/06/2014 02:01:36 PM:
> From: "Hansen, Dave L - Eagan, MN" <dave.l.han...@usps.gov>
> To: IBM-MAIN@listserv.ua.edu,
> Date: 03/06/2014 02:02 PM
> Subject: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)
> Sent by: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu>
>
> Dear Group,
>
> Ok, I got IEBCOMPR to work:
>
> "ALLOC FI(SYSUT1) DA('PMSBDH.VPS.LRS.AFP.V2R10.FDEFLIB') SHR"
> "ALLOC FI(SYSUT2) DA('VPS.LRS.VPS.V2R10.FDEFLIB') SHR"
> "ALLOC DD(SYSPRINT) DA(*) REU"
> "ALLOC DD(SYSIN) RECFM(F B) LRECL(80) NEW REU"
> QUEUE " COMPARE TYPORG=PO"
> "EXECIO" queued() "DISKW SYSIN (FINIS"
> "CALL *(IEBCOMPR)"
> CC=RC
> if cc <> 0 Then Do
> SAY "IEBCOMPR FAILED FOR AFP.V2R10.FDEFLIB"
> ...
> "FREE FI(SYSUT1 SYSUT2 SYSIN SYSPRINT)"
>
> With IEBCOMPR I look for a RC of 0.
>
>
>
> I found this site: http://computer-programming-forum.com/38-
> rexx/35af2e8f164fb280.htm and this EXEC:
>
> /* test si version prod et approd identique */
> say "Test si version PROD et APPROD identique ...."
> address TSO "alloc fi(newdd) da('A3ZP.PROD.CICS("pgm")') shr reu"
> address TSO "alloc fi(olddd) da('A3WD.APPROD3.CICS("pgm")') shr reu"
> address tso "call *(isrsupc)"
> if rc = 0 then
> do
> say "version identique."
> end
> else
> do
> say "!!!!! VERSION PROD APPROD DIFFERENTES !!!!!"
> exit
> end
>
> Mostly this just hangs for me, but once I did get an RC of 24.
> In the ISPF User's Guide it says RC 24 is ERROR. I/O Error writing
> to the output listing file.
>
> Q). Does this Example need some more work?
>
>
>
>
> I found some doc that said ISRSUPC was documented in the ISPF
> User guide. Vol 2. I have been looking for where the KEYWORDS are
> listed for ISRSSUPC. In appendix A they list some stuff.
>
> It says: "The keywords and parameters are:"
> "CTYPE Specifies the compare type. The parameter
> can be one of the SuperC compare types (File, Line, Word, or Byte).
> To call the Search-For program, use CTYPE(SRCH)".
> "PROCESS Specifies the process options"
> OK, I want ISRSUPC to use a CTYPE of FILE to do a file level compare.
>
>
> I tried:
>
> "CALL *(ISRSUPC)" "FILE"
> INVALID KEYWORD, FILE
>
> "CALL *(ISRSUPC)" "CTYPE(FILE)"
> INVALID KEYWORD, CTYPE(FILE)FILE
>
> I saw PGM=ISRSUPC),PARM=(DELTAL,LINECMP,'',''). So I tried:
>
> "CALL *(ISRSUPC) FILECMP"
> INVALID KEYWORD, FILECMP
>
>
> Q). Where are the Keyword and Parameters for SUPERC (aka ISRSUPC)
found?
>
>
> Thanks again, Dave
>
>
>
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU
> ] On Behalf Of Sri h Kolusu
> Sent: Thursday, March 06, 2014 12:29 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: 0C4 from TSOEXEC IEBCOMPR
>
> Q. Do IEBCOMPR and ISRSUPC both support alternate DDName lists?)
>
> Paul,
>
> I do believe IEBCOMPR can be invoked using alternate DDname list
> (example shown below), but with ISRSUPC I get RC of 24
>
> /* REXX - Invoke IEBCOMPR With alternate DDnames. */
> "ALLOC FI(PDS1) DA('KOLUSU.PMR66403.JCL') SHR"
> "ALLOC FI(PDS2) DA('KOLUSU.PMR66403.JCL') SHR"
> "ALLOC DD(REP) DA(*) REU"
> "ALLOC DD(CTL) NEW REU RECFM(F B) LRECL(80)"
> QUEUE " COMPARE TYPORG=PO "
> "EXECIO "QUEUED()" DISKW CTL (FINIS"
> PROG = 'IEBCOMPR'
> PARM = '' /* STANDARD PARM, AS FROM JCL */
> DDLIST = COPIES('00'X,8) ||, /* DDNAME 1 OVERRIDE: SYSLIN */
> COPIES('00'X,8) ||, /* DDNAME 2 OVERRIDE: N/A */
> COPIES('00'X,8) ||, /* DDNAME 3 OVERRIDE: SYSLMOD */
> COPIES('00'X,8) ||, /* DDNAME 4 OVERRIDE: SYSLIB */
> LEFT('CTL', 8) ||, /* DDNAME 5 OVERRIDE: SYSIN */
> LEFT('REP', 8) ||, /* DDNAME 6 OVERRIDE: SYSPRINT */
> COPIES('00'X,8) ||, /* DDNAME 7 OVERRIDE: SYSPUNCH */
> LEFT('PDS1', 8) ||, /* DDNAME 8 OVERRIDE: SYSUT1 */
> LEFT('PDS2', 8) ||, /* DDNAME 9 OVERRIDE: SYSUT2 */
> COPIES('00'X,8) ||, /* DDNAME 10 OVERRIDE: SYSUT3 */
> COPIES('00'X,8) ||, /* DDNAME 11 OVERRIDE: SYSUT4 */
> COPIES('00'X,8) ||, /* DDNAME 12 OVERRIDE: SYSTERM */
> COPIES('00'X,8) ||, /* DDNAME 13 OVERRIDE: N/A */
> COPIES('00'X,8) /* DDNAME 14 OVERRIDE: SYSCIN */
> ADDRESS 'LINKMVS' PROG 'PARM DDLIST'
> "FREE FI(PDS1 PDS2 CTL REP)"
> EXIT RC
>
> Sri Hari Kolusu
> DFSORT Development
> IBM Corporation
> Email: skol...@us.ibm.com
> Phone: 408-927-2187 Tie Line: 457-2187
>
> IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> wrote on
> 03/06/2014 09:34:58 AM:
>
> > From: Paul Gilmartin <paulgboul...@aim.com>
> > To: IBM-MAIN@listserv.ua.edu,
> > Date: 03/06/2014 09:35 AM
> > Subject: Re: 0C4 from TSOEXEC IEBCOMPR Sent by: IBM Mainframe
> > Discussion List <IBM-MAIN@listserv.ua.edu>
> >
> > On Thu, 6 Mar 2014 09:20:56 -0800, Sri h Kolusu wrote:
> >
> > >Hansen,
> > >
> > >The following REXX will invoke IEBCOMPR
> > >
> > >/* REXX */
> > >ADDRESS TSO
> > >"ALLOC FI(SYSUT1) DA('Your.PDS1.To.Compare') SHR"
> > >"ALLOC FI(SYSUT2) DA('Your.PDS2.To.Compare') SHR"
> > >"ALLOC DD(SYSPRINT) DA(*) REU"
> > >"ALLOC DD(SYSIN) NEW REU RECFM(F B) LRECL(80)"
> > >QUEUE " COMPARE TYPORG=PO "
> > >"EXECIO "QUEUED()" DISKW SYSIN (FINIS"
> > >"CALL *(IEBCOMPR)"
> > >"FREE FI(SYSUT1 SYSUT2 SYSIN SYSPRINT)"
> > >
> > (I use BPXWDYN() and "address LINKMVS" to avoid a TSO prerequisite.
> > Often, I use RTDDN(name) and an alternate DDName list to avoid
> > collision with existing allocations. Do IEBCOMPR and ISRSUPC both
> > support alternate DDName lists?)
> >
> > -- gil
> >
> > ----------------------------------------------------------------------
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
