RPG

7. 現在オープンしている画面サブファイル情報を取得するには?

サブファイルを扱う場合には、サブファイルの情報の取得は必須である。

0001.00      FPGM001FMCF  E                    WORKSTN
0002.00      F                                              KINFDS INFDS
0003.00      IINFDS       DS
0004.00      I*( CURSOR の行と桁の取り込み )
0005.00      I                                    B 370 3710LINE
0006.00      I*  TOPRRN: 今表示している SUBFILE の先頭の RRN
0007.00      I                                    B 378 3790TOPRRN
0008.00      I* BRRN : SUBFILE の RECORD NO ( 2 進数 )
0009.00      I                                    B 376 3770BRRN
0010.00      I* SFLREC: SUBFILE の RECORD 総数
0011.00      I                                    B 380 3810SFLREC