/IF NOT DEFINED (MEMCPY_QRPGLEH)
      /DEFINE MEMCPY_QRPGLEH
     /*===================================================================*/
     /*  memcpy                                                           */
     /*     C Function                                                    */
     /*-------------------------------------------------------------------*/
     D memcpy          PR                  EXTPROC('memcpy')
     D from                            *   VALUE
     D to                              *   VALUE
     D length                        10u 0 value
      /ENDIF