新規投稿 記事一覧 ホーム
●ご利用方法,ご利用に際しての規約はこちらをお読みください。
こちらからの投稿は、先頭に表示されているコメントへの返信になります。
RE:複数キーがある場合のREADEの使い方 IKD さん [ 6月15日(火) 15時39分 ]

    下記のような例になります。
    つまり 上位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  

お名前
パスワード
e-mailアドレス
タイトル
ホームページ
アドレス