/IF NOT DEFINED(C_TYPES)
      /DEFINE C_TYPES

      ***************************************************************
      * Source File Name = CTYPES
      *
      * C data types
      ***************************************************************
      * Copyright 2005, Bits & Bytes Programming, Inc.
      * ALL RIGHTS RESERVED
      *
      * This source member is licensed for use only within your
      * enterprise. You may not redistribute this source member
      * in any format on any media.
      ***************************************************************
     D ctypes...
     D                 ds                  qualified

     D   char...
     D                                1a
     D   unsignedChar...
     D                                1a

     D   short...
     D                                5i 0
     D   signedShort...
     D                                     like(ctypes.short)
     D   signedShortInt...
     D                                     like(ctypes.short)
     D   shortInt...
     D                                     like(ctypes.short)

     D   unsignedShort...
     D                                5u 0
     D   unsignedShortInt...
     D                                     like(ctypes.unsignedShort)

     D   int...
     D                               10i 0
     D   signed...
     D                                     like(ctypes.int)
     D   signedInt...
     D                                     like(ctypes.int)

     D   unsignedInt...
     D                               10u 0
     D   unsigned...
     D                                     like(ctypes.unsignedInt)

     D   long...
     D                               10i 0
     D   longInt...
     D                                     like(ctypes.long)
     D   signedLong...
     D                                     like(ctypes.long)
     D   signedLongInt...
     D                                     like(ctypes.long)

     D   unsignedLong...
     D                               10u 0
     D   unsignedLongInt...
     D                                     like(ctypes.unsignedLong)

     D   bigInt...
     D                               20i 0
     D   longLong...
     D                                     like(ctypes.bigint)

     D   unsignedBigInt...
     D                               20u 0
     D   unsignedLongLong...
     D                                     like(ctypes.unsignedBigInt)

     D   float...
     D                                4f

     D   double...
     D                                8f
     D   longDouble...
     D                                     like(ctypes.double)

     D   pointer...
     D                                 *

      /ENDIF