I just changed your program to use one of our files and I do get the
RRN, since my program is using blocking it only updates it when a new
batch of records is read. In my case, it shows 5 for the first 5
records, then switches to 10, etc. I just put a DSPLY in after the
Z-add to see the value of RRN.
Scott
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Darryl Freinkel
Sent: Monday, November 19, 2012 1:44 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: How can I retrieve the RRN of a record in a PF in a RPG3?
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
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
