RE: RRN ?

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

If you use RECNO for a PF, you must have the records already in the file.
Try INZPFM.  This is very old fashioned.  Is this for a class assignment?

Buck Calabro

> >>> "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          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *