|
midrange.com
>I will like to use a validity checker
>program that will perform a customized
>function only and only if the user is
>running interactively, during the Monday
>thru Friday weekdays and between the
>hours of 9:00 am and 5:00 pm. The function
>will change the execution priority,
>defaul wait time, query estimator... etc.
Jorge,
I do not have a VCP, but here is the source as reported by RTVCMDSRC:
/* CRTCMD CMD(*LIBL/RUNQRY) +
*/
/* PGM(QSYS/QQUDA) +
*/
/* SRCFILE(BUCK/QCMDSRC) +
*/
/* SRCMBR(RUNQRYRTV) +
*/
/* THDSAFE(*NO) +
*/
/* MLTTHDACN(*SYSVAL) +
*/
/* TEXT('Run Query') +
*/
/* VLDCKR(*NONE) +
*/
/* MODE( +
*/
/* *ALL) +
*/
/* ALLOW( +
*/
/* *ALL) +
*/
/* ALWLMTUSR(*NO) +
*/
/* MAXPOS(3) +
*/
/* PMTFILE(QDEVELOP/QCPFPMT) +
*/
/* MSGF(*LIBL/QQRYMSG) +
*/
/* HLPSHELF(*LIST) +
*/
/* HLPPNLGRP(*LIBL/QHQUCMD) +
*/
/* HLPID(RUNQRY) +
*/
/* HLPSCHIDX(*NONE) +
*/
/* CURLIB(*NOCHG) +
*/
/* PRDLIB(*NOCHG) +
*/
/* PMTOVRPGM(*NONE) +
*/
/* AUT(*USE) +
*/
/* REPLACE(*YES) +
*/
/* ENBGUI(*YES)
*/
/* Internal info
*/
/* PGM call state: *SYSTEM
*/
/* CCSID: 37
*/
CMD PROMPT('Run Query')
PARM KWD(CMDNAME) +
TYPE(*CHAR) +
LEN(10) +
CONSTANT('RUNQRY ')
PARM KWD(QRY) +
TYPE(Q05F6) +
SNGVAL( +
(*NONE )) +
PROMPT('Query' 1)
PARM KWD(QRYFILE) +
TYPE(E0514) +
MAX(32) +
FILE(*UNSPFD) +
CHOICE(*NONE) +
PROMPT('Query file' 2)
PARM KWD(OUTTYPE) +
TYPE(*INT2) +
RSTD(*YES) +
DFT(*RUNOPT) +
SPCVAL( +
(*RUNOPT 0) +
(*DISPLAY 1) +
(*PRINTER 2) +
(*OUTFILE 3)) +
EXPR(*YES) +
PROMPT('Report output type' 3)
PARM KWD(OUTFORM) +
TYPE(*INT2) +
RSTD(*YES) +
DFT(*RUNOPT) +
SPCVAL( +
(*RUNOPT 0) +
(*DETAIL 1) +
(*SUMMARY 2)) +
EXPR(*YES) +
PROMPT('Output form' 4)
PARM KWD(RCDSLT) +
TYPE(*INT2) +
RSTD(*YES) +
DFT(*NO) +
SPCVAL( +
(*NO 1) +
(*YES 2)) +
EXPR(*YES) +
PROMPT('Record selection' 5)
PARM KWD(PRTDFN) +
TYPE(*CHAR) +
LEN(1) +
RSTD(*YES) +
DFT(*RUNOPT) +
SPCVAL( +
('*RUNOPT' ' ') +
(*NO N) +
(*YES Y)) +
EXPR(*YES) +
PMTCTL(P079E) +
PROMPT('Print query definition' 6)
PARM KWD(OUTFILE) +
TYPE(E0466) +
FILE(*OUT) +
CHOICE(*NONE) +
PMTCTL(P07B9) +
PROMPT('Output file' 12)
PARM KWD(AUT) +
TYPE(*NAME) +
LEN(10) +
DFT(*RUNOPT) +
SPCVAL( +
(*RUNOPT ) +
(*LIBCRTAUT ) +
(*USE ) +
(*CHANGE ) +
(*ALL ) +
(*EXCLUDE )) +
EXPR(*YES) +
PMTCTL(P07B9) +
PROMPT('Authority' 13)
PARM KWD(PRTDEV) +
TYPE(*NAME) +
LEN(10) +
DFT(*RUNOPT) +
SPCVAL( +
('*RUNOPT' ' ') +
(*PRINT )) +
EXPR(*YES) +
PMTCTL(P07AD) +
PROMPT('Print device' 7)
PARM KWD(FORMSIZE) +
TYPE(E0572) +
CHOICE(*NONE) +
PMTCTL(P07AD) +
PROMPT('Form size' 8)
PARM KWD(FORMTYPE) +
TYPE(*CHAR) +
LEN(10) +
DFT(*RUNOPT) +
SPCVAL( +
('*RUNOPT' ' ') +
(*STD )) +
EXPR(*YES) +
PMTCTL(P07AD) +
PROMPT('Form type' 9)
PARM KWD(COPIES) +
TYPE(*INT2) +
DFT(*RUNOPT) +
RANGE( +
1 +
255) +
SPCVAL( +
(*RUNOPT 0)) +
EXPR(*YES) +
PMTCTL(P07AD) +
PROMPT('Copies' 10)
PARM KWD(LINESPACE) +
TYPE(*INT2) +
RSTD(*YES) +
DFT(*RUNOPT) +
SPCVAL( +
(*RUNOPT 0) +
(1 1) +
(2 2) +
(3 3)) +
EXPR(*YES) +
PMTCTL(P07AD) +
PROMPT('Line spacing' 11)
E0466: ELEM TYPE(Q06C9) +
FILE(*OUT) +
CHOICE(*NONE) +
PROMPT('File')
ELEM TYPE(*NAME) +
LEN(10) +
DFT(*FIRST) +
SPCVAL( +
('*RUNOPT' ' ') +
(*FIRST ) +
(*LAST )) +
EXPR(*YES) +
PROMPT('Member')
ELEM TYPE(*INT2) +
RSTD(*YES) +
DFT(*RUNOPT) +
SPCVAL( +
(*RUNOPT 0) +
(*NEWFILE 1) +
(*RPLFILE 2) +
(*NEWMBR 3) +
(*RPLMBR 4) +
(*ADDMBR 5)) +
EXPR(*YES) +
PROMPT('Option')
E0514: ELEM TYPE(Q0657) +
MIN(1) +
CHOICE(*NONE) +
PROMPT('File')
ELEM TYPE(*NAME) +
LEN(10) +
DFT(*FIRST) +
SPCVAL( +
('*RUNOPT' ' ') +
(*FIRST ) +
(*LAST )) +
EXPR(*YES) +
PROMPT('Member')
E0572: ELEM TYPE(*INT2) +
DFT(*RUNOPT) +
RANGE( +
1 +
255) +
SPCVAL( +
(*RUNOPT 0)) +
EXPR(*YES) +
PROMPT('Form length')
ELEM TYPE(*INT2) +
DFT(*RUNOPT) +
RANGE( +
1 +
378) +
SPCVAL( +
(*RUNOPT 0)) +
EXPR(*YES) +
PROMPT('Form width')
Q05F6: QUAL TYPE(*NAME) +
LEN(10) +
EXPR(*YES)
QUAL TYPE(*NAME) +
LEN(10) +
DFT(*LIBL) +
SPCVAL( +
(*LIBL ) +
(*CURLIB '*CURLIB ')) +
EXPR(*YES) +
PROMPT('Library')
Q0657: QUAL TYPE(*NAME) +
LEN(10) +
SPCVAL( +
(*SAME )) +
MIN(1) +
EXPR(*YES)
QUAL TYPE(*NAME) +
LEN(10) +
DFT(*LIBL) +
SPCVAL( +
('*RUNOPT' ' ') +
(*LIBL ) +
(*CURLIB '*CURLIB ')) +
EXPR(*YES) +
PROMPT('Library')
Q06C9: QUAL TYPE(*NAME) +
LEN(10) +
DFT(*RUNOPT) +
SPCVAL( +
(*RUNOPT )) +
EXPR(*YES)
QUAL TYPE(*NAME) +
LEN(10) +
DFT(*RUNOPT) +
SPCVAL( +
('*RUNOPT' ' ') +
(*CURLIB '*CURLIB ')) +
EXPR(*YES) +
PROMPT('Library')
P079E: PMTCTL CTL(OUTTYPE) +
COND( +
(*EQ 2) +
(*EQ 3)) +
NBRTRUE(*GT 0)
P07AD: PMTCTL CTL(OUTTYPE) +
COND( +
(*EQ 2))
P07B9: PMTCTL CTL(OUTTYPE) +
COND( +
(*EQ 3))
DEP CTL(&QRY *EQ ' ') +
PARM( +
(&QRYFILE *GT ' ') +
(&QRYFILE *NE *SAME)) +
MSGID(QRY1013)
DEP CTL(&QRY *EQ *NONE) +
PARM( +
(&QRYFILE *GT ' ') +
(&QRYFILE *NE *SAME)) +
MSGID(QRY1013)
DEP CTL(&PRTDFN *EQ 'Y') +
PARM( +
(&OUTTYPE *NE 1)) +
MSGID(QRY2278)
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
