*
      /DEFINE BSEARCH_P
      *
     D bsearch         PR              *   ExtProc('bsearch')
     D   LookForPtr                    *   Value
     D   DataStartPtr                  *   Value
     D   ElementNum                  10U 0 Value
     D   ElementSize                 10U 0 Value
     D   CompareFunc                   *   Value ProcPtr
      *
     D qsort           PR                  Extproc('qsort')
     D   DataStartPtr                  *   Value
     D   ElementNum                  10U 0 Value
     D   ElementSize                 10U 0 Value
     D   CompareFunc                   *   Value Procptr