Dear all I use ISRDDN to create a Clist
Below is my JCL //SYSTEM EXEC PGM=IKJEFT01,DYNAMNBR=30,REGION=4096K //SYSEXEC DD DSN=IBMSE03.REXX,DISP=SHR //SYSTSPRT DD DSN=IBMSE03.REPORT(TEMP),DISP=SHR //ISPPROF DD DSN=IBMSE03.ISPF.ISPPROF,DISP=SHR //ISPPLIB DD DISP=SHR,DSN=DSN910.SDSNPFPE // DD DISP=SHR,DSN=ISP.SISPPENU // DD DISP=SHR,DSN=SYS1.SERBPENU // DD DISP=SHR,DSN=SYS1.HRFPANL // DD DISP=SHR,DSN=SYS1.SBLSPNL0 // DD DISP=SHR,DSN=SYS1.SBPXPENU // DD DISP=SHR,DSN=SYS1.DGTPLIB // DD DISP=SHR,DSN=REXX.SFANPENU // DD DISP=SHR,DSN=GDDM.SADMPNL // DD DISP=SHR,DSN=FFST.V120ESA.SEPWPENU // DD DISP=SHR,DSN=SYS1.DFQPLIB // DD DISP=SHR,DSN=SYS1.SEDGPENU // DD DISP=SHR,DSN=SYS1.SCBDPENU // DD DISP=SHR,DSN=CSF.SCSFPNL0 // DD DISP=SHR,DSN=EOX.SEPHPNL1 // DD DISP=SHR,DSN=AOP.SAOPPENU // DD DISP=SHR,DSN=TCPIP.SEZAPENU // DD DISP=SHR,DSN=ISF.SISFPLIB // DD DISP=SHR,DSN=SYS1.SHASPNL0 // DD DISP=SHR,DSN=SYS1.SICEPENU // DD DISP=SHR,DSN=EOY.SEOYPENU // DD DISP=SHR,DSN=SYS1.SBDTPNL0 // DD DISP=SHR,DSN=IOE.SIOEPNLE // DD DISP=SHR,DSN=ICQ.ICQPLIB // DD DISP=SHR,DSN=GIM.SGIMPENU // DD DISP=SHR,DSN=EUV.SEUVPNL // DD DISP=SHR,DSN=IMS1010.SDFSPLIB //ISPMLIB DD DISP=SHR,DSN=DSN910.SDSNSPFM // DD DISP=SHR,DSN=SYS1.SERBMENU // DD DISP=SHR,DSN=SYS1.HRFMSG // DD DISP=SHR,DSN=SYS1.SBLSMSG0 // DD DISP=SHR,DSN=SYS1.SBPXMENU // DD DISP=SHR,DSN=SYS1.DGTMLIB // DD DISP=SHR,DSN=ISP.SISPMENU // DD DISP=SHR,DSN=GDDM.SADMMSG // DD DISP=SHR,DSN=SYS1.DFQMLIB // DD DISP=SHR,DSN=SYS1.SEDGMENU // DD DISP=SHR,DSN=SYS1.SCBDMENU // DD DISP=SHR,DSN=CSF.SCSFMSG0 // DD DISP=SHR,DSN=EOY.SEOYBENU // DD DISP=SHR,DSN=EOX.SEPHMSG1 // DD DISP=SHR,DSN=AOP.SAOPMENU // DD DISP=SHR,DSN=TCPIP.SEZAMENU // DD DISP=SHR,DSN=ISF.SISFMLIB // DD DISP=SHR,DSN=SYS1.SICEMENU // DD DISP=SHR,DSN=EOY.SEOYMENU // DD DISP=SHR,DSN=SYS1.SBDTMSG // DD DISP=SHR,DSN=IOE.SIOEMSGE // DD DISP=SHR,DSN=ICQ.ICQMLIB // DD DISP=SHR,DSN=GIM.SGIMMENU // DD DISP=SHR,DSN=EUV.SEUVMSG // DD DISP=SHR,DSN=IMS1010.SDFSMLIB //ISPSLIB DD DISP=SHR,DSN=DSN910.SDSNSPFS // DD DISP=SHR,DSN=SYS1.HRFSKEL // DD DISP=SHR,DSN=SYS1.SBLSKEL0 // DD DISP=SHR,DSN=SYS1.DGTSLIB // DD DISP=SHR,DSN=ISP.SISPSLIB // DD DISP=SHR,DSN=ISP.SISPSENU // DD DISP=SHR,DSN=CSF.SCSFSKL0 // DD DISP=SHR,DSN=ISF.SISFSLIB // DD DISP=SHR,DSN=SYS1.SICESLIB // DD DISP=SHR,DSN=ICQ.ICQSLIB // DD DISP=SHR,DSN=GIM.SGIMSENU // DD DISP=SHR,DSN=SYS2.CCB.ISPSLIB //ISPTLIB DD DISP=SHR,DSN=DSN910.SDSNSPFT // DD DISP=SHR,DSN=IBMSE03.ISPF.ISPPROF // DD DISP=SHR,DSN=SYS1.SERBT // DD DISP=SHR,DSN=SYS1.SERBTENU // DD DISP=SHR,DSN=SYS1.SBLSTBL0 // DD DISP=SHR,DSN=SYS1.SBPXTENU // DD DISP=SHR,DSN=SYS1.DGTTLIB // DD DISP=SHR,DSN=ISP.SISPTENU // DD DISP=SHR,DSN=SYS1.SCBDTENU // DD DISP=SHR,DSN=CSF.SCSFTLIB // DD DISP=SHR,DSN=EOX.SEPHTBL1 // DD DISP=SHR,DSN=SYS1.SBLSPNL0 // DD DISP=SHR,DSN=ISF.SISFTLIB // DD DISP=SHR,DSN=SYS1.SICETLIB // DD DISP=SHR,DSN=EOY.SEOYTENU // DD DISP=SHR,DSN=ICQ.ICQTABLS // DD DISP=SHR,DSN=IMS1010.SDFSTLIB // DD DISP=SHR,DSN=GIM.SGIMTENU //SYSPRINT DD SYSOUT=* //SYSTSIN DD * %TEMP /* but I also got the same result.Could you tell how to fine the root cause and how to solve the problem. Thanks a lot! Best Regards, Jason Cai ====================================== The JCL you are running is just TSO. You need to include the ISPF and SDSF libraries to allow some of these functions. So you need to have ISPPROF, ISPPLIB, ISPMLIB, ISPSLIB, ISPTLIB which have the SDSF and ISPF Libraries. You could run JCL that almost looks like your TSO/ISPF Logon proc JCL to get a base. Or use ISRDDN to create a CLIST that would allocate the files you need for ISPF functions. Look in the IBM Main archives or TSO-E REXX archives. I think there are some example SDSF REXXes there. Lizette > > I have the following questions : > > 1.Running my REXX under ISPF/PDF > under ispf p.6 > > > EX TEST.BJSP55.ZTB9TMP(SCHDA04) > > > TEST.BJSP55.ZTB9TMP(SCHDA04) > /* REXX */ > RC=ISFCALLS(ON) > ISFOWNER ="CCBSP02" > ADDRESS SDSF "ISFEXEC ST (DELAYED ALTERNATE)" > IF RC<>0 THEN EXIT RC > SAY "NUMBER OF ROWS RETURNED:" ISFROWS > RC=ISFCALLS(OFF) > EXIT 0 > ***************************************************************** > output: > 3 *-* RC=ISFCALLS(ON) > 4 *-* SAY 'RC1=' RC > RC1= 0 > 5 *-* ISFOWNER ="CCBSP02" > 6 *-* ADDRESS SDSF "ISFEXEC ST (DELAYED ALTERNATE)" > >>> "ISFEXEC ST (DELAYED ALTERNATE)" > 7 *-* SAY 'RC2=' RC > RC2= 0 > 8 *-* SAY "ISFROWS1:" ISFROWS > ISFROWS1: 27 > 9 *-* IF RC<>0 > 10 *-* SAY "NUMBER OF ROWS RETURNED:" ISFROWS > NUMBER OF ROWS RETURNED: 27 > 11 *-* RC=ISFCALLS(OFF) > 12 *-* EXIT 0 > ******************************************************************** > 2.Running the REXX on batch > > //RUNSCHDA JOB ADM#,TIME=1440,NOTIFY=&SYSUID,CLASS=2, > // MSGCLASS=X,MSGLEVEL=(1,1),REGION=4M > //JOBLIB DD DSN=DSN810.SDSNLOAD,DISP=SHR > //RUNREXX EXEC PGM=IKJEFT01,DYNAMNBR=30,REGION=0M > //SYSEXEC DD DISP=SHR,DSN=TEST.BJSP55.ZTB9TMP > //SYSTSPRT DD SYSOUT=* > //SYSTSIN DD * > %SCHDA04 > /* > output: > ********************************* TOP OF > 3 *-* RC=ISFCALLS(ON) > 4 *-* SAY 'RC1=' RC > RC1= 0 > 5 *-* ISFOWNER ="CCBSP02" > 6 *-* ADDRESS SDSF "ISFEXEC ST (DELAYED ALTERNATE)" > >>> "ISFEXEC ST (DELAYED ALTERNATE)" > 7 *-* SAY 'RC2=' RC > RC2= 0 > 8 *-* SAY "ISFROWS1:" ISFROWS > ISFROWS1: 0 > 9 *-* IF RC<>0 > 10 *-* SAY "NUMBER OF ROWS RETURNED:" ISFROWS > NUMBER OF ROWS RETURNED: 0 > ******************************** BOTTOM O > Why the ISFROWS1 is diffenent between on batch with under ISPF/PDF? > > Thanks a lot! > > > Best Regards, > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
