9 lines
457 B
Batchfile
9 lines
457 B
Batchfile
CMD PROMPT('Query a file')
|
|
/* CPP is QRYC */
|
|
PARM KWD(FILE) TYPE(QUAL) PROMPT('File Name')
|
|
QUAL: QUAL TYPE(*NAME) MIN(1)
|
|
QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL +
|
|
*CURLIB)) PROMPT('Library')
|
|
PARM KWD(SELECT) TYPE(*CHAR) LEN(1) DFT(N) +
|
|
PROMPT('Select? (Y/N')
|