Re: Writing by Record number

["Larry Ackerman" <xlore@xxxxxxxxx>]

you can only write to the end of a file.  but it should be possible to keep
track of skips (deleted records) by using the record number from the file
information data structue, write a bogus record, read previous and delete
it to keep the positioning the same.

the output file would need to be update/add reusedlt(*no), the input file
should be seqonly(*yes 1) to insure the file information data structure
gets updated by each read not at block end, read the file non-keyed.

hth

larry
----------
> From: Rich Duzenbury <rduz@aros.net>
> To: 'Midrange-L@Midrange.Com' <midrange-l@midrange.com>
> Subject: Writing by Record number
> Date: Tuesday, November 24, 1998 4:25 PM
> 
> Is it possible to control the record number assigned to a record?  
> 
> I have to convert some records to a new format and the record numbers
need to be preserved, regardless of whether deleted records are in the
files.  Reorganizing the files prior to conversion is not an option.
> 
> Here is the code I have tried as a test.  (V3R2M0)
> 1.00      FWMPJRTS O   E                    DISK                         
  
> 2.00      F                                              KRECNO $RRN     
  
> 2.08      C*                                                             
  
> 3.00      C           1         DO   10        I      100                
  
> 4.00      C           I         MULT 5         $RRN   100                
  
> 5.00      C                     Z-ADD$RRN      SRRN                      
  
> 6.00      C                     WRITEWMPJRTSA                            
  
> 7.00      C                     END                                      
  
> 8.00      C*                                                             
  
> 9.00      C                     SETON                     LR             
  
> 
> Which fails miserably on statement 6 (the write) with a CPF5006 - 'Record
not found in file'.  The file WMPJRTS is a test file with one field called
SRRN, and no keys.  
> 
> What I can't understand is why CPF5006 would be issued for an output only
file.  Also, if line 2 is commented out, the program runs, but the record
numbers are assigned 1-10, not 5,10,15,20 as I would like.
> 
> Any and all advice is greatly appreciated.
> 
> Regards,
> Rich
> 
> ============================================
> Rich Duzenbury
> http://rich.dyn.ml.org
> http://vpsolutions.com
> ============================================
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---