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: [email protected]
Phone: 408-927-2187 Tie Line: 457-2187
IBM Mainframe Discussion List <[email protected]> wrote on
03/06/2014 09:34:58 AM:
> From: Paul Gilmartin <[email protected]>
> To: [email protected],
> Date: 03/06/2014 09:35 AM
> Subject: Re: 0C4 from TSOEXEC IEBCOMPR
> Sent by: IBM Mainframe Discussion List <[email protected]>
>
> 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 [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
