IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

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 All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts Unable to display comp variable COBOL Programming 4
No new posts Adding FIND to ISPF Panel display of ... TSO/ISPF 3
No new posts Display current IMS region on an On-l... IMS DB/DC 1
No new posts Display Signed ZD field DFSORT/ICETOOL 11
No new posts Code numeric format to display both '... COBOL Programming 7

Back to Top