Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

align numeric field

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Hima1985

New User


Joined: 17 Apr 2009
Posts: 70
Location: India

PostPosted: Fri Feb 04, 2011 12:36 pm    Post subject: align numeric field
Reply with quote

Some how from other applications I have received a file with numeric fields alligend to left, can you please assist in assigning that field to left
file format is FB and rec length is 100

Field starting position is 5th byte and field length is 8 bytes

Code:
123 50.00.   xyz apple
124 50.00.   mno apple
124 100.00.  Pqr apple
125 1000.00. Abc apple
126 10000.00 mno apple
127 100000.00abc apple


I need this in below format
Code:
123.    50.00xyz apple
124.    50.00mno apple
124.   100.00Pqr apple
125.  1000.00Abc apple
126. 10000.00mno apple
127 100000.00abc apple


Can we achieve this with sort?
Back to top
View user's profile Send private message

hailashwin

New User


Joined: 16 Oct 2008
Posts: 73
Location: Boston

PostPosted: Fri Feb 04, 2011 12:52 pm    Post subject:
Reply with quote

Hi,
I think the numeric field is 9 bytes and this should work..

Code:

//SYSIN    DD    *                             
  OPTION COPY                                   
  OUTREC FIELDS=(1,4,5,9,JFY=(SHIFT=RIGHT),14,9)
//*                                             


Thanks,
Ashwin
Back to top
View user's profile Send private message
Hima1985

New User


Joined: 17 Apr 2009
Posts: 70
Location: India

PostPosted: Fri Feb 04, 2011 2:57 pm    Post subject:
Reply with quote

Jfy is giving syntax error .. Might be missing some pti's of my sort.. Any other solutios please?
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Fri Feb 04, 2011 10:26 pm    Post subject:
Reply with quote

Hima1985 wrote:
Jfy is giving syntax error .. Might be missing some pti's of my sort.. Any other solutios please?


Hima1985,

You need to show us the syntax error you are getting. And for the record JFY function has been a part of UK90007 which was first available in April, 2006. If your shop does not have that PTF , then you probably are running an unsupported , out of service version of DFSORT.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Validate if a Value from the file is ... balacsv2 COBOL Programming 8 Mon Jun 19, 2017 11:52 pm
No new posts Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Alter &DATENS field in HEADER1 Angad DFSORT/ICETOOL 4 Mon Apr 24, 2017 11:49 am
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us