Re: How do I retrieve the RRN of a PF or LF in a RPG program.

Here is the INFDS that I use defined in a Data Structure.
When put on F Spec for File field DB_RRN is defined as a 10 Integer.

DCL-DS MYINFDSDS Qualified;
FILE *FILE; // File name
OPEN_IND IND POS(9); // File open?
EOF_IND IND POS(10); // File at eof?
STATUS *STATUS; // Status code
OPCODE *OPCODE; // Last opcode
INFDROUTINE *ROUTINE; // RPG Routine
LIST_NUM CHAR(8) POS(30); // Listing line
SPCL_STAT ZONED(5) POS(38); // SPECIAL status
RECORD *RECORD; // Record name
MSGID CHAR(7) POS(46); // Error MSGID
// Next 4 Fields are available after POST
SCREEN *SIZE; // Screen size
NLS_IN *INP; // NLS Input?
NLS_OUT *OUT; // NLS Output?
NLS_Mode *MODE; // NLS Mode?
// Open Feedback Area 81-240
ODP_Type CHAR(2) POS(81); // ODP Type
File_Name CHAR(10) POS(83); // File
Lib_Name CHAR(10) POS(93); // Library
Spool_File CHAR(10) POS(103); // Spool File
Spool_Lib CHAR(10) POS(113); // Spool File Library
Spool_NUM INT(5:0) POS(123); // Spool File Number
RecLen INT(5:0) POS(125); // Record Length
Mbr CHAR(10) POS(129); // Member
Type INT(5:0) POS(147); // File Type
Rows INT(5:0) POS(152); // Num PRT/DSP Rows
Columns INT(5:0) POS(154); // Num PRT/DSP Columns
NumRcds INT(10:0) POS(156); // Num of Records
ACC_Type CHAR(2) POS(160); // Access Type
DUP_Key CHAR(1) POS(162); // Duplicate Key?
INFDSRC_File CHAR(1) POS(163); // Source File?
VOL_OFF INT(5:0) POS(184); // Vol Label Offset
BLK_RCDS INT(5:0) POS(186); // Max Rcds in Blk
OVERFLOW INT(5:0) POS(188); // Overflow Line
BLK_INCR INT(5:0) POS(190); // BLK Increment
MiscFlag1 CHAR(1) POS(196); // Misc Flag
Requester CHAR(10) POS(197); // Requester Name
Open_Count INT(5:0) POS(207); // open count
Based_Mbrs INT(5:0) POS(211); // Num Based Mbrs
MiscFlag2 CHAR(1) POS(213); // Misc Flag
Open_ID CHAR(2) POS(214); // Open Identifier
RCDFMT_LEN INT(5:0) POS(216); // Max Rcd Fmt Length
CCSID INT(5:0) POS(218); // CCSID
MiscFlag3 CHAR(1) POS(220); // Misc Flag
Num_DEVS INT(5:0) POS(227); // Num Devs Defined
// Positions 241 thru 366 in FIDS are used for Input/Output Feedback

