Conference ilbbak::ibi_focus

443.0. "question on FOC243" by ISLNDS::ALLAN () Wed Jul 31 1991 16:24

Hi,

  I have just inherited a FOCUS system that has run for a couple years with
no problem. It has been passed to programmer to programmer with no one needing
to look at it. Well now I have it, there is now no one in the group who has
any experience with it and we now have a problem with it - of course!

ERROR MESSAGE:

     ERROR AT OR NEAR LINE 95 IN PROCEDURE PNCPGMS:PONCREP.FEX
     (FOC243) AMBIGUOUS OR UNRECOGNIZED SYNTAX. PLEASE RECODE.

  I looked up error message FOC243 which states:

 "COMPUTATIONAL STATEMENT RECOGNIZED BUT NOT YET SUPPORTED
 The computational facility recognizes the stated operations but
 the FOCUS release does not yet perform the operation."

  Now according to the documentation within the code, it was written on
V 3.1 of FOCUS. We were just upgraded to V 6.1. So, I'm assuming that my
problem is just the opposite of the error message - this once worked but
on the current rev it won't do it any more.

  Can someone please tell me is my theory is correct? And/or shed some light
on this for me. Following is the line of code that got the error.

  FY_TWO/I1     = ((NUM_YEAR EQ (&&FISCAL_YEAR - 2)) AND (NUM_MONTH EQ 0));
  FY_ONE/I1     = ((NUM_YEAR EQ (&&FISCAL_YEAR - 1)) AND (NUM_MONTH EQ 0));
  SEL_COND/I1 = NUM_YEAR EQ &&FISCAL_YEAR) OR FY_ONE OR FY_TWO;

  (before this code a prompt asks the user for a FISCAL year "&&FISCAL_YEAR.I2")


Thankx,

Launa

    
    Try getting rid of the DEFINES you listed, then put the following in
    your code.
    
     
    table file yourfile 
    
      print or whatever code you have     
    
    replace your ==> IF SEL_COND EQ     statement with : 
     
    
    WHERE ( NUM_YEAR EQ   &&FISCAL_YEAR ) OR 
          ( NUM_YEAR EQ ( &&FISCAL_YEAR - 1 ) AND (NUM_MONTH EQ 0)) OR 
          ( NUM_YEAR EQ ( &&FISCAL_YEAR - 2 ) AND (NUM_MONTH EQ 0)); 
    
    END
    
    
    
    
    
    GOOD LUCK

    Great! Thank you
    
    Launa