Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
sawyer

New User

Joined: 10 Oct 2006
Posts: 1

Posted: Tue Nov 13, 2007 6:25 pm    Post subject: about EDIT=(TTTTT) in sort statement

hi guys,
would you pls explain the following statement in SORT for me, thank you!

 Code: SORT     FIELDS=(29,9,CH,A)    OUTFIL   FNAMES=FILE1,           OUTREC=(29,9,129,2,61,1,                   88,8,PD,EDIT=(TTTTTTTTTTTTTTT),                   96,8,PD,EDIT=(TTTTTTTTTTTTTTT),                  112,8,PD,EDIT=(TTTTTTTTTTTTTTT),                  120,8,PD,EDIT=(TTTTTTTTTTTTTTT),                  104,8,PD,EDIT=(TTTTTTTTTT),                   159,1,169,2,171,1,172,1,173,1,26X)

krisprems

Active Member

Joined: 27 Nov 2006
Posts: 649
Location: India

 Posted: Tue Nov 13, 2007 7:15 pm    Post subject: sawyer read Editing Numeric Fields
Frank Yaeger

DFSORT Moderator

Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

Posted: Tue Nov 13, 2007 10:02 pm    Post subject:

 Code: OUTREC=(29,9,129,2,61,1,       88,8,PD,EDIT=(TTTTTTTTTTTTTTT),       ...

29,9 - puts input positions 29-37 in output positions 1-9.

129,2 - puts input positions 129-130 in output positions 10-11.

61,1 - puts input position 61 in output position 12.

88,8,PD,EDIT=(TTTTTTTTTTTTTTT) - converts the 8-byte PD value in positions 88-95 to a 15-digit value with leading zeros (e.g. '00001234567890') in output positions 13-27.

and so on.

If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

www.ibm.com/servers/storage/support/software/sort/mvs/srtmpub.html
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics SORT BUT RETAIN HIGHEST VALUE ON NON-... leondan22 DFSORT/ICETOOL 2 Thu Dec 14, 2017 8:13 pm Extract record for change in combinat... Trinadh DFSORT/ICETOOL 6 Thu Nov 23, 2017 3:32 pm JOINKEYS Paired and Unpaired Sort on ... MFwhiz DFSORT/ICETOOL 7 Tue Nov 07, 2017 2:46 am COBOL - EXIT statement weird behavior anthony.pangestu COBOL Programming 0 Fri Oct 27, 2017 9:57 am sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us