Hi,

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

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...

  
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 am doing wrong here..

This message has been edited. Last edited by: Rajiv Garg,

Unless FOCUS integer definitions have changed recently, columns declared as integers cannot have decimals. I'm surprised you didn't get an error message with declarations like I3.2 and I4.2. Try making these changes to your FOCUS MFD:

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

Since the first column has a decimal in it, the USAGE format should be P3.2 not I3.

Rajiv, if you have access to a mainframe FOCUS manual or can download one from the IBI site, there is an awesome table in Chapter 8 called FOCUS FORMAT Conversion Table which lists the COBOL PICTURE clause and the FOCUS USAGE and ACTUAL formats. I have been using this table for several decades now to assist in creating MFDs for non-FOCUS files. You could cut it out, paste it onto an index card and post it in your workarea.

Thank You so much Ginny and Dan. I am able to get the desired results.

Rajiv, I think you need to get an understanding of field formats in FOCUS.

Please use the search options at the top of the page.