Usage: q filename
CL member QC: /* this lets you type Q filename and get a query w/selection up */ PGM PARM(&FILENAME) DCL &FILENAME *CHAR 10 RUNQRY QRY(*NONE) QRYFILE((&FILENAME)) RCDSLT(*YES) MONMSG MSGID(QRY1012) EXEC(SNDPGMMSG MSGID(CPF9898) + MSGF(QCPFMSG) MSGDTA('File ' *CAT + &FILENAME *TCAT ' doesn''t exist') + TOPGMQ(*PRV (*)) MSGTYPE(*ESCAPE)) ENDPGM
================================== MORE INFORMATION ON THIS TOPIC ==================================
The Best Web Links: tips, tutorials and more.
Ask your programming questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.CMD member Q: cmd prompt('quick query of file') PARM KWD(FILE) TYPE(*NAME) LEN(10) MIN(1) + EXPR(*YES) CHOICE('(assumes *LIBL)') + PROMPT('Filename')
This was first published in September 2004