|
Thanks for your reply Luis
Now that makes sense
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
Luis Rodriguez
<luisro58@xxxxxxx
om> To
Sent by: Midrange Systems Technical
midrange-l-bounce Discussion
s@xxxxxxxxxxxx <midrange-l@xxxxxxxxxxxx>
cc
12/11/2009 09:49 Subject
AM Re: question on STRQSH and grep
Please respond to
Midrange Systems
Technical
Discussion
<midrange-l@midra
nge.com>
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:
me
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
I cannot see what is wrong.list
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
To post a message email: MIDRANGE-L@xxxxxxxxxxxxlist
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
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.
--
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
midrange.com
