| View previous topic :: View next topic |
| Author |
Message |
Frank Yaeger
Sort Forum Moderator
Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
|
 Posted: Mon May 22, 2006 2:28 pm Post subject: |
 |
|
With z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006), you can now do this kind of thing quite easily with DFSORT's new PARSE function as shown by this DFSORT job:
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
OPTION COPY
INREC PARSE=(%00=(FIXLEN=80,STARTAFT=C':',ENDBEFR=C':')),
BUILD=(%00)
/*
|
For complete details on all of the new DFSORT and ICETOOL functions available with the April, 2006 PTFs, see:
www.ibm.com/servers/storage/support/software/sort/mvs/peug/
_________________
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 |
|
 |
acevedo
Beginner
Joined: 03 Dec 2002
Posts: 127
Topics: 0
Location: Europe
|
| Posted: Tue May 23, 2006 1:18 am Post subject: |
|
|
Cogito I would code it with a DO loop instead a WHILE loop... you don't need to take care of the I index.
| Code: |
/*REXX*/
"execio * diskr in01 (stem input_recs. FINIS"
j = 0
do i= 1 to input_recs.0
...
end i
|
|
|
| Back to top |
|
|
Phantom
Data Mgmt Moderator
Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet
|
| Posted: Tue May 23, 2006 2:50 am Post subject: |
|
|
Great Work Frank, I just can't believe that sort could do so many things. PARSE seems to be an extremely powerful and useful function.
Keep up the good work  8) 
Thanks,
Phantom |
|
| Back to top |
|
|
Frank Yaeger
Sort Forum Moderator
Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
|
| Posted: Tue May 23, 2006 10:27 am Post subject: |
|
|
Thanks, Phantom.
Yes, DFSORT's PARSE can do some pretty cool things with delimited files of various types.
| Quote: | | I just can't believe that sort could do so many things. |
Note that's "DFSORT" specifically, not "sort" generically.
_________________
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 |
|
|
mfjin
Beginner
Joined: 26 Apr 2003
Posts: 94
Topics: 17
|
| Posted: Tue May 23, 2006 11:26 am Post subject: |
|
|
| That was terrific Frank. Kudos to the DFSORT guys. How I wish SYNCSORT (the org that I work for now has got this) would keep pace with IBM and match feature for feature. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
