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



Thanks for your reply Jon
What you suggested, we do in fact use in a number of different RPG programs

However, what I am looking for was a quick reply, with an answer we could use in an SQL query today - without creating a new procedure in a service program that would take time in testing and promoting to production (couple of weeks to accomplish this)

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill


-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jon Paris
Sent: Thursday, October 25, 2018 11:36 AM
To: Midrange-L Midrange-l <midrange-l@xxxxxxxxxxxx>
Subject: [EXTERNAL] Re: Creating an SQL function using C routines

Basically a C function/procedure call is no different than calling any other ILE language.

But given your example I'm not clear why you need to use C routines at all. From your example a simple re-mapping of char to zoned would give you the right result.

In RPG terms.

Dcl-ds *n;
charVal char(5);
numVal zoned(5) overlay charVal;
end-ds;

charVal = charField;

// At this point numVal (positive or negative) is usable.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Oct 25, 2018, at 10:23 AM, Alan Shore <ashore@xxxxxxxx> wrote:

Hi everyone
Before I forget, we are on V7r3

I know how to create an SQL function using procedures in service
programs and have done so many times My question is, Is there a way to
create an SQL function using C routines Without going into the "why
the %$^^ did you do it that way' explanation, we have a number of
fields that are numeric, but stored in alpha fields, where we have to
use the C routine QXXZTOI to convert it from alpha to numeric If the
numeric value is positive - then there is no problem in seeing what
the numeric value in the alpha field is However, if the numeric value
is negative - then a process I know as over punching (back from when
cards were used) is in effect For example The value '0001}" is really
-10 The value '0002J' is really -21

Now trying to use SQL against fields such as this becomes a no no
Hence my request

I have tried googling for the answer to this, but so far, nothing

As always, any and all answers welcome

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [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: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at
https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
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: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD


As an Amazon Associate we earn from qualifying purchases.

This thread ...

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.