/IF NOT DEFINED (HASHTABLE_QRPGLEH)
      /DEFINE HASHTABLE_QRPGLEH
      /IF DEFINED (LATE_BIND)
     d HashTable       ds                  qualified
     d put                             *   procptr
     d get                             *   procptr
     d remove                          *   procptr
     d clearAll                        *   procptr
     d getKey                          *   procptr
      /ENDIF
     /*===================================================================*/
     /*  HashTable                                                        */
     /*     dynamische Liste zum Abspeichern von Daten Strukturen         */
     /*     nach Name                                                     */
     /*-------------------------------------------------------------------*/
     D put             PR              n   EXTPROC('HASHTABLE_put')
     D Key                           18    VALUE
     D DSPointer                       *   value
     D Length                        10i 0 VALUE
     /*-------------------------------------------------------------------*/
     D get             PR              n   EXTPROC('HASHTABLE_get')
     D Key                           18    VALUE
     D DSPointer                       *   value
     D Length                        10i 0 VALUE
     /*-------------------------------------------------------------------*/
     D remove          PR              n   EXTPROC('HASHTABLE_remove')
     D Key                           18    VALUE
     /*-------------------------------------------------------------------*/
     D clearAll        PR              n   EXTPROC('HASHTABLE_clearAll')
     /*-------------------------------------------------------------------*/
     D getKey          PR            18a   EXTPROC('HASHTABLE_getKey')
     d position                      10i 0 value
     d                                     options(*nopass)
     /*-------------------------------------------------------------------*/
      /ENDIF