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

Convert from PD to readable format.


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
rguhanath

New User


Joined: 16 Oct 2006
Posts: 81
Location: chennai

PostPosted: Thu Jan 07, 2010 3:33 pm
Reply with quote

Hi All,

I have come up with new requirement which is needs to do in Rexx. I have a FB sequential file which has the records with length 68 like below.

Code:

----+----1----+----2----+----3----+----4----+----5----+----6----+---
ABC01   201001000000000000{0000000294000{000000000000{0000000147000{
ABC02123201001000000003209F0000000000000{000000001604H0000000000000{
ABC02776201001000000000054F0000000000000{000000000027C0000000000000{
ABC02467201001000000000078E0000000000000{000000000039B0000000000000{


In above file, we have from

1. 15 to 27 position field was declared as S9(10)V9(3) (not COMP or COMP3)
2. 28 to 41 position field was declared as S9(10)V9(4) (not COMP or COMP3)
3. 42 to 54 position field was declared as S9(10)V9(3) (not COMP or COMP3)
4. 55 to 68 position field was declared as S9(10)V9(4) (not COMP or COMP3)


So, we don't know the exact value in these positions due to it stored in PD or any other format. I want to see exact values for these positions by giving the macro name on command prompt whether the file is open. We need to give the command with parameters in command prompt like...

If it Packed decimal to Decimal ---> Command ===> PDTDC 15,14 (or) PDTDC (15,14)
If it Binary to decimal ---> Command ===> BFTDC 15,14 (or) BFTDC (15,14)

Here PDTDC is the Rexx program name and 15, 14 are parameters which 15 tell the starting of the position and 14 is length of the field. So that from the position it should convert the data to readable format and display it on same position in a file or display the popup temporally (for reference purpose).

We know that we are able to see the exact value by using File-aid. For this we copy the corresponding file layout from the program and store in a member. By using this member we can able to see in File-id. But here I want to eliminate this process like copy the layout and store in a member and open the File-aid...etc. I want just by giving the macro name on command prompt to refer the value at the moment.

Please let me know the process to write this code.


Regards,
Nath.
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Thu Jan 07, 2010 4:06 pm
Reply with quote

OK. What have you got, where are you stuck, what specifically can we help with? Offhand, I don't think there's any part of this that hasn't been discussed before and other topics.
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 -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Populate last day of the Month in MMD... SYNCSORT 2
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts Need to convert date format DFSORT/ICETOOL 20
No new posts Keep leading zero(s) after convert fl... SYNCSORT 7
No new posts InfoSphere OPTIM CSV ouput vs DSNTIUA... IBM Tools 3
Search our Forums:

Back to Top