/DEFINE ALLOC_P
      *
     D copy_mem        PR              *   Extproc('copy_mem')
     D   From@                         *   Const
     D   FromLen                     10I 0 Const
     D   HeapName                    10A   Const Options(*Nopass:*Omit)
     D   MemName                     10A   Const Options(*Nopass)
      *
     D copy_mem_to_var...
     D                 PR            10I 0 Extproc('copy_mem_to_var')
     D  From@                          *   Const
     D  FromLen                      10I 0 Const
     D  To@                            *   Const
     D  ToSize                       10I 0 Const Options(*Nopass)
      *
     D scan_mem        PR            10I 0 Extproc('scan_mem')
     D  Mem@                           *   Value
     D  MemLen                       10I 0 Value
     D  Scan                      65535A   Value
     D  ScanLen                      10I 0 Value
     D  P_StartPos                   10I 0 Value Options(*Nopass)
      *
     D replace_mem     PR            10I 0 Extproc('replace_mem')
     D  Mem@                           *   Value
     D  MemLen                       10I 0 Value
     D  FromPos                      10I 0 Value
     D  FromLen                      10I 0 Value
     D  ReplaceWith               65535A   Value
     D  ReplaceLen                   10I 0 Value
     D  DataLen                      10I 0 Value Options(*Nopass)
      *
     D append_mem      PR            10I 0 Extproc('append_mem')
     D  Mem@                           *   Value
     D  MemLen                       10I 0 Value
     D  Data                      65535A   Value
     D  DataLen                      10I 0 Value Options(*Nopass)
      *
     D rtv_data_len    PR            10I 0 Extproc('rtv_data_len')
     D  Mem@                           *   Value
     D  MemLen                       10I 0 Value
      *