Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum 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 current IMS region on an On-l... Time2Live IMS DB/DC 1 Fri May 03, 2019 1:59 am
No new posts Display Signed ZD field socker_dad DFSORT/ICETOOL 11 Thu Feb 28, 2019 1:17 am
No new posts Code numeric format to display both '... Time2Live COBOL Programming 7 Wed Nov 21, 2018 10:20 pm
No new posts How to display offset thru cobol prog... tvinodkumar7 CICS 2 Sun Apr 22, 2018 8:42 pm
No new posts how to display APL characters? Pedro TSO/ISPF 7 Wed Mar 14, 2018 5:07 am

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