Based Attribute

raviputran · New User Joined: 05 Jul 2007 Posts: 8 Location: bangalore

Hi all,

Is it allowed in PL/I?

DECLARE ARRAY_A(10) PIC '(4)X';

DECLARE P POINTER;

DECLARE ARRAY_B(10) PIC '(4)9' BASED(P);

P = ADDR(ARRAY_A);

I used this and found ARRAY_B is not having any values.

Thanks in advance.

ashimer · Posted: Tue Jul 15, 2008 2:37 pm Post subject:

This is allowed in PL/1 ... but here your ARRAY_A does not have any value then how will it get reflected in ARRAY_B ?

Garry Carroll · Posted: Tue Jul 15, 2008 5:24 pm Post subject:

Lest it jump up to bite some day, it's better to be more specific in overlay of arrays:

raviputran · New User Joined: 05 Jul 2007 Posts: 8 Location: bangalore

Hi all,

Thanks for the response. I got that solved.

Problem:

DECLARE ARRAY_A(10) PIC '(4)X';

DECLARE P POINTER;

DECLARE ARRAY_B(10) PIC '(4)9' BASED(P);

P = ADDR(ARRAY_A);

I was passing values to ARRAY_A based on some condition. However it
was not getting reflected in ARRAY_B. I just used another pointer to point
the alphanumeric to char and pointed that char to numeric. Then it went right.

DECLARE ARRAY_A(10) PIC '(4)X';

DECLARE ARRAY_B(10) CHAR(04) BASED(P);

DECLARE ARRAY_C(10) PIC '(4)9' BASED(Q);

DECLARE P POINTER;

P = ADDR(ARRAY_A);

DECLARE Q POINTER;

Q= ADDR(ARRAY_B);

Now the changes I made in ARRAY_A got reflected in ARRAY_C which was
my requirement.