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

To create Focus MFD for decimal and Packed decimal fields


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
raj_mainframe08

New User


Joined: 11 Sep 2007
Posts: 65
Location: Gurgaon

PostPosted: Tue Dec 29, 2009 6:35 pm
Reply with quote

Hi,

My requirement is to create MFD in Mainframe Focus to read the following fields in COBOL File.


Code:

SG02-CTRB-EMP-PCT               PIC V99.             
SG02-CTRB-EWD-PCT               PIC 9(1)V99   COMP-3.



I created the Focus MFD as below for the above fields but not getting the correct results...



Code:

FILE=B548290        ,SUFFIX=FIX                                     
SEGNAME=B548290                                                     
FIELDNAME   =CTRB.EMP.PCT       ,E02         ,I3.2     ,Z2       ,$
FIELDNAME   =CTRB.EWD.PCT       ,E03         ,I4.2     ,P2       ,$



i.e. The value in cobol file field SG02-CTRB-EMP-PCT and SG02-CTRB-EWD-PCT is 0.67 and .81 but when i am reading that file with Focus MFD i created as above, i am getting 67.00 and 81.00. Can somebody please help me on what I'm doing wrong here?
Back to top
View user's profile Send private message
khadar78
Warnings : 1

New User


Joined: 29 Apr 2008
Posts: 16
Location: Mysore

PostPosted: Thu Dec 31, 2009 5:29 pm
Reply with quote

I suggest you to use Packed decimal in the field structure.
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 -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts How to create a list of SAR jobs with... CA Products 3
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
Search our Forums:

Back to Top