Hi Dave,
Following on from the earlier comments the attached is a REXX snippet I used
for the ISPF Search facility but a similar approach should work with compare
I would have thought.
/* REXX */
/* Allocate the library to be searched - NEWDD */
"ALLOC DA('VERE301.LOADLIB') SHR F(NEWDD)"
/* Allocate the search listing - OUTDD */
"ALLOC NEW DELETE F(OUTDD) LRECL(133) BLKSIZE(1330) RECFM(F B)",
"SPACE(1 1) TRACKS DA(SEARCH.LIST)"
/* Build the search arguments on - SYSIN */
srcha.0 = 2
srcha.1 = "SRCHFOR '2004'"
srcha.2 = "SELECT COB00"
"ALLOC NEW DELETE F(SYSIN) LRECL(80) BLKSIZE(800) RECFM(F B)",
"SPACE(1 1) TRACKS"
"EXECIO * DISKW SYSIN (STEM srcha. FINIS"
/* Execute Search-For ISPF 3.14 */
"CALL *(ISRSUPC) 'SRCHCMP,''ANYC''' "
/* View search results */
Address ISPEXEC "VIEW DATASET(SEARCH.LIST)"
Exit
Kind Regards - Terry
Director
KMS-IT Limited
228 Abbeydale Road South
Dore
Sheffield
S17 3LA
UK
Reg : 3767263
Outgoing e-mails have been scanned, but it is the recipients responsibility
to ensure their anti-virus software is up to date.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
