It works fine on UDT 6 on AIX - I know that UDT passes by reference if that
helps

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Behalf Of George Gallen
Sent: Tuesday, February 17, 2004 1:36 PM
To: 'U2 Users Discussion List'
Subject: RE: Need/Want/Would like to know


I'm on UV 10 and got the same results.

George

>-----Original Message-----
>From: Mike Rajkowski [ mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> ]
>Sent: Tuesday, February 17, 2004 12:17 PM
>To: U2 Users Discussion List
>Subject: Need/Want/Would like to know
>
>
>Someone came to me with the following code sample, and asked
>why this would happen, while I have some thoughts, I would
>like a more definitive answer (note no matter what the answer,
>I believe the solution is don't do that....)
>
>Thanks,
>Mike
>
>On Universe 9.5:
>
>04 ED BP P1 P2
>
>SELECTed record name = "P1".
>6 lines long.
>
>----: P
>0001: *
>0002: DIM X(100)
>0003: MAT X = ""
>0004: X(100) = 1
>0005: CALL P2(X(100), MAT X)
>0006: END
>Bottom at line 6.
>----: EX
>
>SELECTed record name = "P2".
>13 lines long.
>
>----: P
>0001: SUBROUTINE P2(A, MAT X)
>0002: DIM X(100)
>0003: CRT 'A = ':A
>0004: CRT 'X(100) = ':X(100)
>0005: *
>0006: CRT ; CRT "SETTING X(100) = A"
>0007: X(100) = A
>0008: CRT ; CRT "NOW RE-CHECKING THE VALUES"
>0009: *
>0010: CRT 'A = ':A
>0011: CRT 'X(100) = ':X(100)
>0012: RETURN
>0013: END
>Bottom at line 13.
>----: EX
>
>File name        = BP
>Record name =
>>RUN BP P1
>A = 1
>X(100) = 1
>
>SETTING X(100) = A
>
>NOW RE-CHECKING THE VALUES
>A = Program "P2": Line 10, Variable "A" previously undefined.
>Empty string used
>.
>
>X(100) = Program "P2": Line 11, Variable "$R0" previously
>undefined.  Empty stri
>ng used.
>
>--
>u2-users mailing list
>[EMAIL PROTECTED]
> http://www.oliver.com/mailman/listinfo/u2-users
<http://www.oliver.com/mailman/listinfo/u2-users>
>

--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users

-- 
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users

Reply via email to