      *>-----------------------------------------
      *> base class library version information
      *>
      *> Copyright (C) 1991-1999 Micro Focus International Ltd.
      *>
      *>-----------------------------------------
       program-id. "class".
       working-storage section.
       01 classs        pic x(30) value "classs".
       01 classm        pic x(30) value "classm".
       local-storage section.
       01 threadId      pointer.
       01 result        pic x(4) comp-5.
       procedure division.
           call "CBL_THREAD_SELF" using threadId
                                returning result
           if result = 1008
                call classs returning result
           else
                call classm returning result
           end-if     
           exit program returning result
           .
