|
|
| Author |
Message |
seshagiri.N
Warnings : 1
New User
Joined: 05 Aug 2008
Posts: 14
Location: Chennai
|
|
|
|
I got the same result. 
Please have a look at my JCL and REXX program:
JCL:
| Code: |
JOB CARD
//STEPLIB DD DSN=SYS7.GLOBAL.ISPLLIB,DISP=SHR
//ISPMLIB DD DSN=SYS7A.ISPF.ISPMLIB,DISP=SHR
//ISPPLIB DD DSN=SYS7A.ISPF.ISPPLIB,DISP=SHR
//ISPSLIB DD DSN=SYS7A.ISPF.ISPSLIB,DISP=SHR
//ISPTLIB DD DSN=SYS7A.ISPF.ISPTLIB,DISP=SHR
//SYSPROC DD DSN=SYS7A.ISPF.CLIST,DISP=SHR
//TSOBATCH EXEC PGM=IKJEFT1A,DYNAMNBR=200
//SYSEXEC DD DSN=NBDKYGS.REXX.EXEC,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
EXEC1
/* |
REXX:
| Code: |
/*****REXX******/
ADDRESS TSO
"ALLOC F(ISFIN) TRACKS SPACE(1) REU" /* USED BY SDSF */
"ALLOC F(ISFOUT) NEW DELETE REU " , /* USED BY SDSF */
"TRACKS SPACE(100,100) LRECL(133) RECFM(F,B,A) DSORG(PS)"
"ALLOC F(TEMPPRT) DA('NBDKYGS.REXX.JOB2(OUT5)') SHR REUSE"
JOBID = "JOB09601"
QUEUE "PRE IQ1TSACE" /* SDSF COMMANDS IN BATCH*/
QUEUE "ST"
QUEUE "FILTER JOBNAME " JOBID
QUEUE "++S"
QUEUE "PRINT FILE TEMPPRT" /* PRINT TO TEMP DATASET */
QUEUE "PRINT 1 999999"
QUEUE "PRINT CLOSE"
QUEUE "END"
QUEUE "EXIT"
"EXECIO" QUEUED()" DISKW ISFIN (FINIS" /* INPUT TO SDSF BATCH */
ADDRESS ISPEXEC "SELECT PGM(ISFAFD) PARM('++25,80')"/* INVOKE SDSF */
EXIT |
please tell me where i did mistake. |
|
| Back to top |
|
 |
References
|
|
 |
Pedro
Senior Member
Joined: 01 Sep 2006
Posts: 510
Location: work
|
|
|
|
The exec statement marks the beginning of the step.
| Code: |
| //TSOBATCH EXEC PGM=IKJEFT1A,DYNAMNBR=200 |
The DD statements should be after it. And STEPLIB is first after EXEC. |
|
| Back to top |
|
|
seshagiri.N
Warnings : 1
New User
Joined: 05 Aug 2008
Posts: 14
Location: Chennai
|
|
|
|
I tried this ... but the same result.
I am getting MAXCC=0, when job submitted.
and got
| Code: |
READY
EXEC1
25 *-* ADDRESS ISPEXEC "SELECT PGM(ISFAFD) PARM('++25,80')"/* INVOKE SDSF */
+++ RC(-3) +++
READY
END |
|
|
| Back to top |
|
|
Pedro
Senior Member
Joined: 01 Sep 2006
Posts: 510
Location: work
|
|
|
|
Use of ISPEXEC requires an ISPF environment (which is why you need the DD statements). So, start ISPF first, passing it the parm to start your exec
| Code: |
//SYSTSIN DD *
ISPSTART CMD(%exec1)
/*EOF
|
|
|
| Back to top |
|
|
seshagiri.N
Warnings : 1
New User
Joined: 05 Aug 2008
Posts: 14
Location: Chennai
|
|
|
|
Job ended with return code of 0998. I found this in the spool.
| Code: |
READY
ISPSTART CMD(%EXEC1)
CMG999 Message ISPT036 - ISPT036 message not found in 'ISPMLIB' library. |
|
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 3509
Location: Brussels once more ...
|
|
|
|
| My first guess would be that you have not concatenated all of the ISPMLIb libraries allocated to your ISPF online session into the batch version. |
|
| Back to top |
|
|
|
|
