入力された数字フィールドで動的に 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