ecki/IBM-i-RPG-Free-CLP-Code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix QRY Command

Browse Source
This commit is contained in:
SJLennon 2023-05-01 11:36:44 -04:00
parent 4e692eb70e
commit 22158fd3d9
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
PRT_CL/PRTCL.zip Normal file
View File

Binary file not shown.

4
Utils/QRY.CMD
View File

@ -2,7 +2,7 @@
/* 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')
QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
(*CURLIB)) PROMPT('Library')
PARM KWD(SELECT) TYPE(*CHAR) LEN(1) DFT(N) +
PROMPT('Select? (Y/N')