ibm-midrange - 是否可以通过RPGILE中的物理文件获取指针读取的位置？

Question

RPGLE中是否可以通过Physical File读取指针的位置？

这样我就可以存储该位置并稍后返回？

Answer 1

您正在寻找相对记录号(RRN？)

文件信息数据结构 (INFDS) 的位置 397。

示例来自 manual

DCL-F MYFILE DISK(*EXT) INFDS(DBFBK);

DCL-DS DBFBK;
  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
  KEY CHAR(2000) POS(401); // Key value (max size 2000)
END-DS;