Conference ilbbak::ibi_focus

408.0. "COBOL TO FOCUS TABLE HELPED" by KAHALA::BILLS () Tue Mar 26 1991 08:07

	After going back to my original master file:
    
    	1. Adding a field at a time
    	2. Subtracting that number from the filler
    	3. Running a procedure that asked for a report of what was
           in the field.
    
    	It became very clear that COBOL to FOCUS conversion of
    numeric fields was the problem.  In this case it was my
    COBOL PIC 9(7) COMP-3 fields.  
    
    	I had counted them the way COBOL does and came up
    with a FOCUS filed of:
    
    	USAGE=P8  ACTUAL=P4
    
    	That gave me a FOCUS FORMAT error when I tried to report
    against the field.  I then did more research in this notes
    file looking for TITLE=COBOL which eventually led me to the
    SHIRE::FOCUS notes file and the noted included below.
    
    	I still needed to round up my numbers, but when I followed
    the chart and rounded up to an even number:
    
    	USAGE=P10 ACTUAL=P5
    
    	My master file now allows reporting with no error.
    
    	Hopes this note helps someone as much as it did me.
    
    	And thanks again for your reply in .1, that's what
    put me onto what confirmed my suspected error.
    
    	Regards
    
    	Gwen Bills
    
    
    
                <<< SHIRE::BEORN:[NOTES$LIBRARY]FOCUS.NOTE;1 >>>
                      -< European FOCUS Notes Conference >-
================================================================================
Note 164.2        Cobol to Focus sign-field conversion problem            2 of 5
EFGV04::LEE                                          19 lines  27-JUN-1989 13:32
                             -< Minor correction >-
--------------------------------------------------------------------------------
Sorry, 3 S's got accidently deleted in the chart (in the COBOL definitions
for numeric fields without decimal points). It should read:
           
============================================================================
|                   |     COBOL                |            FOCUS          |
|                   |                          |     ACTUAL   |    USAGE   |
============================================================================
|numeric field      |  S9(m) COMP-3            | P((m+2)/2)   | P(m+2)     |
|                   |  S9(2*a-2) COMP-3        | Pa           | P(2*a)     |
|                   |  S9(x-2) COMP-3          | P(x/2)       | Px         |
----------------------------------------------------------------------------
|numeric field      |  S9(m)V9(n) COMP-3       | P((n+m+2)/2) | P(n+m+2).n |
|with decimal point |  S9(2*a-b-2)V9(b) COMP-3 | Pa           | P(2*a).b   |
|                   |  S9(x-y-2)V9(y) COMP-3   | P(x/2)       | Px.y       |
----------------------------------------------------------------------------
|character field    |  X(m)                    | Am           | Am         |
----------------------------------------------------------------------------

Sim Lee.