Re: How can I retrieve the RRN of a record in a PF in a RPG3?

[Booth Martin <booth@xxxxxxxxxxxx>]

FWIW, if you take off the K and just keep track of the record count I 
believe you will have the RRN.

If you are processing all of the records in the file, as a bonus your 
processing time improvement may astonish you.





On 11/19/2012 2:43 PM, Darryl Freinkel wrote:
> I have a need to retrieve the RRN of the record read in a RPG OPM program.
> (this is a re-posting).
>
>
>
>       FWRK959  IF  E           K        DISK
>
>       F                                              KINFDS DS
>
>       IDS          DS
>
>       I                                    B 397 4000RRN
>
>       C                     READ WRK959                   01
>
>       C           *IN01     DOWEQ*OFF
>
>       C                     POST WRK959
>
>       C                     Z-ADDRRN       RRNX   155
>
>       C                     READ WRK959                   01
>
>       C                     ENDDO
>
>       C                     MOVE *ON       *INLR
>
>
>
> I created a test program (above) and it does not show the RRN, or have an
> invalid value after the first read. It then shows zero or blanks.
>
>
>
> Can anyone help with retrieving the RRN?
>
>
>
> Darryl Freinkel | Assignment 400 Group, Inc.
>
> Tel: 770.321.8562 ext 111 | Fax 770.321.8562
>
> E-mail: dfreinkel@xxxxxxxxxxxxxxxxx
>
> Web: www.assignment400.com