View previous topic :: View next topic
|
Author |
Message |
BobbyM
New User
Joined: 23 Apr 2007 Posts: 2 Location: Chennai
|
|
|
|
Hi,
I am submitting a job through REXX and i trapped the jobId and jobname using outtrap.
Is there any way to get the Maxcc of the job in REXX after the completion of job?
Can anybody help me about how to trap this information. |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
I would use a combination of the TSO commands STATUS and OUTPUT.
Then again, I would place this type of tracking information into the job itself. |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Have a look at this post. There is a REXX solution there.
O. |
|
Back to top |
|
|
BobbyM
New User
Joined: 23 Apr 2007 Posts: 2 Location: Chennai
|
|
|
|
I got another way to get the MaxCC recently and thought of sharing with you. Find below the code.
"DROPBUF"
QUEUE 'OWNER ' ID
QUEUE 'ST'
QUEUE 'PRE *'
QUEUE 'FILTER JOBID = ' JOBID
QUEUE 'ARRANGE MAX-RC A C'
"ALLOC FI(ISFIN) UNIT(SYSDA) NEW DELETE"
"ALLOC FI(ISFOUT) DA('"SDSFPROF"') SHR REUSE"
"EXECIO "QUEUED()" DISKW ISFIN (FINIS"
"ISPEXEC SELECT PGM(SDSF)" /* EXE
"FREE FI(ISFIN ISFOUT)"
"ALLOC DA('"SDSFPROF"') F("PROF") SHR REUSE"
"EXECIO * DISKR "PROF"(STEM INREC4."
"EXECIO 0 DISKR "PROF" (FINIS"
"FREE FILE("PROF")"
The Profile details will be written to a file(SDSFPROF). You can search for the word Max-Rc and and in the very next line you can read the Max-CC of the job. |
|
Back to top |
|
|
|