Dave, I don't see an ALLOC for DD SYSPRINT in the ISRSUPC code. Note the text of the error for that RC=24 seems to agree:
RC 24 is ERROR. I/O Error writing to the **output listing file** (emphasis mine) HTH Peter -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Hansen, Dave L - Eagan, MN Sent: Thursday, March 06, 2014 5:02 PM To: [email protected] Subject: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR) 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:[email protected]] On Behalf Of Sri h Kolusu Sent: Thursday, March 06, 2014 12:29 PM To: [email protected] 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: [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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
