/IF NOT DEFINED(DATA_TYPES)
      /DEFINE DATA_TYPES

     **********************************************************
     **  (c) 1999 by Robert Cozzi, Jr.                       **
     **      All rights reserved.                            **
     **      Posting elsewhere on the internet or            **
     **      reproduction for publication prohibited.       **
     **                                                      **
     **  Posted for non-commercial public use on the         **
     **  Internet at:   http://www.RPGIV.com                 **
     **********************************************************

     **********************************************************
     **  These fields are used for field referencing.        **
     **  Their names identify their data-type.               **
     **  They provide a more documented interface when       **
     **  declaring prototypes that interface with the        **
     **  C language and for declared Integer fields.         **
     **********************************************************
     D short           S              5I 0
     D int             S             10I 0
     D long            S             10I 0
     D int2            S              5I 0
     D int4            S             10I 0
     D float           S              8F
     D double          S                   Like(float)
     D ptr             S               *

      /ENDIF