Focal Point Banner


As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [Solved]To create MFD for decimal and Packed decimal fields

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[Solved]To create MFD for decimal and Packed decimal fields
 Login/Join
 
Rajiv Garg
Member
posted
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,


FOCUS version 7.6.7.
Windows
Excel
 
Posts: 14 | Registered: June 10, 2009Report This Post
Dan Satchell
Virtuoso
posted Hide Post
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       ,$


WebFOCUS 7.7.05
 
Posts: 1213 | Location: Seattle, Washington - USA | Registered: October 22, 2007Report This Post
GinnyJakes
Expert
posted Hide Post
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. Smiler


Ginny
---------------------------------
Prod: WF 7.7.01 Dev: WF 7.6.9-11
Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google
 
Posts: 2723 | Location: Ann Arbor, MI | Registered: April 05, 2006Report This Post
Rajiv Garg
Member
posted Hide Post
Thank You so much Ginny and Dan. I am able to get the desired results. Smiler


FOCUS version 7.6.7.
Windows
Excel
 
Posts: 14 | Registered: June 10, 2009Report This Post
Waz
Expert
posted Hide Post
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.


Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

 
Posts: 6347 | Location: 33°49'23.0"S, 151°11'41.0"E | Registered: October 31, 2006Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [Solved]To create MFD for decimal and Packed decimal fields

Copyright © 1996-2020 Information Builders