Re: question on STRQSH and grep

[Luis Rodriguez <luisro58@xxxxxxxxx>]

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.