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
 

 

How to convert PD to Numeric or Char field

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Sumeru

New User


Joined: 15 Apr 2006
Posts: 10

PostPosted: Sat Jun 07, 2008 11:05 am    Post subject: How to convert PD to Numeric or Char field
Reply with quote

Hi.
I am not proficient in DFSORT and need your help.I have a file of 78 fields of which the last 9(70-79) are in PD format.
Here it is.
Code:
6----+----7----+----8
*********************
B109000020......ý64 
G109000020......ð64



Now the issue I have is

1) How to declare a table in DB2 to load the data in the file. What format will the datatype takes to accommodate the PD and of how much length.
2) How to convert the PD to numeric or char and output the same into another file in readable format.
3)What is the solution for the above 2 questions if it is a ZD instead of PD.

Thanks in advance.
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sat Jun 07, 2008 12:33 pm    Post subject:
Reply with quote

Hello Sumeru and welcome to the forums,

Please notice that your example data has been "Code"ed (using the tag near the top of the reply panel). If you "Code" your jcl, control statements, and data, it will use a fixed font rather than a proportional font and will be much more readable.

Quote:
I have a file of 78 fields of which the last 9(70-79) are in PD format
The sample data does not match this. Also, i believe you meant the lrecl not the number of fields.

Tables are usually defined before code is written. I'd check with your project lead or dba to learn how this table is defined (or will be).

Packed-decimal is a readable format icon_confused.gif
Back to top
View user's profile Send private message
Sumeru

New User


Joined: 15 Apr 2006
Posts: 10

PostPosted: Sat Jun 07, 2008 2:07 pm    Post subject:
Reply with quote

Hi Dick,
Thanks for the quick reply. The situation is like this. There is some old data needed by the customer and some tapes were identified for that. I pulled the data from the tape as-is and now I have to create a table for that and load it into that. The only extra info I have is the following DDL for the table.

Code:
INPUT @002 MONTH     $CHAR02.
      @004 SRC             $CHAR03.
      @007 REGION        $CHAR01.
      @008 INDEX          $CHAR05.
      @026 EMPSER        $CHAR06.
      @061 ACCT           $CHAR09.
      @061 DIV              $CHAR02.
      @063 MAJ              $CHAR03.
      @066 MINOR          $CHAR04.
      @070 AMT              PD7.2; 


I could identify all the other fields except the PD7.2 . There is one more table with ZD also defined in it. I never worked on this stuff before and loading into the table is giving me conversion errors for the AMT field.


I meant LRECL only ..not fields. The LRECL for the file is 78 of which the last 9 is Packed Decimal.

Please advice and let me know if any further info is needed.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sat Jun 07, 2008 11:10 pm    Post subject:
Reply with quote

Hello,

Please re-post your sample data (and this time, please use "hex on" as well as the "Code" tag).
Quote:
The LRECL for the file is 78 of which the last 9 is Packed Decimal.
In the sample data, the "last 9" do not appear to be packed decimal. A packed-decimal number will not end with a visable digit due to the way packed-decimal data is stored.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Sun Jun 08, 2008 3:38 am    Post subject:
Reply with quote

Quote:
How to convert the PD to numeric or char and output the same into another file in readable format.


See the following in "z/OS DFSORT: Getting Started":

"Converting Numeric Fields to Different Formats" at:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CG20/2.4.7?DT=20060615173822

"Editing Numeric Fields" at:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CG20/2.4.8?DT=20060615173822

If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

www.ibm.com/servers/storage/support/software/sort/mvs/srtmpub.html
Back to top
View user's profile Send private message
Sumeru

New User


Joined: 15 Apr 2006
Posts: 10

PostPosted: Mon Jun 09, 2008 6:54 pm    Post subject:
Reply with quote

Hi, Please find the data below.

Code:
 Command ===>                                                  Scroll ===> CSR 
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
********************************* Top of Data **********************************
5010288AUTCL                                             62B109000020......ý64 
5010288AUTCL                                             62G109000020......ð64 
5010288AUTCL                                             62B109000020.....Ä.64 
5010288AUTCL                                             62H109000020.....Ä.64 
5010288AUTCL                                             62G109009799......ý64 
5010288AUTCL                                                100210996......ð64 
5010288AUTCL                                             62H109009799.....Ä.64 





With Hex on the code looks as follows.

Code:

 BROWSE    SRC02.IRSTAPES.HQ.IRS1995.JAN.OUT100       Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> CSR 
********************************* Top of Data **********************************
 ------------------------------------------------------------------------------
5010288AUTCL                                             62B109000020......ý64 
FFFFFFFCEECD444444444444444444444444444444444444444444444FFCFFFFFFFFF0000028FF44
501028814333000000000000000000000000000000000000000000000622109000020000005D6400
 ------------------------------------------------------------------------------
5010288AUTCL                                             62G109000020......ð64 
FFFFFFFCEECD444444444444444444444444444444444444444444444FFCFFFFFFFFF0000028FF44
501028814333000000000000000000000000000000000000000000000627109000020000005C6400
 ------------------------------------------------------------------------------
5010288AUTCL                                             62B109000020.....Ä.64 
FFFFFFFCEECD444444444444444444444444444444444444444444444FFCFFFFFFFFF0000060FF44
501028814333000000000000000000000000000000000000000000000622109000020000073D6400



Please ask me if further info is needed.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Jun 09, 2008 9:08 pm    Post subject:
Reply with quote

Hello Sumeru,

You have a packed-decimal value in pos 70-76. The next 2 bytes ('64') are not packed nor are they part of a packed-decimal value)

Now that the packed-decimal "field" has been identified, what do you want to do with it? As is, it is valid as input to a mainframe process (cobol, easytrieve, etc).

Please show the output you want from this input.
Back to top
View user's profile Send private message
Sumeru

New User


Joined: 15 Apr 2006
Posts: 10

PostPosted: Tue Jun 10, 2008 6:40 pm    Post subject:
Reply with quote

Hi Dick,
I need to load the above data to a table which I have to create.I got the ddl for all fields except the last one which takes the Packed Decimal.

I want to know how I should declare the field with how much length.

Instead of that I can convert the PD to decimal using SORT and then load the decimal into a table.

I also have to create two more tables with the PD and ZD.

like this
Code:
 @111 PISRC     $CHAR02.
      @113 HOURS        ZD6.1   
      @119 BURDAMT    PD6.2   
      @125 BENEFIT      $CHAR02.


If you can give me the solution on how to declare the table DDL with respect to the length of the PD and ZD field or how to convert the fields to normal decimal data using SORT then it will solve my problem.I was supposed to give the data yesterday but conveyed the problem to the customer, so I am cool for some time.

Thanks
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Jun 10, 2008 7:39 pm    Post subject:
Reply with quote

Hello,

On most systems, table definitions are the responsibility of the database support people. I suggest you talk with your dba(s) and ask them to provide the table definition including the column names and attributes for the data to be loaded.

You should not need to reformat the data you have in either case in order to load it into the tables.
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 Convert CLIST to REXX cvnlynn CLIST & REXX 12 Tue Jun 27, 2017 2:06 am
No new posts Validate if a Value from the file is ... balacsv2 COBOL Programming 8 Mon Jun 19, 2017 11:52 pm
No new posts Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Alter &DATENS field in HEADER1 Angad DFSORT/ICETOOL 4 Mon Apr 24, 2017 11:49 am


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