// Display
PGM_DEV_P CHAR(10) POS(241); // Pgm Device
DEV_DSC_P CHAR(10) POS(251); // Dev Description
USER_ID_P CHAR(10) POS(261); // User ID
DEV_Class_P CHAR(1) POS(271); // Device Class
DEV_Type_P CHAR(6) POS(272); // Device Type
REQ_DEV_P CHAR(1) POS(278); // Requester
ACQ_STAT_P CHAR(1) POS(279); // Acquire Status
INV_STAT_P CHAR(1) POS(280); // Invite Status
Data_Avail_P CHAR(1) POS(281); // Data Available
Num_Rows_P INT(5) POS(282); // Number of Rows
Num_COLS_P INT(5) POS(284); // Number of Columns
Blink_P CHAR(1) POS(286); // Allow Blink
Line_Stat_P CHAR(1) POS(287); // Online/Offline?
DSP_LOC_P CHAR(1) POS(288); // Display Location
DSP_TYPE_P CHAR(1) POS(289); // Display Type
KBD_TYPE_P CHAR(1) POS(290); // Keyboard Type
CTL_INFO_P CHAR(1) POS(342); // Controller Info
COLOR_DSP_P CHAR(1) POS(343); // Color Capable
GRIS_DSP_P CHAR(1) POS(344); // Grid Line Dsp
DSP_FLAG1 CHAR(2) POS(367); // Display flags
DSP_AID CHAR(1) POS(369); // AID byte
FKEY CHAR(1) POS(369); // Function Key in Hex
CURSOR CHAR(2) POS(370); // Cursor location
DATA_LEN INT(10) POS(372); // Actual data len
SF_RRN INT(5) POS(376); // Subfile rrn
MIN_RRN INT(5) POS(378); // Subfile min rrn
NUM_RCDS INT(5) POS(380); // Subfile num rcds
ACT_CURS CHAR(2) POS(382); // Active window cursor location
MAJMIN CHAR(4) POS(401); // Major & Minor ret code
DSP_MAJOR CHAR(2) POS(401); // Major ret code
MAJCOD CHAR(2) POS(401); // Major ret code
DSP_MINOR CHAR(2) POS(403); // Minor ret code
MINCOD CHAR(2) POS(403); // Minor ret code
//*** File Information Data Structure for I/O FeedBack Information
// File
Write_CNT INT(10) POS(243); // Write Count
Read_CNT INT(10) POS(247); // Read Count
WRTRD_CNT INT(10) POS(251); // Write/Read Count
Other_CNT INT(10) POS(255); // Other I/O Count
Operation CHAR(1) POS(260); // Current Operation
RcdFmt CHAR(10) POS(261); // Record Format
DEV_CLASS CHAR(2) POS(271); // Device Class
IO_PGM_DEV CHAR(10) POS(273); // Pgm Device Name
IO_RCD_LEN INT(10) POS(283); // Rec Len of I/O
// ICF InterSystem Communications Function
ICF_PGM_DEV_P CHAR(10) POS(241); // Pgm Device
ICF_DEV_DSC_P CHAR(10) POS(251); // Dev Description
ICF_USER_ID_P CHAR(10) POS(261); // User ID
ICF_DEV_Class_P CHAR(1) POS(271); // Device Class
ICF_DEV_Type_P CHAR(6) POS(272); // Device Type
ICF_REQ_DEV_P CHAR(1) POS(278); // Requester
ICF_ACQ_STAT_P CHAR(1) POS(279); // Acquire Status
ICF_INV_STAT_P CHAR(1) POS(280); // Invite Status
ICF_Data_Avail_P CHAR(1) POS(281); // Data Available
ICF_SES_STAT_P CHAR(1) POS(291); // Session Status
ICF_SYNC_LVL_P CHAR(1) POS(292); // Synch Level
ICF_CONV_TYPE_P CHAR(1) POS(293); // Converison Type
ICF_RMT_LOC_P CHAR(8) POS(294); // Remote Location
ICF_LCL_LU_P CHAR(8) POS(302); // Local LU Name
ICF_LCL_NETID_P CHAR(8) POS(310); // Local net ID
ICF_RMT_LU_P CHAR(8) POS(318); // Remote LU Name
ICF_RMT_NETID_P CHAR(8) POS(326); // Remote net ID
ICF_APPC_MODE_P CHAR(8) POS(334); // APPC Mode
ICF_LU6_STATE_P CHAR(1) POS(345); // LU6 Conv State
ICF_LU6_COR_P CHAR(8) POS(346); // LU6 Conv Correlator
ICF_AID CHAR(1) POS(369); // AID byte
ICF_LEN INT(10) POS(372); // Actual data len
ICF_MAJOR CHAR(2) POS(401); // Major ret code
ICF_MINOR CHAR(2) POS(403); // Minor ret code
ICF_SENSE CHAR(8) POS(405); // SNA sense rc
ICF_SAFE_IND CHAR(1) POS(413); // Safe indicator
ICF_RQSWRT CHAR(1) POS(415); // Request write
ICF_RMT_FMT CHAR(10) POS(416); // Remote rcd fmt
ICF_MODE CHAR(8) POS(430); // Mode name
// ISDN
ISDN_LEN_P INT(5) POS(385); // Rmt Number Len
ISDN_TYPE_P CHAR(2) POS(387); // Rmt Number Type
ISDN_PLAN_P CHAR(2) POS(387); // Rmt Number Plan
ISDN_NUM_P CHAR(40) POS(391); // Rmt Number
ISDN_SLEN_P INT(5) POS(435); // Rmt sub-Address
ISDN_STYPE_P CHAR(2) POS(437); // Rmt Number Type
ISDN_SNUM_P CHAR(40) POS(439); // Rmt Number
ISDN_CON_P CHAR(1) POS(480); // Connection
ISDN_RLEN_P INT(5) POS(481); // Rmt Address Number Len
ISDN_RNUM_P CHAR(40) POS(492); // Rmt Address Number
ISDN_ELEN_P CHAR(2) POS(519); // Extension Len
ISDN_ETYPE_P CHAR(1) POS(521); // Extension Type
ISDN_ENUM_P CHAR(40) POS(522); // Extension Number
ISDN_XTYPE_P CHAR(1) POS(566); // X.25 Call Type
// Printer
PRT_CUR_LINE INT(5) POS(367); // Current line num
PRT_CUR_PAGE INT(10) POS(369); // Current page cnt
// If the first bit of PRT_FLAGS is on, the spooled file has been
// deleted. Use TESTB X'80' or TESTB '0' to test this bit.
PRT_FLAGS CHAR(1) POS(373); // Print Flags
PRT_MAJOR CHAR(2) POS(401); // Major ret code
PRT_MINOR CHAR(2) POS(403); // Minor ret code
// DISK
FDBK_SIZE INT(10) POS(367); // Current line num
JOIN_BITS INT(10) POS(371); // JFILE bits
LOCK_RCDS INT(5) POS(377); // Nbr locked rcds
POS_BITS CHAR(1) POS(385); // File pos bits
DLT_BITS CHAR(1) POS(384); // Rcd deleted bits
NUM_KEYS INT(5) POS(387); // Num keys (bin)
KEY_LEN INT(5) POS(393); // Key length
MBR_NUM INT(5) POS(395); // Member number
DB_RRN INT(10) POS(397); // Relative-rcd-num
// field takes Information Data Structure past 684 Maximum Length
//KEY CHAR(2000) POS(401); // Key value (max size 2000)
END-DS;

Steven