View previous topic :: View next topic |
Author |
Message |
harsha vardhan reddy Beginner
Joined: 23 Apr 2011 Posts: 22 Topics: 3
|
Posted: Sat Jun 25, 2011 3:45 am Post subject: |
|
|
Hi guys,
Is there any other way to retrieve the data sets from spool apart from which i have tried. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
papadi Supermod
Joined: 20 Oct 2009 Posts: 594 Topics: 1
|
Posted: Sat Jun 25, 2011 3:40 pm Post subject: |
|
|
In a single list, post what you have tried and what happened. _________________ All the best,
di |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
harsha vardhan reddy Beginner
Joined: 23 Apr 2011 Posts: 22 Topics: 3
|
Posted: Sun Jun 26, 2011 9:54 am Post subject: |
|
|
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(temp1) da('z198.SAMPLE.output1') shr"
/*SAY 'ENTER JOBID:'
PULL ID
jobid = strip(ID)
JOBID = 'JOB02911'
SAY 'ENTER JOBNAME:'
PULL JNAME
JOBNM = STRIP(JNAME) */
QUEUE "PRE" TB796
queue "st"
/*queue "filter jobid eq "jobid*/
QUEUE "FIND " COLVAL
queue "++?" /* open output of job */
RC = ISFCALLS(ON)
ISFPREFIX = "TB796"
ADDRESS SDSF "ISFEXEC ST"
IF RC <> 0 THEN
DO
SAY 'ERROR'
EXIT 20
END
LOOP = ISFROWS
DO I = 1 TO LOOP
COLVAL = VALUE(JOBID.I)
IF COLVAL = 'JOB07050' THEN
DO
ADDRESS SDSF "ISFACT ST TOKEN('"TOKEN.I"') PARM(NP ?)"
IF RC <> 0 THEN EXIT
DO J = 1 TO STEPN.0
IF STEPN.J = 'TSCRATCH' THEN
IF DDNAME.J = 'SYSIN' THEN
do
queue "find" SYSIN
queue "++S"
queue "print file temp1" /* 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 */
END
END
END
END
RC = ISFCALLS(OFF)
--------------X--------------
|
I tried to extract the output data sets from spool with corresponding to ddname & step name.i.e TSYSIN is my stepname & SYSIN is my ddname when i tried to extract the data from it but it always retrieves the data from the 1st occurence of SYSIN..
so how to retrieve the data from the required ddname & corresponding step name.. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
harsha vardhan reddy Beginner
Joined: 23 Apr 2011 Posts: 22 Topics: 3
|
Posted: Sun Jun 26, 2011 9:56 am Post subject: |
|
|
I have more than one occurence of SYSIN.. so how to keep that in a loop in order to retrieve the data..
Thanks In advance.. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
harsha vardhan reddy Beginner
Joined: 23 Apr 2011 Posts: 22 Topics: 3
|
Posted: Sat Jul 02, 2011 8:45 pm Post subject: |
|
|
Hi Guys,
Is this possible to set the cursor position to the desired position in the above code which i have tried..
With the help of above code i can find the desired location but how to read that data from that location..
I can able to get the line number from a variable j.. how to position the cursor to that specific location..
Thanks in advance..![Smile](images/smiles/icon_smile.gif) |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
papadi Supermod
Joined: 20 Oct 2009 Posts: 594 Topics: 1
|
Posted: Sat Jul 02, 2011 9:31 pm Post subject: |
|
|
Your topic of the same title has been locked in the other forum.
If you are caught double-posting again, you will be banned from those forums.
di |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
harsha vardhan reddy Beginner
Joined: 23 Apr 2011 Posts: 22 Topics: 3
|
Posted: Sat Jul 02, 2011 10:02 pm Post subject: |
|
|
Hi guys,
Its an urgent requirement for me.. I have been working on this from the past one month..
I haven't got the solution so i have opted for help that's the reason i have posted on multiple forums. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
papadi Supermod
Joined: 20 Oct 2009 Posts: 594 Topics: 1
|
Posted: Sun Jul 03, 2011 1:34 am Post subject: |
|
|
Quote: | Its an urgent requirement for me.. | Then you need to tell your management / project team you need someone more experienced to help.
Quote: | I haven't got the solution so i have opted for help that's the reason i have posted on multiple forums. | Bad choice. Possibly a few weeks ago would have been a good time to change your approach. You may still need to look for another way.
di |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
papadi Supermod
Joined: 20 Oct 2009 Posts: 594 Topics: 1
|
Posted: Sun Jul 03, 2011 12:45 pm Post subject: |
|
|
Follow on. . .
If this has been getting basically nowhere for a month (and assuming your manager had expectations that this would not be a show-stopper), it would have been far better to tell the manager of the difficulties long ago.
Managers do not like "bad" surprises, and they really do not like last-minute bad surprises.
A suggestion for the future. YOU are the single resuorce you can count on (maybe a co-woorker or manager). It is never a good idea to bring critical issues to a forum where you may or may not even get an answer.
As soon as you determine you do not know how to do a "thing" you should let people know this will be a learning experience and the time required may be quite unpredictable.
fwiw,
di |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
|
|