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

Packed Decimal to Numeric Using Eztrieve


IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
diwa_thilak

Active User


Joined: 13 Jul 2006
Posts: 205
Location: At my desk

PostPosted: Thu Mar 13, 2008 2:39 am
Reply with quote

Friends,

I got a field in VSAM file which is in packed decimal format(COMP3)


Attribute 1 :

In cobol it is defined as below

FIELD1 PIC 9(07) COMP-3.

In eztrieve it is defined to be

FIELD1 197 4 P 0 +
MASK 'ZZZZZZZ'

Attribute 2

Field2 54 6 P 4 +
MASK 'ZZZZZZZ.ZZZZ-'
In cobol as

Field2 PIC S9(06)V9999 COMP-3.

Queries

1. How should i define my eztrieve filed so that comp3 packed decimal gets converted into an ordinary (or) edit decimal type.

2. If i am going to use Move like command in my program, will the move statement refer to only field names in the move statement of the record (or) does it look at the field attribute type as well ?
Back to top
View user's profile Send private message
anandinmainframe

Active User


Joined: 31 May 2007
Posts: 171
Location: India

PostPosted: Thu Mar 20, 2008 2:52 pm
Reply with quote

Hi
In the output define that field as numeric and move it.i hope it will work
for an ex
Input
XXXXX x P 2
Output
XXXXX X N 0
move the input to a working storage and then move it to output
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 -> CA Products

 


Similar Topics
Topic Forum Replies
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts PD not working for unsigned packed JO... DFSORT/ICETOOL 5
No new posts Def PD not working for unsigned packe... JCL & VSAM 3
No new posts Need Help with Packed Decimal Signs DFSORT/ICETOOL 4
No new posts Convert HEX to Numeric DB2 3
Search our Forums:

Back to Top