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
