IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Display to PD


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
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
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts How to display the leading zeros of a... DB2 7
No new posts SDSF display Max-RC in different colors TSO/ISPF 4
No new posts Converting a file from PD to display ... SYNCSORT 4
No new posts Unable to display comp variable COBOL Programming 4
No new posts Adding FIND to ISPF Panel display of ... TSO/ISPF 3
Search our Forums:

Back to Top