Re: Another PIPE how to

[Miguel Delapaz]

Okay.  If you don't mind massaging
the indicies a bit I've got something that *should* work:

/* TEST EXEC Created by MIGUELD at 12:22:08 (EST)
on 11/08/06 */
               
                     
                     
    
TABLE. = ""        
                     
         /* Initialize the TABLE stem to nulls
*/             
TABLE.0 = 12480          
                     
   /* Assuming there are 2480 indicies you actually care about
(0000-2480) */             
field1 = HELLO          
                     
                 
field2 = GOODBY          
                     
                
field99 = THE END          
                     
              
TABLE.10101 = field1          
                    /*
Add 10000 to all of the indicies to alleviate the leading zero problem
*/             
TABLE.10202 = field2          
                    /*
                     
    "                
      "              
     */              
           
TABLE.12480 = field99        
                     /*
                     
    "                
      "              
     */              
           
               
                     
                     
    
'PIPE',
  '| STEM TABLE. FROM 10001',      
               /* The FROM says
to start reading the data at 10001 and go up to TABLE.0 (12480) */
  '| LOCATE',          
                     
     /* Get rid of any values that haven't been set (still
null)                    
 */
  '| CONS'          
        


You may have to doctor it a bit to suit
your needs.  Hope this helps.

Regards,
Miguel Delapaz
z/VM TCP/IP Development