      *>-----------------------------------------
      *> base class library version information
      *>
      *> Copyright (C) 1991-1999 Micro Focus International Ltd.
      *>
      *>-----------------------------------------
       program-id. "classs".
       working-storage section.
      $if version not defined
       78  version           value "development version".
      $end
      $if revision not defined
       78  revision     value 000.
      $end
       01 resultblock.
          03 resflags               pic x comp-x value 0.
          03 buildrevision          pic x comp-x value revision.
          03 minorversion           pic x comp-x value 1.
          03 majorversion           pic x comp-x value 2.
       01 result redefines resultblock pic 9(9) comp-5.
       01 versionInfoType           pic x(4) comp-5 value 1.
       01 oops-version-string       pic x(40).
       01 filler pic x(80) value 
                                x"0D0A" & "@(#)Vrn " &
                                "Class Library " & version & 
                                " nrV>" & x"0D0A".

       78 expected                  value "0002.0002".

       procedure division.
           call "oopsgetversion" using by value versionInfoType,
                            by reference oops-version-string           
           if oops-version-string(26:9) < expected
               move 0 to result         *>> Version incompatability
           end-if           
           exit program returning result
           .
