Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Display to PD

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

New User


Joined: 10 Jun 2010
Posts: 52
Location: chennai

PostPosted: Tue Feb 18, 2014 11:21 am    Post subject: Display to PD
Reply with quote

Hi Experts,

Thanks for your interest in this thread.

I have a requirement where I will have to change the comma seperated amount (2nd column) to PD to use it in Calculations.

What is the easiest way to do this in SORT.
Please suggest.

Thanks for your time..



Code:

 000004 20630061121806|                               124,809.26|    60|         A004| C004                  .
 000005 20670011102320|                             1,607,597.51|    60|         A006| C006                  .
 000006 20670011102330|                            89,872,625.13|    10|         A007| C007                  .
 000007 20670011102333|                                 7,942.74|    10|         A008| C008                  .
 000008 20670011190070|                            53,040,555.75|    60|         A009| C009                  .
 000009 20670011190071|                            37,908,478.97|    10|         A010| C010                  .
 000010 20670012116514|                               114,915.08|    10|         A011| C011                  .

Back to top
View user's profile Send private message

Skolusu

Senior Member


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

PostPosted: Wed Feb 19, 2014 3:34 am    Post subject:
Reply with quote

Assuming your free format data is starting in position 16 for a length of 41 bytes, use the following control cards which will convert to PD and put it at position 16 for a length of 10 bytes.

Code:

//SYSIN    DD *                                 
  OPTION COPY                                   
  INREC OVERLAY=(16:16,41,SFF,PD,LENGTH=10,31X)
//*                                             
Back to top
View user's profile Send private message
fredrick andrews

New User


Joined: 10 Jun 2010
Posts: 52
Location: chennai

PostPosted: Mon Feb 24, 2014 7:29 pm    Post subject: Thanks Skolusu
Reply with quote

It worked as expected...
Thanks for your help..
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 display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm
No new posts Binary to display characters Roy Ware SYNCSORT 3 Tue Sep 19, 2017 8:46 pm
No new posts DB2 NULL Values display V S Amarendra Reddy DB2 3 Thu Sep 07, 2017 6:59 pm
No new posts Suppress value reported by BREAK in D... Learncoholic DFSORT/ICETOOL 3 Wed Aug 16, 2017 6:03 pm
No new posts Display upon console bipinpeter COBOL Programming 1 Thu Jun 22, 2017 12:35 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us