View previous topic :: View next topic
|
Author |
Message |
diwa_thilak
Active User
Joined: 13 Jul 2006 Posts: 205 Location: At my desk
|
|
|
|
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 |
|
|
anandinmainframe
Active User
Joined: 31 May 2007 Posts: 171 Location: India
|
|
|
|
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 |
|
|
|