× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Dennis

Good point - must have been asleep. 15,5, as others pointed out, is the default, so it just works.

So this got me thinking - because I've told this technique of filling out all the numeric positions before - so I tried calling a program with a packed 9,0 - passed 000000001 - it failed, since what it actually passed was x'000000000100000F' into the 9,0, which is only 5 bytes long, hence, data-decimal error. [call vern/testimg01 ('AS400DOC-000000000002412', 1)]

This helps - I now can go back to what I always believed - about the default length, and that we're not tricking it when using QCMDEXC.

Now I did call qcmdexc in SQL at v5r1 and got an error - here's the CALL -

call qcmdexc ('wrksyssts', 9)

This worked, as Birgitta said -

call qcmdexc ('wrksyssts', 0000000009.00000)

So in SQL, there's been some kind of translation or conversion going on, it seems. Not CL, but SQL - interesting. How to try my test with the packed 9,0 -

This failed with something about attributes of parameter 2 being invalid -

call vern/testimg01 ('AS400DOC-000000000002412', 1)

So I tried this

call vern/testimg01 ('AS400DOC-000000000002412', 000000001)

and got the same error - hmm, it's 9,0 and I put 8 zeroes and the 1 in there. So I tried adding a decimal point at the end, as here -

call vern/testimg01 ('AS400DOC-000000000002412', 000000001.)

And that worked!

I don't know how long SQL has done this, and apparently, according to Birgitta, a more recent change has taken place.

Verrrrry interesting. Learn new things all the time! Love it!

Vern

On 11/7/2010 3:47 PM, Dennis Lovelady wrote:
Since CPF 1.0 (System/38), the default format of numeric values passed from
CL has been PKD(15,9). This is WHY QCMDEXC (and QCAEXEC before it) expects
a parameter of those attributes - it’s not the other way around. So "quite
some time" in this case means 32 years or so. No V5R4 or i6.1 change
involved ... unless this is in reference to some SQL Stored Procedure
change; I couldn't tell.

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"The radical of one century is the conservative of the next. The radical
invents the views. When he has worn them out the conservative adopts them."
-- Mark Twain


I keep forgetting the method of using all digits - that's been part of
CL for quite some time, I believe. I just tried it at v5r1 - so it's a
CL thing, not SQL.

The memory leaks often for me!

Vern

On 11/7/2010 2:20 AM, Birgitta Hauser wrote:
Hi Vern,

In fact - and I just verified this - you can call any existing
program,
even without using the CREATE PROCEDURE statement to register it.
That's why I wrote "must or at least should be registered". Because
of
overloading it is more secure to register existing programs.

Concerning QCMDEXC there was an enhancement within release V5R4 or
6.1 so
you can call it as follows.

Call QCMDEXC('WRKSYSSTS', 9);

... and even before this enhancement it also could be called without
hex
notation, but the numeric value must have all 15 digits including the
decimal point.

Call QCMDEXC('WRKSYSTST', 0000000009.00000);

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training
them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] Im Auftrag von Vern Hamberg
Gesendet: Saturday, 06. November 2010 14:31
An: Midrange Systems Technical Discussion
Betreff: Re: AW: DB2 Stored Procedures

Hi Birgitta

I'm glad you generalized the topic - I was not sure whether the
original
post referred only to SQL stored procedures, or the entire range of
the
kinds of SPs.

To respond to the OP, stored procedures are nothing like SQL scripts,
which I take as the source members used by RUNSQLSTM. At least not
functionally. If the stored procedure is an SQL SP, then, yes, there
will be many SQL statements. But there are also external SPs - those
created using HLL, as Birgitta stated.

So you can have a program you've already written that doesn't return
any
values, and you can use it as a stored procedure. In fact - and I
just
verified this - you can call any existing program, even without using
the CREATE PROCEDURE statement to register it. I have a program, TEST
in
library VERN - in STRSQL I simply entered CALL VERN/TEST and,
ba-da-bing, it ran and got an error because it couldn't find a
command
that is in the program.

I have actually called QCMDEXC in an SQL session - you have to
specify
the length using hex notation, but this works -

call qcmdexc ('wrksyssts',x'000000000900000F')

There's probably no good reason to do this, other than curiosity. It
merely demonstrates possibilities - and why you should use packed
fields!!! ;-)

BTW, QCMDEXC is not listed in SYSPROCS.

Vern

On 11/6/2010 4:11 AM, Birgitta Hauser wrote:
Stored Procedures are nothing else than programs written in either
an HLL
(such as RPG, COBOL or even CL) or with pure SQL, that can be called
from
any interface that supports (embedded) SQL. For to use programs (or
Procedures without return value) written in an HLL as stored
procedures,
those programs must or at least should be registered with the SQL
Command
CREATE PROCEDURE.

In this way RPG programs can be easily called from languages such as
JAVA
or
PHP.

Stored Procedures written with pure SQL will be converted into C-
Programs
with embedded SQL. (iSeries Navigator debugger allows you to either
debug
the SQL or C code).
SQL supports everything you can use with embedded SQL plus several
control
statements, such as WHILE, LOOP or REPEAT to loop through the data
or IF
and
CASE for conditions etc.)

Using stored procedures within client server application will reduce
the
traffic between client and server, because in an stored procedure
several
actions/steps are bundled.
That means a single call versus a several actions.

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not
training them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] Im Auftrag von Dan Rasch
Gesendet: Saturday, 06. November 2010 03:53
An: midrange-l@xxxxxxxxxxxx
Betreff: DB2 Stored Procedures



I am researching the used of DB2 Stored Procedures,
and from what I have seen, the look very similar to SQL scripts.

What are the advantages / trade-offs?

How do they compare to internal SQL, or even API's
for retrieving/modifying records?

Thanks,
- Dan

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

Follow-Ups:
Replies:

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

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.