Here is the source: I am searching for "PRTPLPC2". I am also using RDB 7.5.1.4.
When I copy this into notepad then I can find it. Just not in LPEX.
RUNQRYC: +
PGM PARM(&JOBNAM &JOBQ &SCD_DATE &SCD_TIME &PRINT +
&EXIT &CANCEL &QRYDFN)
DCL VAR(&ALWSLT) TYPE(*CHAR) LEN(1)
DCL VAR(&CANCEL) TYPE(*CHAR) LEN(1)
DCL VAR(&COPIES) TYPE(*CHAR) LEN(3)
DCL VAR(&DFTVQ) TYPE(*CHAR) LEN(10)
DCL VAR(&ERROR) TYPE(*CHAR) LEN(70)
DCL VAR(&EXIT) TYPE(*CHAR) LEN(1)
DCL VAR(&FRMTYP) TYPE(*CHAR) LEN(10)
DCL VAR(&HOLD) TYPE(*CHAR) LEN(4)
DCL VAR(&JOBNAM) TYPE(*CHAR) LEN(10)
DCL VAR(&JOBQ) TYPE(*CHAR) LEN(1)
DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
DCL VAR(&MBR) TYPE(*CHAR) LEN(8)
DCL VAR(&PRINT) TYPE(*CHAR) LEN(40)
DCL VAR(&PRTDEV) TYPE(*CHAR) LEN(10)
DCL VAR(®ION) TYPE(*CHAR) LEN(16)
DCL VAR(&REPLY) TYPE(*CHAR) LEN(16)
DCL VAR(&RCDSLT) TYPE(*CHAR) LEN(4)
DCL VAR(&SAVE) TYPE(*CHAR) LEN(4)
DCL VAR(&SCD_TIME) TYPE(*CHAR) LEN(8)
DCL VAR(&SCD_DATE) TYPE(*CHAR) LEN(8)
DCL VAR(&TAXDTANN) TYPE(*CHAR) LEN(10)
DCL VAR(&TYPE1) TYPE(*CHAR) LEN(1)
DCL VAR(&QRYDFN) TYPE(*CHAR) LEN(10)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&MSG) TYPE(*CHAR) LEN(200)
DCL VAR(&ADJ_YR) TYPE(*CHAR) LEN(4)
DCL VAR(&ADJUST) TYPE(*CHAR) LEN(10)
/* /copy qrpglecpy,mngaplvalc */
DCL VAR(&AVTRNCODE) TYPE(*CHAR) LEN(1) VALUE('R')
DCL VAR(&AVLVL1) TYPE(*CHAR) LEN(10) +
VALUE('CLCTAXESC')
DCL VAR(&AVLVL2) TYPE(*CHAR) LEN(10) +
VALUE('VALUES')
DCL VAR(&AVLVL3) TYPE(*CHAR) LEN(10) VALUE('*ALL')
DCL VAR(&AVLVL4) TYPE(*CHAR) LEN(10) +
VALUE('DTASET')
DCL VAR(&AVSEQNBR) TYPE(*DEC) LEN(3 0)
DCL VAR(&AVVALA) TYPE(*CHAR) LEN(30)
DCL VAR(&AVVALN) TYPE(*DEC) LEN(15 5)
DCL VAR(&AVUSERID) TYPE(*CHAR) LEN(10)
DCL VAR(&AVRESULTS) TYPE(*CHAR) LEN(1)
DCL VAR(&AVENDPGM) TYPE(*CHAR) LEN(1) VALUE('N')
DCL VAR(&DTASET) TYPE(*CHAR) LEN(3)
DCLF FILE(RUNQRYCD)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(FAILED))
RTVJOBA TYPE(&TYPE1)
IF COND(&TYPE1 *EQ '1') THEN(DO)
CHGVAR VAR(&JOBNAM) VALUE('RUNQRYC')
/* For any queries that you do not need to give the +
users the ability to select records you can pass in +
an "N" in &CANCEL or set it here */
IF COND((&QRYDFN = 'CMPTAXTIFA') *OR +
(&QRYDFN = 'CMPTAXTIFB') *OR +
(&QRYDFN = 'PRTSCHAPR') *OR +
(&QRYDFN = 'FRFSGT') *OR +
(&QRYDFN = 'PRTMNUSEC') *OR +
(&QRYDFN = 'SGTPMTS') *OR +
(&QRYDFN = 'SGTPMTSCUR') *OR +
(&QRYDFN = 'PRTADJMNTS') *OR +
(&QRYDFN = 'SGTPYFRF')) +
THEN(DO)
CHGVAR VAR(&CANCEL) VALUE('N')
ENDDO
IF COND(&CANCEL = 'N') THEN(DO)
CHGVAR VAR(&ALWSLT) VALUE('N')
CHGVAR VAR(&RCDSLT) VALUE('*NO')
ENDDO
ELSE CMD(DO)
CHGVAR VAR(&ALWSLT) VALUE('Y')
ENDDO
CHGVAR VAR(&CANCEL) VALUE('0')
IF COND(&QRYDFN *EQ '*') THEN(DO)
SNDRCVF
IF COND(&in03 *EQ '1') THEN(GOTO CMDLBL(ENDPGM))
IF COND(&in12 *EQ '1') THEN(GOTO CMDLBL(ENDPGM))
CHGVAR VAR(&QRYDFN) VALUE(&QRYNAM)
CHGVAR VAR(&QRYNAM) VALUE('*')
ENDDO
CHGVAR VAR(&REPLY) VALUE('*NO')
/* Set default for the prompt oper for queries +
that normally require user intervention */
IF COND((&QRYDFN = 'PRTCRVEXC')) +
THEN(DO)
CHGVAR VAR(&REPLY) VALUE('*YES')
ENDDO
IF COND(&ALWSLT = 'Y') THEN(DO)
PMTOPR RTNVAR(&REPLY) LEN(4) PROMPT('A Query is +
about to be run. Do you need to see +
and/or change the record selection +
criteria for this Query. If you are not +
sure reply with *NO and the default +
settings will be used.') LINE1('*NO=Use +
default selection (may be placed on JOBQ +
(recommended))') LINE2('*YES=User +
supplied selection criteria (must run +
interactive)') DFT(&REPLY) VALUES(*YES *NO)
CHGVAR VAR(&RCDSLT) VALUE(%SST(&REPLY 1 4))
IF COND(&RCDSLT = '*YES') THEN(DO)
CHGVAR VAR(&JOBQ) VALUE('N')
ENDDO
ENDDO
/* List all queries that cannot be printed on a band pri +
nter 132 */
IF COND((&QRYDFN = 'PRTTCDTAP') +
| (&QRYDFN = 'PRTSASTSD') +
| (&QRYDFN = 'PRTSASTSS') +
) +
THEN(DO)
SNDUSRMSG MSG('This query needs to be routed to dot +
matrix or laser printer. If you do route +
it to a 132 character band printer you +
will receive an error message that +
truncation will occur.') MSGTYPE(*INFO) +
TOUSR(*REQUESTER)
ENDDO
IF COND(&PRINT = ' ') THEN(DO)
IF COND(&QRYDFN = 'PRTCRVI') THEN(DO) /* +
Requires input from user */
CHGVAR VAR(&JOBQ) VALUE('N')
ENDDO
MTNCTRL: +
CALL PGM(MTNCTRL) PARM(&QRYDFN &JOBQ &SCD_DATE +
&SCD_TIME &PRINT &EXIT &CANCEL)
ENDDO
IF COND(&EXIT *EQ '1') THEN(GOTO CMDLBL(ENDPGM))
IF COND(&CANCEL *EQ '1') THEN(GOTO CMDLBL(ENDPGM))
IF COND(&JOBQ *EQ 'Y') THEN(DO)
SBMJOB CMD(CALL PGM(RUNQRYC) PARM(&JOBNAM &JOBQ +
&SCD_DATE &SCD_TIME &PRINT &EXIT &CANCEL +
&QRYDFN)) JOB(&JOBNAM) JOBPTY(4) +
SCDDATE(&SCD_DATE) SCDTIME(&SCD_TIME)
MONMSG MSGID(CPF0000) EXEC(DO)
CHGVAR VAR(&EXIT) VALUE('1')
GOTO CMDLBL(MTNCTRL)
ENDDO
SNDUSRMSG MSG(&JOBNAM ||' has been submitted to +
the JOBQ') MSGTYPE(*INFO) TOUSR(*REQUESTER)
GOTO CMDLBL(ENDPGM)
ENDDO
ENDDO
ELSE CMD(DO)
CHGVAR VAR(&RCDSLT) VALUE('*NO')
ENDDO
CALL PGM(EXTPRTC) PARM(&PRINT &PRTDEV &FRMTYP +
&COPIES &HOLD &SAVE)
OVRPRTF FILE(QPQUPRFIL) DEV(&PRTDEV) +
FORMTYPE(&FRMTYP) COPIES(&COPIES) +
HOLD(&HOLD) SAVE(&SAVE) USRDTA(&QRYDFN)
CHGSYSLIBL LIB(MCISSYSOVR) OPTION(*ADD)
MONMSG MSGID(CPF2103)
IF COND(&QRYNAM = '*') THEN(DO)
RUNQRY QRY(&QRYLIB/&QRYDFN) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
CALLSUBR SUBR(GETDTASET)
RTVMBRD FILE(TXTSDR) RTNLIB(&TAXDTANN)
IF COND(&QRYDFN = 'CMPPRPTAX') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXRPCL PRFACTUAL) +
(TXRPCL PROPOSED) (TXTRTL) (TXTRTL)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'CMPPRPTAX2') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXRPCL PRFACTUAL) +
(TXRPCL PROPOSED) (TXTRTL) (TXTRTL) +
(TXCNTY)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'CMPTAXLVY') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXLEVY) (TXCNTY) +
(LVYDSC) (TAXDSCL01)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
/* --- Original comment --- */
/* Compare Tax TIF A & B consist of two queries each. */
/* The first one is the same and creates an outfile */
/* (in QTEMP) which is used by the second query */
/* --- New file comment --- */
/* The names of CMPTAXTIFA(B) have been preserved for the */
/* purpose of the program call. Four queries now take the */
/* place of TIF A & TIF B to provide a 'PRP' and 'PRF' */
/* data set query for each A & B. */
IF COND((&QRYDFN = 'CMPTAXTIFA') *OR +
(&QRYDFN = 'CMPTAXTIFB')) +
THEN(DO)
CHGVAR VAR(&ALWSLT) VALUE('N')
CHGVAR VAR(&RCDSLT) VALUE('*NO')
IF COND(&DTASET = 'PRP') THEN(DO)
RUNQRY QRY(CMPTAXTIFP) QRYFILE((ASMRCD) (TAXCAP) +
(TXCNTY) (ASMCTL) (PCLDTL)) RCDSLT(&RCDSLT)
IF COND(&QRYDFN = 'CMPTAXTIFA') THEN(DO)
RUNQRY QRY(CMPTIFPRPA) QRYFILE((PCLDTL) (RATETOT) +
(TXTIFP) (TXCNTY) (TXTIFD) (CMPTIF)) +
RCDSLT(&RCDSLT)
ENDDO
ELSE CMD(DO) /* CMPTAXTIFB */
RUNQRY QRY(CMPTIFPRPB) QRYFILE((PCLDTL) (RATETOT) +
(TXTIFP) (TXCNTY) (TXTIFD) (CMPTIF)) +
RCDSLT(&RCDSLT)
ENDDO
ENDDO
IF COND(&DTASET = 'PRF') THEN(DO)
RUNQRY QRY(CMPTAXTIF) QRYFILE((ASMRCD) (TAXCAP) +
(TXCNTY) (ASMCTL) (PCLDTL)) RCDSLT(&RCDSLT)
IF COND(&QRYDFN = 'CMPTAXTIFA') THEN(DO)
RUNQRY QRY(CMPTIFPRFA) QRYFILE((PCLDTL) (RATETOT) +
(TXTIFP) (TXCNTY) (TXTIFD) (CMPTIF)) +
RCDSLT(&RCDSLT)
ENDDO
ELSE CMD(DO) /* CMPTAXTIFB */
RUNQRY QRY(CMPTIFPRFB) QRYFILE((PCLDTL) (RATETOT) +
(TXTIFP) (TXCNTY) (TXTIFD) (CMPTIF)) +
RCDSLT(&RCDSLT)
ENDDO
ENDDO
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'EXEMPTABDT') THEN(DO)
CHGVAR VAR(&RCDSLT) VALUE('*NO')
RUNQRY QRY(&QRYDFN) QRYFILE((TXAPCL) (TXCSRF) +
(TXAVAL) (TXASMC)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTENTITY') THEN(DO)
CHGVAR VAR(&RCDSLT) VALUE('*NO')
RUNQRY QRY(&QRYDFN) QRYFILE((ENTITYL01)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTSCHAPR') THEN(DO)
CHGVAR VAR(&RCDSLT) VALUE('*NO')
RUNQRY QRY(&QRYDFN) QRYFILE((SCHAPR) (TXCNTY) +
(TXSDNM)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'FORFTAX') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((PMTBHDRJ01)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'FRFSGT') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((PMTBHDRJ01) (TXRPCL) +
(TXCNTY)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTBALNCL1') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE(PMTBALNCL1) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'BALSLCP') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE(TXSLCP) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND((&QRYDFN = 'SGTPMTS') *OR +
(&QRYDFN = 'SGTPMTSCUR')) THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXLVYH) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'SGTPYFRF') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((PMTBHDRJ01) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTADJMNTS') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((PCLDTL) (PCLMSTV01) +
(TXADJM)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTAPRAUT') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE(APRAUTL02) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTMHCI') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXMHCI)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTMHCP') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXAPCL) (TXMHCI)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTMRGH') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXMRGH)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTMNUUSRS') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((USERSL01)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTESCN') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXESCW)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTESCA') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXESCW)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTEPAY') THEN(DO)
OVRPRTF FILE(QPQUPRFIL) OUTQ(&PRTDEV) +
FORMTYPE(&FRMTYP) COPIES(&COPIES) +
HOLD(&HOLD) SAVE(&SAVE) USRDTA(&QRYDFN)
RUNQRY QRY(&QRYDFN) QRYFILE((TXEPAY)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTMNUSEC') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((*LIBL/MNMENU) +
(*LIBL/MNCTRL)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTFDAT') THEN(DO)
OVRPRTF FILE(QPQUPRFIL) OUTQ(&PRTDEV) +
FORMTYPE(&FRMTYP) COPIES(&COPIES) +
HOLD(&HOLD) SAVE(&SAVE) USRDTA(&QRYDFN)
RUNQRY QRY(&QRYDFN) QRYFILE((TXFDAT) (TXFDATL1) +
(TXSTTW) (TXCNTY)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTFDCV') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXCNTY) +
(ASMABSFDL1) (TXSTTW)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTFDDL') THEN(DO)
OVRPRTF FILE(QPQUPRFIL) OUTQ(&PRTDEV) +
FORMTYPE(&FRMTYP) COPIES(&COPIES) +
HOLD(&HOLD) SAVE(&SAVE) USRDTA(&QRYDFN)
RUNQRY QRY(&QRYDFN) QRYFILE((RATEENT) (TXCNTY) +
(ENTITYL01)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTFORFL4') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXFORFL4)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'SLTESCWLBL') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXESCW)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTPILT') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXPILT) (TXSTTW) +
(TXCNTY)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTPLPC1') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXPLPC) (TXAPCL) +
(TXAVAL) (TXTRTL)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTPLPC2') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXPLPC) (PCLDTL) +
(ASMRCDV02) (TXCNTY)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTPLCR') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXPLCR) +
(TXCNTY)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTOTHP') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXOTHP) (TXOWNR)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTPLAT') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXPLAT) (TXTDNM)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND((&QRYDFN = 'PRTSASTSD') | (&QRYDFN = +
'PRTSASTSS')) THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXRSPA) (TXSPAN)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTSPAN') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXSPAN)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTSDR') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXTCTL) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTSDNM') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXSDNM)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND((&QRYDFN = 'PRTTAXBASE') | (&QRYDFN = +
'PRTTAXBASH')) THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TAXBASE) (TAXDSCL01) +
(ENTITYL01) (QTEMP/PRTTAXBASW)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTTAXBASU') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TAXBASU) (TAXDSCL01) +
(QTEMP/PRTTAXBASW)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTTDNM') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXTDNM)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTLNDLAD') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE(LNDLADL01) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTLNDLTD') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE(LNDLTDL01) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTLNDMKT') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((LNDMKTL01) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTLNDNBH') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((LNDNBHL01) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTLNDCST') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((LNDCSTJ01) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTLNDSIZ') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((LNDSIZL01) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTNEWHLDC') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((PCLDTL) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTAPOL') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXLEVYL1) +
(TXCNTY) (LVYDSC)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTASMCTL') THEN(DO)
RUNQRY QRY(PRTASMCTL1) QRYFILE((ASMCTL) (TXCNTY)) +
RCDSLT(&RCDSLT)
RUNQRY QRY(PRTASMCTL2) QRYFILE((ASMCTL) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTASMC2') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((RATEENT) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
/* Two queries are needed because there's too much */
/* data to fit on one report. */
IF COND(&QRYDFN = 'PRTASMFW') THEN(DO)
RUNQRY QRY(PRTASMFW1) QRYFILE((ASMCTL) (PRTASMFW) +
(TXCNTY)) RCDSLT(&RCDSLT)
RUNQRY QRY(PRTASMFW2) QRYFILE((ASMCTL) (PRTASMFW) +
(TXCNTY)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND((&QRYDFN = 'PRTASMTRE') | +
(&QRYDFN = 'PRTASMTPP') | +
(&QRYDFN = 'PRTASMTMH')) THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXCNTY) (ASMITM) +
(ASMDSC) (ASMTIER)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTDFRLNK') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((HOMLNK)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTHSTDD') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((HOMMST) (TXCNTY)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'CHKNONHSTD') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXMPHC) (HOMMSTL03)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTLNDDPT') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((LNDDPTL01) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTLNDADJ') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((LNDADJL01) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTADJT') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXADJT) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTINAP') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXAPCL) (TXINAP)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTIMPTYP') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((IMPTYPL01) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTIMPSBT') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((IMPSBTL01) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTIMPCST') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((IMPCSTL01) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTIMPCSD') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((IMPCSDL01) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTIMPSQFC') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((IMPCST) (IMPSIZ) +
(TXCNTY)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTIMPSIZ') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((IMPSIZL01) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTIMPLIF') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((IMPLIFL01) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTIMPCLS') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE(IMPCLSL01) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTCRVT') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE(TXCRVT) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTTINTQ1') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXRPCL PROPOSED) +
(TXRPCL CONSTANT) (TXRPCL) (TXCNTY)) +
RCDSLT(&RCDSLT)
RUNQRY QRY(PRTTINTQ2) QRYFILE((TXRPCL PROPOSED) +
(TXRPCL CONSTANT) (TXRPCL) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTCONP') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXCONP) (PCLDTL) +
(TXCNTY)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTCONPCL') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXCONP) +
(TXCNTY)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTCRVI') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXCRVI) (TXCNTY)) +
RCDSLT(&RCDSLT)
IF COND(&TYPE1 *EQ '1') THEN(DO)
LOOP: PMTOPR RTNVAR(®ION) LEN(2) PROMPT('If you want +
to print time factors please enter the +
region number and N or W. For example +
1N or 1W.') LINE1(&ERROR) RQD(*NO)
IF COND(®ION *NE ' ') THEN(DO)
CHGVAR VAR(&MBR) VALUE('REGION' || ®ION)
CHKOBJ OBJ(TXCRVI) OBJTYPE(*FILE) MBR(&MBR)
MONMSG MSGID(CPF0000) EXEC(DO)
CHGVAR VAR(&ERROR) VALUE('Invalid code, use nN or +
nW where n is the region number.')
GOTO CMDLBL(LOOP)
ENDDO
CHGVAR VAR(&ERROR) VALUE(' ')
RUNQRY QRY(&QRYDFN) QRYFILE((TXCRVI &MBR) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(LOOP)
ENDDO
ENDDO
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTCRVEXC') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXCRVM)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTBAE') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((ENTITY) +
(DEPTL01) (DEPTL01)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTBCTY') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXCCTY) (HOMMSTL02) +
(TXCNTY) (TXMPHC) (TXOWNR) (TFRDTLJ02)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'CMPTCTL') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXTCTL)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTLAKE') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXLAKE)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTREFPRCL') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXPCLR)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTCRV1999') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((CRVF1999)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTCRV2007') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((CRVF2007)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTCRV2009') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((CRVF2009)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTCRV2010') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((CRVF2010)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTCNPCAMA') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((LNDDTL) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTLVYSPC') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXLEVY) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'CMPTMV') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXAVAL NEWYEAR) +
(TXAVAL)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'SLTPARCEL') THEN(DO)
RUNQRY QRY(&QRYDFN) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTAPLLST') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXTSDR CARDS) +
(TXOWNR)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTLVY') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXLEVY) +
(TXCNTY) (LVYDSC)) RCDSLT(&RCDSLT)
RUNQRY QRY(PRTLVY2) QRYFILE((TXLEVY) +
(TXCNTY) (LVYDSC) (TAXDSC)) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTMLBL') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((PCLMSTV01) (TXCNTY)) +
RCDSLT(&RCDSLT) OUTFILE(&TAXDTANN/TXTSDR +
LABELS)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTTAXPCT') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE((TXTRTL) (TXCNTY)) +
RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTVNCRD') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE(VALNTCCRD) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
IF COND(&QRYDFN = 'PRTVNLTR') THEN(DO)
RUNQRY QRY(&QRYDFN) QRYFILE(VALNTCLTR) RCDSLT(&RCDSLT)
GOTO CMDLBL(ENDPGM)
ENDDO
CHGVAR VAR(&MSG) VALUE('Error. . . The query: ' || +
&qrydfn || ' has not been programmed in RUNQRYC. +
Please notify MCIS.')
SNDUSRMSG MSG(&MSG) MSGTYPE(*INFO) TOUSR(*REQUESTER)
GOTO CMDLBL(ENDPGM)
FAILED: +
CHGVAR VAR(&MSG) VALUE('Error. . . The query: ' || +
&QRYDFN || ' has fatal errors. The files in the +
query definitions must match files in RUNQRYC +
program. Please print and send the query +
definition to MCIS.')
SNDUSRMSG MSG(&MSG) MSGTYPE(*INFO) TOUSR(*REQUESTER)
ENDPGM: +
CHGSYSLIBL LIB(MCISSYSOVR) OPTION(*REMOVE)
MONMSG MSGID(CPF0000)
/*---------------------------------------------*/
SUBR SUBR(GETDTASET)
/*---------------------------------------------*/
CALL PGM(MNGAPLVALC) PARM(&AVTRNCODE &AVLVL1 +
&AVLVL2 &AVLVL3 &AVLVL4 &AVSEQNBR &AVVALA +
&AVVALN &AVUSERID &AVRESULTS &AVENDPGM)
CHGVAR VAR(&DTASET) VALUE(&AVVALA)
/* If BR not found abort! */
IF COND(&AVRESULTS *NE 'S') THEN(DO)
SNDBRKMSG MSG('Needed business rule for printing +
option does not exist for RUNQRYC.') +
TOMSGQ(&JOB)
ENDDO
ENDSUBR
ENDPGM
-----Original Message-----
From: wdsci-l-bounces@xxxxxxxxxxxx [mailto:wdsci-l-bounces@xxxxxxxxxxxx] On Behalf Of Buck
Sent: Wednesday, April 07, 2010 8:52 AM
To: wdsci-l@xxxxxxxxxxxx
Subject: Re: [WDSCI-L] Find string
On 4/6/2010 12:51 PM, Jeff Stojevich wrote:
I have an problem I cannot figure out. When I do a "find" on a CLLE source member in the LPEX editor, it is not finding all the lines the "find" string is on. When I copy the "find" string from LPEX and use it in SEU it finds all the lines. I have verified that there are no leading or trailing blanks in my "find" string.
I don't recall any issues like that in WDSC 7.0.0.8 but perhaps I
haven't been paying attention. Can you post an example CLLE source
member along with the string you're trying to find? Maybe someone else
can re-create the problem and we can make some headway.
--buck
--
This is the Rational Developer for IBM i / Websphere Development Studio Client for System i & iSeries (WDSCI-L) mailing list
To post a message email: WDSCI-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/wdsci-l
or email: WDSCI-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/wdsci-l.
midrange.com
