/* COMMAND: VRUNQRY */ /* AUTHOR : Victor Voilevitch */ /* DATE : 15 Nov 1998 */ /* */ /* DESCRIPTION: */ /* Utility command that run query */ /* for the EACH member in file */ /* */ /* PARAMETERS: */ /* FULLFILE - qualified file name */ /* RCDSEL - record select (Y/N) */ /* ================================================================= */ CMD PROMPT('RunQry For Each Member Of File') PARM KWD(FULLFILE) TYPE(QFNAME) MIN(1) + KEYPARM(*YES) PROMPT('File') QFNAME: QUAL TYPE(*NAME) LEN(10) QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) + SPCVAL((*LIBL) (*CURLIB) ('Name')) + PROMPT('Library') PARM KWD(RCDSEL) TYPE(*CHAR) LEN(1) RSTD(*YES) + DFT(N) VALUES(Y N) PROMPT('Select records + (Y/N)?')