|
View previous topic :: View next topic
|
| Author |
Message |
Gnanas N
Active Member
Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India
|
|
|
|
My shop is using (E)JES JES3 Spool Interface Facility.
Is it possible to copy the JOB JCL from EJES to PS through REXX program, if Job Id is given as input.
Please provide the info to start the code. |
|
| Back to top |
|
 |
Gautam512
Active User
Joined: 05 Oct 2005
Posts: 308
Location: Vizag / US
|
|
|
|
hi,
try doing an xdc againts ur job, i think u can copy the entire job into a PS. |
|
| Back to top |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India
|
|
|
|
gnanas,
How about using SDSF in batch? |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
Gentlemen, gentlemen 
please read before answering...
the OP is using eJes not sdsf |
|
| Back to top |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India
|
|
|
|
Yes, We are using E-JES.
I did it manually.
Like this...
1. Use the "J" line command on the job, to view the JCL.
2. In the upper right corner, you'll see how many lines there are (e.g. "Line 1 of 37") On the command line, type "EXTRACT 1 37" or
however many lines there are.
3. You'll now see a typical allocation screen where you can save the JCL in its entirety.
I would think Batch EJES can be used to reterive JCL through either applicaion programs(REXX?) or PGM=<batch ejes module> with specific options.
Appreciating any inputs for this ! |
|
| Back to top |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India
|
|
|
|
sorry enrico,
| Quote: |
| the OP is using eJes not sdsf |
I overlooked it ! Thanks for bringing it to my notice ! |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
Hi Gnanas,
Any how I got intrested in this thread, little research made me to suggest two suggestions..give a try..
1.
| Code: |
//MYJOB
//STEP1 EXEC PGM=IEFBR14 (Could be anything)
//*
//XSYSMSG EXEC PGM=EJESLNK,REGION=64M
//EJESEXT DD DSN=HLQ.MYJOB.JESYSMSG.LIST,
// UNIT=DASD,SPACE=(TRK,1),
// DISP=(,CATLG,DELETE)
//EJESOUT DD SYSOUT=*,RECFM=FB,LRECL=240
//EJESIN DD DATA,DLM='@@'
JNAME MYJOB;SORT TIME D;STATUS
F MYJOB FIRST
:S
F JESYSMSG
:E
@@
// |
This would extract the JESYMSG Log of same job into a QSAM; for the full JOB JCL try below control cards in above JOB.
| Code: |
//EJESIN DD DATA,DLM='@@'
JNAME MYJOB;SORT TIME D;STATUS
F MYJOB FIRST
@@
// |
2. You can invoke EJES as a command processor under the batch TSO (PGM=IKJEFT01). Simply provide your system commands as input to that batch process.
Good Luck... |
|
| Back to top |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India
|
|
|
|
Thanks, Anuj !
I am awaiting to get alias/name for <batch ejes module> and system commands for IKJEFT01 from System support. |
|
| Back to top |
|
|
parik
New User
Joined: 17 Sep 2008
Posts: 1
Location: banglore
|
|
|
|
Using EJESLNKS how do I capture only the return code of the job?  |
|
| Back to top |
|
|
|
|
