VM Read problem

[Wakser, David]

All:

        The solution is probably simple, but I can't see it (it's been a long 
week):

        The following code is in an EXEC. However, when executing, it issues a 
VM READ after every 100 rdr queue entries, causing the EXEC to go bananas 
(since it then pulls in a file name or type of blanks). How can I figure out 
what is issuing the VM READ? A trace showed nothing.

        Thanks, in advance.

David Wakser

"EXECIO * CP (STRING Q RDR * ALL"                                    
                                                                     
do i = 1 to reader_files + 1  /* the header is the "plus 1"  */      
   pull sender num . . recs copy hold date time name type .          
   if sender = "ORIGINID" then iterate  /* Bypass header */          
   x = datatype(type)                                                
   if x ¬= "NUM" then                                                
      do                                                             
          name = name || type                                        
          type = " "                                                 
      end                                                            
   "EXEC RECEIVE =" name "ICCF" "G"  
end