明細行のある照会画面で、ユーザーに任意のレコードを選択させる場合には
オプションを入力するのではなくカーソルをそのレコードに位置づけて
F4=プロンプトなどの機能キーを押させるような選択方法は非常に適切である。
なぜなら、
さて、それではカーソル位置はどのようにして検出すれば良いか?
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 +C EXSR CURSOR 0011.00 C* 0012.00 C***************************************************** 0013.00 C CURSOR BEGSR 0014.00 C***************************************************** 0015.00 CSR LINE DIV 256 LIN 30 CRSR の行数 0016.00 CSR MVR POS 30 CRSR の桁数 0017.00 CSR ENDSR