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

Jay,

You might be able to use a routine I have (below). The SrcValue is a
pointer to the start of the number, the rest of the input parms are values
returned by the QUSLFLD API, I'm guessing they may be the same or similar
to your syscolumns values.


P ConvertToNumber...
P B
D PI 63 9
D SrcValue * CONST
D SrcType 2 CONST
D SrcDigits 2 0 CONST
D SrcDecimals 2 0 CONST

D* Local fields
D NbrOut S 63P 9

D LBCPYNV_attr_t ds qualified
D type 1A inz(TYPE_INT)
D decpos 3U 0 inz(0)
D digits 3U 0 inz(0)
D 10I 0 inz(0)

D TYPE_INT c const(x'00')
D TYPE_FLOAT c const(x'01')
D TYPE_ZONED c const(x'02')
D TYPE_PACKED c const(x'03')
D TYPE_CHAR c const(x'04')
D TYPE_UINT c const(x'0A')

D rcvNumAtr DS likeDS(LBCPYNV_attr_t)
D srcNumAtr DS likeDS(LBCPYNV_attr_t)

D LBCPYNV PR extproc('_LBCPYNV')
D Output * value
D OutAttr likeds(LBCPYNV_attr_t) const
D Input * value
D InpAttr likeds(LBCPYNV_attr_t) const

/Free

clear srcNumAtr ;
if SrcType = 'P' ;
srcNumAtr.type = TYPE_PACKED ;
else;
srcNumAtr.type = TYPE_ZONED ;
endif;
srcNumAtr.decpos = SrcDecimals ;
srcNumAtr.digits = SrcDigits ;

clear rcvNumAtr ;
rcvNumAtr.type = TYPE_PACKED ;
rcvNumAtr.decpos = 9 ;
rcvNumAtr.digits = 63 ;

LBCPYNV( %addr(NbrOut): rcvNumAtr
: SrcValue: srcNumAtr );

return NbrOut ;

/End-Free
P E


On Wed, Oct 30, 2019 at 10:35 AM Jay Vaughn <jeffersonvaughn@xxxxxxxxx>
wrote:

jon, sure... understand your confusion...

i don't have the likeRec def to overlay with... this trigger submits
another trigger to batch, passing ONLY the before/after image strings
(along with libname and filename)...
so Im literally plowing through syscolumns using columnames and

attributes

to parse out the pieces from the string.

don't ask why... it is what it is. :(

jay

On Wed, Oct 30, 2019 at 11:29 AM Jon Paris <jon.paris@xxxxxxxxxxxxxx>
wrote:

I'm a little confused as to why this is an issue because normally one
would simply map a LikeRec definition of the field in question over the
buffer and take the field from that. Then if you really need it as a
string you would format it like any other number to string with the
appropriate %EditC or %EditW.

Can you clarify the problem a little more?

On Oct 30, 2019, at 3:23 PM, Jay Vaughn <jeffersonvaughn@xxxxxxxxx>

wrote:

so i have string in my sqlrpgle that was produced from a trigger that
contains a negative numeric value in it...
for reference as such... '121200000002632J07182016 '

My negative value is 002632J0, (defined 7,2) which in the table shows
263.21-

Assuming I can "acquire" that string from the before image string,

once I

have it in a host variable, how do I convert it to a proper string

showing

'-263.21'?

tia

jay
--
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

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

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

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