Re: RRN ?

["David Morris" <dmorris@xxxxxxxxxxxxx>]

Shen,

I don't understand what you are trying to do, but when you specify 
recno, the record must exist before the write.  If you want it to work 
create 22,222 records in your file, delete them (don't reorganize) 
and run your program.

David Morris

>>> "Shen Jianjun" <ipacsjj@public.sta.net.cn> 04/27/99 05:58AM >>>

I write one program to test RRN. When run at statement 6, error message
(I/O error CPF5006 was detected in file PF0828) happens. Below is the
source of the PF and RPGLE.

Thanks.
 

FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++
        *************** Beginning of
data************************************* 
0001.00 FPF0828    O    E             DISK    RECNO(RRN)                   
0002.00 DRRN              s              2  0 inz                          
0003.00 C                   EVAL      RRN = 1                              
0004.00 C                   EVAL      KEY = 22222                          
0006.00 C                   WRITE     REC1 
0007.00  *                                                                 
0008.00 C                   EVAL      RRN = 2                              
0009.00 C                   EVAL      KEY = 12345                          
0010.00 C                   WRITE     REC1                                 
0011.00  *                                                                 
0012.00 C                   move      '1'           *inlr                  
    

 SEU==>                                                                 
PF0828
 FMT PF
....A..........T.Name++++++RLen++TDpB......Functions++++++++++++++++++
        *************** Beginning of
data*************************************
0001.00      A          R REC1                                             
0002.00      A            KEY            5  0                              
0003.00      A            TEXT          10                                 
0004.00      A                                                             
         ****************** End of
data****************************************


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *