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
 

 

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 Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts Display FTP Session Count within TSO Yolanda Harvey TSO/ISPF 3 Fri Mar 10, 2017 10:31 pm
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts Display ZEDLMSG without Pressing F1 &... anandgbe CLIST & REXX 8 Thu Dec 15, 2016 4:20 pm
No new posts How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm


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