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



"MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 02/28/2020
01:54:34 PM:
found it dave... i'm having trouble with this...

d char_area ds 260
d varchar2_data 256a overlay(char_area:1) varying(2)
d varchar4_data 256a overlay(char_area:1) varying(4)
d zoned_data 31s 0 overlay(char_area:1)
d packed_data 31p 0 overlay(char_area:1)

when field_type = 'P';
packed_data = zero;
%subst(char_area:%size(packed_data)-field_bytlen+1:field_bytlen)
= %subst(trigger_buf:field_pos:field_bytlen);
dsply packed_data; // adjust decimal position if needed

when assigning the string to the char_area....

:%size(packed_data)-field_bytlen+1:field_bytlen)

for my decimal(9,2) subject, it would build char_area starting position
to
be...
9 - 5 = 4 + 1 = 5

so why would we assign char_area starting at position 5?


Because numeric data has to be right-justified in the packed data
area -- which is 16 bytes long.


Sincerely,

Dave Clark

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.