Re: question on STRQSH and grep

Alan,

I believe that QSH has its own QTEMP, separate from the one your job uses.

Try this:

CRTPF QTEMP/TEST RCDLEN(128)
STRQSH
ls /qsys.lib/qtemp.lib

It should return an empty list.

HTH,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries


On Fri, Dec 11, 2009 at 10:00 AM, Alan Shore <AlanShore@xxxxxxxx> wrote:

Hi guys
after my last brainf@#t I am hesitant in asking the following question,
but
here goes
The following CL program works
PGM

STRQSH CMD('DB2 "SELECT TRIM(DENAPIID) || '','' || +
TRIM(CHAR(DENCLNTID)) +
|| '','' || TRIM(DENREFNO) || '','' || TRIM(DENMEMO) +
|| '','' || TRIM(DENPTCODE) || '','' || TRIM(DENPTNAME) +
|| '','' || +
TRIM(DENADD1) || '','' || TRIM(DENADD2) || '','' || +
TRIM(DENCITY) +
|| '','' || TRIM(DENSTATE) || '','' || TRIM(DENPOSTCDE) +
|| '','' || +
TRIM(DENCNTYCDE) || '','' || TRIM(DENCNTYNME) || '','' || +
TRIM(CHAR(DENLOWLVL)) || '','' || TRIM(CHAR(DENMAXRSLT)) +
|| '','' || TRIM(DENLST2CHK) || '','' || TRIM(DENADDBTCH) +
FROM axslib.DENIEDPF" +
| GREP , > /HOME/RADPS_B12108140001.CSV')

RETURN
ENDPGM

but when I change the
FROM AXSLIB.DENIEDPF
to
FROM QTEMP.DENIEDPF

the csv file is empty
The file QTEMP.DENIEDPF contains the same data as AXSLIB.DENIEDPF


Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill

__________________

Never mind guys
I just spotted it
something about wood & trees
The problem was with the file naming convention
The coorect code should read axslib.deniedpf and not axslib/deniedpf

Sorry about that


Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill



Alan Shore
<AlanShore@xxxxxx
om> To
Sent by: midrange-l@xxxxxxxxxxxx
midrange-l-bounce cc
s@xxxxxxxxxxxx
Subject
question on STRQSH and grep
12/10/2009 05:05
PM


Please respond to
Midrange Systems
Technical
Discussion
<midrange-l@midra
nge.com>







Hi guys
I have tried to look for my answer in the archives, to no avail
I have the following CLLE program

PGM

STRQSH CMD('DB2 "SELECT TRIM(DENAPIID) || '','' || +
TRIM(CHAR(DENCLNTID)) +
|| '','' || TRIM(DENREFNO) || '','' || TRIM(DENMEMO) +
|| '','' || TRIM(DENPTCODE) || '','' || TRIM(DENPTNAME) +
|| '','' || +
TRIM(DENADD1) || '','' || TRIM(DENADD2) || '','' || +
TRIM(DENCITY) +
|| '','' || TRIM(DENSTATE) || '','' || TRIM(DENPOSTCDE) +
|| '','' || +
TRIM(DENCNTYCDE) || '','' || TRIM(DENCNTYNME) || '','' || +
TRIM(CHAR(DENLOWLVL)) || '','' || TRIM(CHAR(DENMAXRSLT)) +
|| '','' || TRIM(DENLST2CHK) || '','' || TRIM(DENADDBTCH) +
FROM axslib/DENIEDPF" +
| GREP , > /HOME/RADPS_B12108140001.CSV')

RETURN
ENDPGM

The program compiles and runs with no problems
EXCEPT the ifs file it creates
/HOME/RADPS_B12108140001.CSV
is empty, while data is in the file axslib/DENIEDPF and for the life of me
I cannot see what is wrong.
If someone else can see my problem
as always - it would be MUCH appreciated

Thanks in advance


Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.