|
|
| Author |
Message |
shr_amar
New User
Joined: 02 May 2005
Posts: 39
Location: DELHI
|
|
|
|
I'm submitting REXX by JCL to get the SDSF output in ISFOUT. But there is no data after job completion. If I'm running this REXX in the foreground Data is coming to out file.
Please guide if there any other way to submit REXX by JCL
I am using this JCL
| Code: |
//REXXINS EXEC PGM=IKJEFT1B,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSEXEC DD DSN=my rexx pds,DISP=SHR
//ISPPROF DD UNIT=VIO,DISP=(NEW,DELETE),SPACE=(TRK,(1,5,5)),
// DCB=(LRECL=80,BLKSIZE=6160,DSORG=PO,RECFM=FB)
//ISPLOG DD SYSOUT=*,
// DCB=(LRECL=120,BLKSIZE=2400,DSORG=PS,RECFM=FB)
//ISPMLIB DD DSN=my ispmlib,DISP=SHR
//ISPPLIB DD DSN=my ispplib,DISP=SHR
//ISPSLIB DD DSN=my ispslib,DISP=SHR
//ISPTLIB DD DSN=my isptlib,DISP=SHR
//SYSTSIN DD *
ISPSTART CMD(%CHECKREO)
/*
|
Given below is the REXX
| Code: |
/*REXX*/
INREC4. = " "
INREC4.0 = '0'
RexxrepDSN = 'IBM.REXX.REP'
"DROPBUF"
QUEUE 'JOBNAME' IBMAS1C1
QUEUE 'ST'
QUEUE 'PRE *'
QUEUE 'FILTER JOBID = ' JOB05575
QUEUE 'ARRANGE MAX-RC A C'
QUEUE 'END'
QUEUE 'EXIT'
"ALLOC F(ISFIN) TRACKS SPACE(1) REU" /* USED BY SDSF */
"ALLOC FI(ISFOUT) DSN('"RexxrepDSN"') SHR REUSE"
"EXECIO" QUEUED()" DISKW ISFIN (FINIS" /* INPUT TO SDSF BATCH */
"ISPEXEC SELECT PGM(SDSF) PARM('++32,255')"
"FREE FI(ISFIN ISFOUT)"
"ALLOC F(PROF) DA('"RexxrepDSN"') SHR"
"EXECIO * DISKR "PROF"(STEM INREC4."
"EXECIO 0 DISKR "PROF" (FINIS"
"FREE FILE("PROF")"
|
* Moderator Note * Edited post to show all of the necessary DD statements for ISPF batch job |
|
| Back to top |
|
 |
References
|
|
 |
superk
Moderator Team Head
Joined: 26 Apr 2004
Posts: 3383
Location: Charlotte,NC USA
|
|
|
|
I don't have SDSF so I can't validate if your code will work or not. However, make sure you have the correct JCL as I've shown for using ISPF services in batch for the one line:
"ISPEXEC SELECT PGM(SDSF) PARM('++32,255')"
or, forget about using ISPF services and just call the program using a standard TSO CALL statement:
"CALL *(SDSF) '++32,255'" |
|
| Back to top |
|
|
shr_amar
New User
Joined: 02 May 2005
Posts: 39
Location: DELHI
|
|
|
|
Thanks Superk . This is working  |
|
| Back to top |
|
|
MB
Warnings : 1
New User
Joined: 25 Jun 2008
Posts: 20
Location: Hyderabad
|
|
|
|
| There is an urgent requirement to be deliverd. Can anyone give me source code with explanation on How to trigger a mainframe job using REXX? |
|
| Back to top |
|
|
enrico-sorichetti
Global Moderator
Joined: 14 Mar 2007
Posts: 3279
Location: italy
|
|
|
|
| Quote: |
| There is an urgent requirement to be deliverd |
if the requirement is urgent a forum is not the best place to get an answer
You did not show any hint of having done a bit of work Yourself,
if You had searched the forums You would have found lots of examples on the issue
a technically correct answer for Your requirement could be
| Code: |
/*REXX */
Address TSO "SUBMIT 'YOUR.JCL.PDS.DATASET(MEMBER)'"
exit |
it' s up to You to search the REXX docs for an explanation
TSO/E bookshelf
ID ( information developers ) aka the people who write the manuals are much better at explaining things |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 3744
Location: Brussels once more ...
|
|
|
|
| MB wrote: |
| There is an urgent requirement to be deliverd. Can anyone give me source code with explanation on How to trigger a mainframe job using REXX? |
Urgent no it isn't - well not for me anyway.
Usual rates apply 700 euro per day (or part thereof) for tested and documented code. |
|
| Back to top |
|
|
MB
Warnings : 1
New User
Joined: 25 Jun 2008
Posts: 20
Location: Hyderabad
|
|
|
|
Hi Eric,
I apologize for that. Actually my requirement is that a mainframe file is being dumped through dataware house process. Once the mainframe file is available , a process should trigger a predecessor job to run successor jobs. Can any one tell me how this can be done using REXX? |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 3744
Location: Brussels once more ...
|
|
|
|
| Do you not have a scheduling software package in house, one designed specifically for tasks such as this ? |
|
| Back to top |
|
|
Pedro
Senior Member
Joined: 01 Sep 2006
Posts: 635
Location: work
|
|
|
|
| Quote: |
| a process should trigger a predecessor job |
A 'predecessor job'? I do not think you can go back in time. |
|
| Back to top |
|
|
|
|
