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)"
Thanks,
Kolusu
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
