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

also... when using your srvpgm procedure...

when piece_type = t_packed;
packed_data = *zero;
%subst(char_area:%size(packed_data)-max_byte_len+1:max_byte_len
= %subst(string_buffer:beg_byte_pos:max_byte_len);
return %char(packed_data / (10 ** use_scale));

this return statement produces a data decimal error...
(I honestly not sure the intentions of the return statement calculations)...

values in debug...

PACKED_DATA = 00000000000000000000000 01Ü1000.
max_byte_len = 9
beg_byte_pos = 1

STRING_BUFFER =
....5...10...15...20...25...30...35...40...45...50...55...60
1 ' A 00000'
61 ' '
121 ' '


can you advise on whats going on?

jay





On Sat, Feb 29, 2020 at 4:31 PM Jay Vaughn <jeffersonvaughn@xxxxxxxxx>
wrote:

thanks - but now i've run into a situation where i need to put the clear
text packed value back to the buffer string in it's true byte
length (unclear text form)...
so I would think all i have to do is...

d ds_charArea ds 31 qualified
d zoned 31s 0 overlay(ds_charArea:1)
d packed 31p 0 overlay(ds_charArea:1)

ds_charArea.packed = %dec(l_clearTextValue:31:0);
l_unClearTextValue = %subst(ds_charArea
:1
:l_byteLength);

but ds_charArea only appears to be blank everytime.

any ideas?

jay

On Fri, Feb 28, 2020 at 4:44 PM <dlclark@xxxxxxxxxxxxxxxx> wrote:

"MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 02/28/2020
04:21:59 PM:

dcl-proc GetBufferPiece export;
dcl-pi *n varchar(256);
string_buffer char(65536) options(*varsize);
piece_type char(1) const;
beg_byte_pos packed(5:0);
max_byte_len packed(3:0);
max_scale packed(2:0) options(*omit);
end-pi;

Last thought... The last three parameters can all have the
"const" keyword on them.


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