ISRSUPC not returning anything.

ap_mainframes · Posted: Thu Mar 23, 2006 7:29 pm Post subject: ISRSUPC not returning anything.

Hi,
I have the following peice of code, but some how ISRSUPC is just not returning any thing.
The screen goes blank and then I have to connect it again.
Can anybody help me on this??
Thanks

IF SYSDSN("'"REG.J"'") = 'OK' THEN DO
ADDRESS TSO
"ALLOC DD(NEWDD) SHR REUS DA('"REG.J"')"
"ALLOC DD(OLDDD) SHR REUS DA('"DSN"')"
"ALLOC DD(OUTDD) DA(COMP.LIST) SP(10,10) TR NEW RELEASE REU",
"LRECL(133) BLKSIZE(13566) RECFM(F,B,A) ",
"MGMTCLAS(MCDCOMM)"
LISTPARM = 'DELTAL,LINECMP'
"CALL 'SYS1.SISPLPA(ISRSUPC)','DELTAL,LINECMP'"
"FREE DD(OLDDD) "
"FREE DD(NEWDD) "
"FREE DD(OUTDD) "

superk

First, what does the TRACE output show?

Second, You probably need SYSIN allocated as DD DUMMY, or, if the two datasets are PDS's, then SYSIN would contain the member selection criteria.

Third, wouldn't the call specified as:

"CALL *(ISRSUPC) 'DELTAL,LINECMP'"

work better?

ap_mainframes

Hey superk,
Yes I am trying to compare the two members in PDS.
But do we need to give SYSIN in SUPERC??
Can you please let me know why and how do we give that, as, if we open the ISPF SUPERC in batch mode the JCL shown there doesnt have SYSIN.

In case we still need to give it. Can you please let me know how do we do that?
Thanks for all the information you can provide.
ap_mainframes

ap_mainframes · Posted: Fri Mar 24, 2006 12:07 pm Post subject:

Group,

This issue is still unsolved.
Can anybody help?/