DFU Query SQL

30. OPNQRYF で数字のパラメータを使用するには?

入力された数字フィールドで動的に OPNQRYF パラメータに組み込みたい場合がある。
このようなときは CHGVARコマンドを使って文字フィールドに変換してから
OPNQRYF に組み込む。


      0001.00              PGM        PARM(&YYMMDD)                                
      0002.00 /*---------------------------------------------------------*/        
      0003.00 /*   OPNQRYF     :                                         */        
      0004.00 /*---------------------------------------------------------*/        
      0005.00              DCL        VAR(&YYMMDD) TYPE(*DEC) LEN(6 0)             
      0006.00              DCL        VAR(&YYMMDDC) TYPE(*CHAR) LEN(6)             
      0007.00                                                                      
      0008.00              CHGVAR     VAR(&YYMMDDC) VALUE(&YYMMDD)                 
      0009.00              OPNQRYF    FILE((MYLIB/MYFILE)) QRYSLT('(DATE *EQ ' +   
      0010.00                           || &YYMMDDC ||')')                         
      0011.00              ENDPGM