the Progress SanityChecker Procedure.

Cecil

19+ years progress programming and still learning.
How to tell if you need to upgrade your version of progress. Alter it and have fun.

Source information :
OpenEdge Product Availability Guides and Life Cycle Guide - Wiki - OpenEdge General - Progress Community

Did Progress V9.1E retire only 2015-Oct?

Code:
PROCEDURE SanityChecker:



    DEFINE VARIABLE cProVersion AS CHARACTER   NO-UNDO.

    DEFINE VARIABLE iVersion    AS INTEGER     NO-UNDO.



    cProVersion = REPLACE(PROVERSION, "BETA", "").

    iVersion =  TRUNCATE(DECIMAL(cProVersion),0).

    

    CASE TRUE:

        WHEN iVersion >= 3 AND iVersion <= 7 THEN

            MESSAGE "Go Home! There is no hope for you. :(".

        WHEN iVersion = 8 THEN

            MESSAGE "Ahhh! What is going on? Progress V8.3E Retired 2010-Feb".

        WHEN iVersion = 9 THEN

            MESSAGE "Come on aready! OpenEdge 10.2B.08 Retired 2015-Oct".

        WHEN iVersion = 10 THEN

            MESSAGE "There is still hope. OpenEdge 10.2B.08 is set to Retired in 2019".

        WHEN iVersion = 11 THEN

            MESSAGE "Just make sure you are up to date..".

    END.



END PROCEDURE.



IF SESSION:DEBUG-ALERT THEN

    RUN SanityChecker IN THIS-PROCEDURE.
 

Rob Fitzpatrick

ProgressTalk.com Sponsor
Another way to deal with old releases:

Code:
run SanityChecker.

procedure SanityChecker:

  display "OE Version: " decimal( proversion ).
  
  catch anyError as Progress.Lang.ProError:
    message "Pre-11; upgrade now!" view-as alert-box.
    delete object anyError.
  end catch.

end.

;)
 
Top