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
Download Patch File Download Diff File Expand all files Collapse all files
PRT_CL/PRTCL.zip
BIN
View File
Binary file not shown.
Utils/QRY.CMD
+2 -2
View File
@@ -2,7 +2,7 @@
/* CPP is QRYC */ /* CPP is QRYC */
PARM KWD(FILE) TYPE(QUAL) PROMPT('File Name') PARM KWD(FILE) TYPE(QUAL) PROMPT('File Name')
QUAL: QUAL TYPE(*NAME) MIN(1) QUAL: QUAL TYPE(*NAME) MIN(1)
QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL + QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
*CURLIB)) PROMPT('Library') (*CURLIB)) PROMPT('Library')
PARM KWD(SELECT) TYPE(*CHAR) LEN(1) DFT(N) + PARM KWD(SELECT) TYPE(*CHAR) LEN(1) DFT(N) +
PROMPT('Select? (Y/N') PROMPT('Select? (Y/N')