下記のような例になります。つまり 上位2つのキー・フィールドを組み合わせたキー・リスト EQLKEY によってREADE するとお望みの実行となります。0001.00 C*----------------------------------------------------+ 0002.00 C SETKEY KLIST 0003.00 C KFLD KEY1 0004.00 C KFLD KEY2 0005.00 C KFLD KEY3 0006.00 C*----------------------------------------------------+ 0007.00 C MOVE *LOVAL KEY3 0008.00 C SETKEY SETLLFILE 0009.00 C*----------------------------------------------------+ 0010.00 C EQLKEY KLIST 0011.00 C KFLD KEY1 0012.00 C KFLD KEY2 0013.00 C*----------------------------------------------------+ 0014.00 C DO *HIVAL 0015.00 C SETOF 50 0016.00 C EQLKEY READEFILE 50 0017.00 C 50 LEAVE 0018.00 C END