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
 

 

Convert from PD to readable format.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
rguhanath

New User


Joined: 16 Oct 2006
Posts: 80
Location: chennai

PostPosted: Thu Jan 07, 2010 3:33 pm    Post subject: Convert from PD to readable format.
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

Moderator Team Head


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

PostPosted: Thu Jan 07, 2010 4:06 pm    Post subject: Reply to: Convert from PD to readable format.
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    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts Convert +9999999999999.99 to S9(12)V9(3) vnktrrd DFSORT/ICETOOL 8 Thu Nov 17, 2016 8:15 pm
This topic is locked: you cannot edit posts or make replies. Db2 SQL query to convert rows into co... subratarec DB2 5 Thu Nov 17, 2016 4:51 pm
No new posts convert PD to ZD ram_vizag DFSORT/ICETOOL 5 Sat Nov 05, 2016 3:06 am
No new posts Match or compare two files in VB Format anatol DFSORT/ICETOOL 14 Thu Nov 03, 2016 7:41 pm


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