>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 thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 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.