| View previous topic :: View next topic |
| Author |
Message |
tattva
Beginner
Joined: 02 Feb 2005
Posts: 97
Topics: 36
|
 Posted: Mon Dec 19, 2005 12:10 pm Post subject: Capture the Output datasets |
 |
|
Hi All,
I have a job which has 30 programs running in it. Now i need to capture the output datasets from the JESYSMSG and write it out to a dataset.
Can any one let me know how do i go about getting this done.
Ex:- say the JESYSMSG contains 3 files
a1.g001v00
b1.g001v00
All these need to be captured from JESYSMSG and written out to dataset
Help appreciated.
Thanks,
Tattva |
|
| Back to top |
|
 |
Manas Biswal
Intermediate
Joined: 29 Nov 2002
Posts: 382
Topics: 27
Location: Chennai, India
|
| Posted: Mon Dec 19, 2005 1:44 pm Post subject: |
|
|
tattva,
Can't an IEBGENER or SORT copy step at the end of your job do the trick.
Regards,
Manas
_________________
There is no path to peace. Peace is the path.
- Mahatma Gandhi (1869-1948) |
|
| Back to top |
|
|
ofer71
Intermediate
Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel
|
| Posted: Thu Dec 22, 2005 7:54 am Post subject: |
|
|
Here's an example of how to access SDSF from within REXX:
| Code: | 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('MY.DATASET') SHR"
QUEUE "PRE CICSTCH1" /* SDSF commands in batch*/
QUEUE "DA"
QUEUE "FILTER JOBID EQ "JOBID
QUEUE "++?" /* Open output of job */
QUEUE "FIND 'MSGUSR'"
QUEUE "++S" /* Browse MSGUSR dataset */
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('++32,255)" /* Invoke SDSF */ |
Of course, it's always a good idea to read the fine manual... 
O.
________
ST series |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
