Re: parse a negative number out of a before image string

couldn't figure it out Dave... but say hello to my little friend...
works great and as Jon says "it's all bits and bytes"...

//--------------------------------------------------
// Procedure
//--------------------------------------------------
p getPACKEDStringValue...
p b
d pi like(i_columnString)
d i_columnString 1000 const
d i_numDecPos 2 0 const
d i_numBytes 5 0 const

*-----------------------------------------
* Local Variables
*-----------------------------------------
d l_x s 5i 0 inz
d l_columnString s like(i_columnString) inz
d ds
d l_hex like(i_columnString) inz
d ds_hex 1 dim(1000) overlay(l_hex:1)

exec sql
select hex(trim(:i_columnString))
into :l_hex
from sysibm.sysdummy1;

for l_x = 1 to %elem(ds_hex);
if ds_hex(l_x) = ' ';
leave;
endif;
if ds_hex(l_x) <> 'F';
l_columnString = %trim(l_columnString) +
ds_hex(l_x);
endif;
endfor;

return l_columnString;

p getPACKEDStringValue...
p e


Jay

On Thu, Oct 31, 2019 at 10:37 AM Jay Vaughn <jeffersonvaughn@xxxxxxxxx>
wrote:

and you are one of the best... can't argue with that Dave... let me
review... was just about to write a procedure to pull the value out of hex
with sql. :)
thanks for steering me away from wreckless stupidity...

jay

On Thu, Oct 31, 2019 at 10:29 AM <dlclark@xxxxxxxxxxxxxxxx> wrote:

"MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 10/31/2019
09:52:15 AM:

so example given for zoned is not applicable for varying packed
scale/precision

this one would be tough for even the best to come up with.

Not so. The example of a generic process I gave will work for
any
numeric data type.


Sincerely,

Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300

Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331





*********************************************************************************************
This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or proprietary
information. If you have received this message in error, please
immediately notify the sender and delete and destroy the message and all
copies. All unauthorized direct or indirect use or disclosure of this
message is strictly prohibited. No right to confidentiality or privilege
is waived or lost by any error in transmission.

*********************************************************************************************
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
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: https://amazon.midrange.com