View previous topic :: View next topic |
Author |
Message |
jacky_ying Beginner
Joined: 25 Jul 2004 Posts: 46 Topics: 20
|
Posted: Sat Mar 17, 2007 10:04 am Post subject: get datset name with DFSORT? |
|
|
The requirement is to get dataset name corresponding to each record in concatenated DD statements. Can this be
done with lastest DFSORT or is it possible to add this function in DFSORT.
I met this situation:say you got lots of datasets to process from different departments or branchs,the format of datasets is all some.No field in the dataset record distinguish "who is who",the only way to identify "who is who" is by dataset name.These datasets will be concatenate in one DD statements for process,so I had to write a sub program to scan the dataset and get the dataset name corresponding to each record then append the dataset name to the tail of each record.Y'know I can get TIOENTRY according together TCBTIO with DCBTIOT,and then call SWAREQ with TIOEJFCB to get JFCBDSNM.
I'm just wondering any of you guys met the same situation. It just happened to me or it occurs frequently?If latter,maybe we could suggest Frank Yaeger to add these function to the next version of DFSORT.Maybe some new reserve words DATATSETNAME MEMBERNAME like SEQNUM.haha. Of course,if you guys think it is useless or seldom needed,ignore this post plz.
If DFSORT can handle this.I'll do less coding.I am a naturally LAZY guy =^_^= |
|
Back to top |
|
|
Frank Yaeger Sort Forum Moderator
Joined: 02 Dec 2002 Posts: 1618 Topics: 31 Location: San Jose
|
Posted: Sat Mar 17, 2007 10:07 am Post subject: |
|
|
DFSORT does not have a built-in function to do that. Nobody else has asked for it previously. _________________ Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort |
|
Back to top |
|
|
jacky_ying Beginner
Joined: 25 Jul 2004 Posts: 46 Topics: 20
|
Posted: Sat Mar 17, 2007 10:29 am Post subject: |
|
|
Frank:
Thanks for rapid reply,It's OK,I just finished my program and it works.
Since nobody else asked for it previously,maybe this situation seldom happens. |
|
Back to top |
|
|
Nic Clouston Advanced
Joined: 01 Feb 2007 Posts: 1075 Topics: 7 Location: At Home
|
Posted: Mon Mar 19, 2007 2:36 am Post subject: |
|
|
I must say, I was looking at the sort (SYSOUT) messages the other day to see if the file name was in there. Although I do not need it now maybe some time in the future. What do people think? I vote FOR it - but Frank has to DO it and it is only a 'nice to have' |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12375 Topics: 75 Location: San Jose
|
Posted: Mon Mar 19, 2007 5:17 am Post subject: |
|
|
IMHO it is one of the MUST have feature. However it gets complicated with the concatenated DD Lists.
Kolusu _________________ Kolusu
www.linkedin.com/in/kolusu |
|
Back to top |
|
|
Mervyn Moderator
Joined: 02 Dec 2002 Posts: 415 Topics: 6 Location: Hove, England
|
Posted: Mon Mar 19, 2007 7:16 am Post subject: |
|
|
I'd say it's certainly a "nice to have". _________________ The day you stop learning the dinosaur becomes extinct |
|
Back to top |
|
|
Alain Benveniste Beginner
Joined: 04 May 2003 Posts: 92 Topics: 4 Location: Paris, France
|
Posted: Mon Mar 19, 2007 7:23 am Post subject: |
|
|
Jacky,
Why not using the group key technique as an alternative :
- Each group value points to the corresponding dsname or,
- A HDR can be added manually that can be propagated by a SPLICE
Alain |
|
Back to top |
|
|
Cogito-Ergo-Sum Advanced
Joined: 15 Dec 2002 Posts: 637 Topics: 43 Location: Bengaluru, INDIA
|
Posted: Fri Mar 23, 2007 8:46 am Post subject: |
|
|
Quote: | Y'know I can get TIOENTRY according together TCBTIO with DCBTIOT,and then call SWAREQ with TIOEJFCB to get JFCBDSNM. |
So, just code an Assembler E15 exit using what you have mentioned above. I do not know if it is the way to get dataset names, but, can try. Or, a COBOL program that traverses the MVS Control Blocks begining with PSA, etc. _________________ ALL opinions are welcome.
Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes. |
|
Back to top |
|
|
|
|