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
