Passing by Value

View: New views
20 Messages — Rating Filter:   Alert me  
< Prev | 1 - 2 - 3 - 4 | Next >

Passing by Value

by Kebbon Irwin :: Rate this Message:

| View Threaded | Show Only this Message


Unidata 7.1
I think this has come up before (side question: how do you search the archives?)...  I think it is possible to pass a parameter by value instead of by reference.  This, of course, means that any changes to the parameter in the called subroutine are localized and its original value in the calling routine is unchanged there.  Does anyone do this?  If so, how?Cheers,Kebbon    
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by Dave Davis-3 :: Rate this Message:

| View Threaded | Show Only this Message

Use parentheses when you call:

CALL MY.SUBR((firstval), (secondval), etc)

-----Original Message-----
From: u2-users-bounces@... [mailto:u2-users-bounces@...] On Behalf Of Kebbon Irwin
Sent: Thursday, January 26, 2012 9:40 AM
To: u2-users@...
Subject: [U2] Passing by Value


Unidata 7.1
I think this has come up before (side question: how do you search the archives?)...  I think it is possible to pass a parameter by value instead of by reference.  This, of course, means that any changes to the parameter in the called subroutine are localized and its original value in the calling routine is unchanged there.  Does anyone do this?  If so, how?Cheers,Kebbon
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users
________________________________


Dave Davis
Team Lead, R&D

P: 614-875-4910 x108
F: 614-875-4088
E: DDavis@...
        [http://www.harriscomputer.com/images/signatures/HarrisSchools.gif]

[http://www.harriscomputer.com/images/signatures/DivisionofHarris.gif]<http://www.harriscomputer.com/>
        6110 Enterprise Parkway
Grove City, OH
43123
www.harris-schoolsolutions.com<http://www.harris-schoolsolutions.com>

This message is intended exclusively for the individual or entity to which it is addressed. This communication may contain information that is proprietary, privileged or confidential or otherwise legally exempt from disclosure. If you are not the named addressee, you are not authorized to read, print, retain, copy or disseminate this message or any part of it. If you have received this message in error, please notify the sender immediately by e-mail and delete all copies of the message.

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by Rex Gozar-2 :: Rate this Message:

| View Threaded | Show Only this Message

Put the variable in parentheses to pass by value, e.g.

CALL MYSUB((VAR1))

rex

On Thu, Jan 26, 2012 at 9:39 AM, Kebbon Irwin <kebbon.irwin@...> wrote:
>
> Unidata 7.1
> I think this has come up before (side question: how do you search the archives?)...  I think it is possible to pass a parameter by value instead of by reference.  This, of course, means that any changes to the parameter in the called subroutine are localized and its original value in the calling routine is unchanged there.  Does anyone do this?  If so, how?Cheers,Kebbon
> _______________________________________________
> U2-Users mailing list
> U2-Users@...
> http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by Martin Phillips :: Rate this Message:

| View Threaded | Show Only this Message

Hi,

It is possible from the calling side, simply by enclosing the argument
variable in parentheses, effectively making it an expression.

It is not possible from the subroutine except by copying the argument to a
local variable.


Martin Phillips
Ladybridge Systems Ltd
17b Coldstream Lane, Hardingstone, Northampton NN4 6DB, England
+44 (0)1604-709200

-----Original Message-----
From: Kebbon Irwin
Sent: Thursday, January 26, 2012 2:39 PM
To: u2-users@...
Subject: [U2] Passing by Value


Unidata 7.1
I think this has come up before (side question: how do you search the
archives?)...  I think it is possible to pass a parameter by value instead
of by reference.  This, of course, means that any changes to the parameter
in the called subroutine are localized and its original value in the calling
routine is unchanged there.  Does anyone do this?  If so, how?Cheers,Kebbon
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users 

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by Tony Gravagno-3 :: Rate this Message:

| View Threaded | Show Only this Message

CALL SUBNAME( IVAR+0 , AVAR:"" )

> From: Kebbon Irwin
> I think it is possible to pass a
> parameter by value instead of by reference.

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by WJhonson :: Rate this Message:

| View Threaded | Show Only this Message

Very sly.



-----Original Message-----
From: Tony Gravagno <3xk547o02@...>
To: u2-users <u2-users@...>
Sent: Thu, Jan 26, 2012 7:17 am
Subject: Re: [U2] Passing by Value


CALL SUBNAME( IVAR+0 , AVAR:"" )
> From: Kebbon Irwin
 I think it is possible to pass a
 parameter by value instead of by reference.
_______________________________________________
2-Users mailing list
2-Users@...
ttp://listserver.u2ug.org/mailman/listinfo/u2-users

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by John Hester :: Rate this Message:

| View Threaded | Show Only this Message

Well, that's a neat trick I've never known about.  Once again, this list
proves it's an invaluable resource.

I've always done it on the subroutine side like so:

CALL NON.MODIFYING.SUB (THIS.VAR)

SUBROUTINE NON.MODIFYING.SUB (GLOBAL.THIS.VAR)
THIS.VAR = GLOBAL.THIS.VAR
THIS.VAR = THAT.VAR
RETURN

-John

-----Original Message-----
From: u2-users-bounces@...
[mailto:u2-users-bounces@...] On Behalf Of Martin
Phillips
Sent: Thursday, January 26, 2012 6:47 AM
To: U2 Users List
Subject: Re: [U2] Passing by Value

Hi,

It is possible from the calling side, simply by enclosing the argument
variable in parentheses, effectively making it an expression.

It is not possible from the subroutine except by copying the argument to
a local variable.


Martin Phillips
Ladybridge Systems Ltd
17b Coldstream Lane, Hardingstone, Northampton NN4 6DB, England
+44 (0)1604-709200

-----Original Message-----
From: Kebbon Irwin
Sent: Thursday, January 26, 2012 2:39 PM
To: u2-users@...
Subject: [U2] Passing by Value


Unidata 7.1
I think this has come up before (side question: how do you search the
archives?)...  I think it is possible to pass a parameter by value
instead
of by reference.  This, of course, means that any changes to the
parameter
in the called subroutine are localized and its original value in the
calling
routine is unchanged there.  Does anyone do this?  If so,
how?Cheers,Kebbon
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users 

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by John Hester :: Rate this Message:

| View Threaded | Show Only this Message

Hmm... Not sure why Outlook put the subroutine code all on one line.
I'll try again:

CALL NON.MODIFYING.SUB (THIS.VAR)

SUBROUTINE NON.MODIFYING.SUB (GLOBAL.THIS.VAR)
THIS.VAR = GLOBAL.THIS.VAR
THIS.VAR = THAT.VAR
RETURN

-----Original Message-----
From: u2-users-bounces@...
[mailto:u2-users-bounces@...] On Behalf Of John Hester
Sent: Thursday, January 26, 2012 9:56 AM
To: U2 Users List
Subject: Re: [U2] Passing by Value

Well, that's a neat trick I've never known about.  Once again, this list
proves it's an invaluable resource.

I've always done it on the subroutine side like so:

CALL NON.MODIFYING.SUB (THIS.VAR)

SUBROUTINE NON.MODIFYING.SUB (GLOBAL.THIS.VAR) THIS.VAR =
GLOBAL.THIS.VAR THIS.VAR = THAT.VAR RETURN

-John
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by Ed Clark-3 :: Rate this Message:

| View Threaded | Show Only this Message

Essentially, adding the () or +0 or :"" creates an expression. CALL then passes the result of the expression instead of the address of the variable. You get the same result by passing a dynamic array reference like IVAR<1>, though not a dimensioned array reference like A(5), because each array element is a variable with an address. (I don't know for a fact that all pick systems treat IVAR<I> ask an expression--there might be someone who handled it as a true array--but u2 does).

On Jan 26, 2012, at 12:30 PM, Wjhonson wrote:

> Very sly.
>
>
>
> -----Original Message-----
> From: Tony Gravagno <3xk547o02@...>
> To: u2-users <u2-users@...>
> Sent: Thu, Jan 26, 2012 7:17 am
> Subject: Re: [U2] Passing by Value
>
>
> CALL SUBNAME( IVAR+0 , AVAR:"" )
>> From: Kebbon Irwin
> I think it is possible to pass a
> parameter by value instead of by reference.
> _______________________________________________
> 2-Users mailing list
> 2-Users@...
> ttp://listserver.u2ug.org/mailman/listinfo/u2-users
>
> _______________________________________________
> U2-Users mailing list
> U2-Users@...
> http://listserver.u2ug.org/mailman/listinfo/u2-users

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by WJhonson :: Rate this Message:

| View Threaded | Show Only this Message


On a related note, any clever ideas to localize a variable to a local subroutine?

For I = 1 to 10
   GOSUB PROCESS
Next I
Stop

3000 Lines of code later....

PROCESS:
FOR I = 1 TO 20
PRINT I
NEXT I
RETURN
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by Dave Davis-3 :: Rate this Message:

| View Threaded | Show Only this Message

By way of naming convention:

FOR PROCESS_I = 1 TO 20

-----Original Message-----
From: u2-users-bounces@... [mailto:u2-users-bounces@...] On Behalf Of Wjhonson
Sent: Thursday, January 26, 2012 1:09 PM
To: u2-users@...
Subject: Re: [U2] Passing by Value


On a related note, any clever ideas to localize a variable to a local subroutine?

For I = 1 to 10
   GOSUB PROCESS
Next I
Stop

3000 Lines of code later....

PROCESS:
FOR I = 1 TO 20
PRINT I
NEXT I
RETURN
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users
________________________________


Dave Davis
Team Lead, R&D

P: 614-875-4910 x108
F: 614-875-4088
E: DDavis@...
        [http://www.harriscomputer.com/images/signatures/HarrisSchools.gif]

[http://www.harriscomputer.com/images/signatures/DivisionofHarris.gif]<http://www.harriscomputer.com/>
        6110 Enterprise Parkway
Grove City, OH
43123
www.harris-schoolsolutions.com<http://www.harris-schoolsolutions.com>

This message is intended exclusively for the individual or entity to which it is addressed. This communication may contain information that is proprietary, privileged or confidential or otherwise legally exempt from disclosure. If you are not the named addressee, you are not authorized to read, print, retain, copy or disseminate this message or any part of it. If you have received this message in error, please notify the sender immediately by e-mail and delete all copies of the message.

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by WJhonson :: Rate this Message:

| View Threaded | Show Only this Message


And if your internal subroutine is called
RECONCILE.CUSTOMERS.BUDGET.BALANCE

??








-----Original Message-----
From: Dave Davis <DDavis@...>
To: U2 Users List <u2-users@...>
Sent: Thu, Jan 26, 2012 10:17 am
Subject: Re: [U2] Passing by Value


By way of naming convention:
FOR PROCESS_I = 1 TO 20
-----Original Message-----
rom: u2-users-bounces@... [mailto:u2-users-bounces@...]
n Behalf Of Wjhonson
ent: Thursday, January 26, 2012 1:09 PM
o: u2-users@...
ubject: Re: [U2] Passing by Value

n a related note, any clever ideas to localize a variable to a local
ubroutine?
For I = 1 to 10
  GOSUB PROCESS
ext I
top
3000 Lines of code later....
PROCESS:
OR I = 1 TO 20
RINT I
EXT I
ETURN
______________________________________________
2-Users mailing list
2-Users@...
ttp://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________

ave Davis
eam Lead, R&D
P: 614-875-4910 x108
: 614-875-4088
: DDavis@...
       [http://www.harriscomputer.com/images/signatures/HarrisSchools.gif]
[http://www.harriscomputer.com/images/signatures/DivisionofHarris.gif]<http://www.harriscomputer.com/>
       6110 Enterprise Parkway
rove City, OH
3123
ww.harris-schoolsolutions.com<http://www.harris-schoolsolutions.com>
This message is intended exclusively for the individual or entity to which it is
ddressed. This communication may contain information that is proprietary,
rivileged or confidential or otherwise legally exempt from disclosure. If you
re not the named addressee, you are not authorized to read, print, retain, copy
r disseminate this message or any part of it. If you have received this message
n error, please notify the sender immediately by e-mail and delete all copies
f the message.
_______________________________________________
2-Users mailing list
2-Users@...
ttp://listserver.u2ug.org/mailman/listinfo/u2-users

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by Dave Davis-3 :: Rate this Message:

| View Threaded | Show Only this Message

Perhaps you should consider making that one an external subroutine - it sounds like it could be used in more than one place.   External subroutines would give you the scope control you want.

-----Original Message-----
From: u2-users-bounces@... [mailto:u2-users-bounces@...] On Behalf Of Wjhonson
Sent: Thursday, January 26, 2012 1:26 PM
To: u2-users@...
Subject: Re: [U2] Passing by Value


And if your internal subroutine is called
RECONCILE.CUSTOMERS.BUDGET.BALANCE

??








-----Original Message-----
From: Dave Davis <DDavis@...>
To: U2 Users List <u2-users@...>
Sent: Thu, Jan 26, 2012 10:17 am
Subject: Re: [U2] Passing by Value


By way of naming convention:
FOR PROCESS_I = 1 TO 20
-----Original Message-----
rom: u2-users-bounces@... [mailto:u2-users-bounces@...]
n Behalf Of Wjhonson
ent: Thursday, January 26, 2012 1:09 PM
o: u2-users@...
ubject: Re: [U2] Passing by Value

n a related note, any clever ideas to localize a variable to a local
ubroutine?
For I = 1 to 10
  GOSUB PROCESS
ext I
top
3000 Lines of code later....
PROCESS:
OR I = 1 TO 20
RINT I
EXT I
ETURN
______________________________________________
2-Users mailing list
2-Users@...
ttp://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________

ave Davis
eam Lead, R&D
P: 614-875-4910 x108
: 614-875-4088
: DDavis@...
       [http://www.harriscomputer.com/images/signatures/HarrisSchools.gif]
[http://www.harriscomputer.com/images/signatures/DivisionofHarris.gif]<http://www.harriscomputer.com/>
       6110 Enterprise Parkway
rove City, OH
3123
ww.harris-schoolsolutions.com<http://www.harris-schoolsolutions.com>
This message is intended exclusively for the individual or entity to which it is
ddressed. This communication may contain information that is proprietary,
rivileged or confidential or otherwise legally exempt from disclosure. If you
re not the named addressee, you are not authorized to read, print, retain, copy
r disseminate this message or any part of it. If you have received this message
n error, please notify the sender immediately by e-mail and delete all copies
f the message.
_______________________________________________
2-Users mailing list
2-Users@...
ttp://listserver.u2ug.org/mailman/listinfo/u2-users

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users
________________________________


Dave Davis
Team Lead, R&D

P: 614-875-4910 x108
F: 614-875-4088
E: DDavis@...
        [http://www.harriscomputer.com/images/signatures/HarrisSchools.gif]

[http://www.harriscomputer.com/images/signatures/DivisionofHarris.gif]<http://www.harriscomputer.com/>
        6110 Enterprise Parkway
Grove City, OH
43123
www.harris-schoolsolutions.com<http://www.harris-schoolsolutions.com>

This message is intended exclusively for the individual or entity to which it is addressed. This communication may contain information that is proprietary, privileged or confidential or otherwise legally exempt from disclosure. If you are not the named addressee, you are not authorized to read, print, retain, copy or disseminate this message or any part of it. If you have received this message in error, please notify the sender immediately by e-mail and delete all copies of the message.

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by David A. Green :: Rate this Message:

| View Threaded | Show Only this Message

I always try to use meaningful variable names.

CUSTOMER.CNT = DCOUNT(CUSTOMERS, @VM)
FOR CUSTOMER.PTR = 1 TO CUSTOMER.CNT
  CUSTOMER = CUSTOMER<1, CUSTOMER.PTR>
  .
  .
  .
NEXT CUSTOMER.PTR

David A. Green
(480) 813-1725
DAG Consulting

-----Original Message-----
From: u2-users-bounces@...
[mailto:u2-users-bounces@...] On Behalf Of Wjhonson
Sent: Thursday, January 26, 2012 11:09 AM
To: u2-users@...
Subject: Re: [U2] Passing by Value


On a related note, any clever ideas to localize a variable to a local
subroutine?

For I = 1 to 10
   GOSUB PROCESS
Next I
Stop

3000 Lines of code later....

PROCESS:
FOR I = 1 TO 20
PRINT I
NEXT I
RETURN
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by Israel, John R. :: Rate this Message:

| View Threaded | Show Only this Message

To avoid this very situation, I give my loop variables very generic name (like XX1) and then verify that XX1 is either not used or at least will not get caught in a conflicting condition.  Using XX1 also suggests that it is not a meaningful name ("CUST.NAME" suggests it is the customer name) and makes it easy to find.  Using a looping variable of "X" is not great because if you search for it, you will find it in "NEXT", "XREF", etc.  XX1, XX2, XX3, etc. are unlikely to be names of anything else.  Of course, if you try hard enough, you can always break this, but it has served me well for many years.

John








John Israel
Senior ERP Developer

Dayton Superior Corporation
1125 Byers Rd  Miamisburg, OH 45342
Office: 937-866-0711 x44380
Fax: 937-865-9182

JohnIsrael@...

This message w/attachments (message) is intended solely for the use of the intended recipient(s) and may contain information that is privileged, confidential or proprietary. If you are not an intended recipient, please notify the sender, and then please delete and destroy all copies and attachments, and be advised that any review or dissemination of, or the taking of any action in reliance on, the information contained in or attached to this message is prohibited.




-----Original Message-----
From: u2-users-bounces@... [mailto:u2-users-bounces@...] On Behalf Of Dave Davis
Sent: Thursday, January 26, 2012 1:36 PM
To: U2 Users List
Subject: Re: [U2] Passing by Value

Perhaps you should consider making that one an external subroutine - it sounds like it could be used in more than one place.   External subroutines would give you the scope control you want.

-----Original Message-----
From: u2-users-bounces@... [mailto:u2-users-bounces@...] On Behalf Of Wjhonson
Sent: Thursday, January 26, 2012 1:26 PM
To: u2-users@...
Subject: Re: [U2] Passing by Value


And if your internal subroutine is called
RECONCILE.CUSTOMERS.BUDGET.BALANCE

??








-----Original Message-----
From: Dave Davis <DDavis@...>
To: U2 Users List <u2-users@...>
Sent: Thu, Jan 26, 2012 10:17 am
Subject: Re: [U2] Passing by Value


By way of naming convention:
FOR PROCESS_I = 1 TO 20
-----Original Message-----
rom: u2-users-bounces@... [mailto:u2-users-bounces@...]
n Behalf Of Wjhonson
ent: Thursday, January 26, 2012 1:09 PM
o: u2-users@...
ubject: Re: [U2] Passing by Value

n a related note, any clever ideas to localize a variable to a local
ubroutine?
For I = 1 to 10
  GOSUB PROCESS
ext I
top
3000 Lines of code later....
PROCESS:
OR I = 1 TO 20
RINT I
EXT I
ETURN
______________________________________________
2-Users mailing list
2-Users@...
ttp://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________

ave Davis
eam Lead, R&D
P: 614-875-4910 x108
: 614-875-4088
: DDavis@...
       [http://www.harriscomputer.com/images/signatures/HarrisSchools.gif]
[http://www.harriscomputer.com/images/signatures/DivisionofHarris.gif]<http://www.harriscomputer.com/>
       6110 Enterprise Parkway
rove City, OH
3123
ww.harris-schoolsolutions.com<http://www.harris-schoolsolutions.com>
This message is intended exclusively for the individual or entity to which it is
ddressed. This communication may contain information that is proprietary,
rivileged or confidential or otherwise legally exempt from disclosure. If you
re not the named addressee, you are not authorized to read, print, retain, copy
r disseminate this message or any part of it. If you have received this message
n error, please notify the sender immediately by e-mail and delete all copies
f the message.
_______________________________________________
2-Users mailing list
2-Users@...
ttp://listserver.u2ug.org/mailman/listinfo/u2-users

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users
________________________________


Dave Davis
Team Lead, R&D

P: 614-875-4910 x108
F: 614-875-4088
E: DDavis@...
        [http://www.harriscomputer.com/images/signatures/HarrisSchools.gif]

[http://www.harriscomputer.com/images/signatures/DivisionofHarris.gif]<http://www.harriscomputer.com/>
        6110 Enterprise Parkway
Grove City, OH
43123
www.harris-schoolsolutions.com<http://www.harris-schoolsolutions.com>

This message is intended exclusively for the individual or entity to which it is addressed. This communication may contain information that is proprietary, privileged or confidential or otherwise legally exempt from disclosure. If you are not the named addressee, you are not authorized to read, print, retain, copy or disseminate this message or any part of it. If you have received this message in error, please notify the sender immediately by e-mail and delete all copies of the message.

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by John Hester :: Rate this Message:

| View Threaded | Show Only this Message

I like to use increasing roman numerals:

FOR I = 1 TO COUNTER
  GOSUB PROCESS
NEXT I

PROCESS:
FOR II = 1 TO COUNTER2
  FOR III = 1 TO COUNTER3
    FOR IV = 1 TO COUNTER4
   
    NEXT IV
  NEXT III
NEXT II
RETURN

-----Original Message-----
From: u2-users-bounces@...
[mailto:u2-users-bounces@...] On Behalf Of Wjhonson
Sent: Thursday, January 26, 2012 10:09 AM
To: u2-users@...
Subject: Re: [U2] Passing by Value


On a related note, any clever ideas to localize a variable to a local
subroutine?

For I = 1 to 10
   GOSUB PROCESS
Next I
Stop

3000 Lines of code later....

PROCESS:
FOR I = 1 TO 20
PRINT I
NEXT I
RETURN
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by WJhonson :: Rate this Message:

| View Threaded | Show Only this Message


You've never worked on programs that are 8000 lines long I take it :)




-----Original Message-----
From: John Hester <JHester@...>
To: U2 Users List <u2-users@...>
Sent: Thu, Jan 26, 2012 10:49 am
Subject: Re: [U2] Passing by Value


I like to use increasing roman numerals:
FOR I = 1 TO COUNTER
 GOSUB PROCESS
EXT I
PROCESS:
OR II = 1 TO COUNTER2
 FOR III = 1 TO COUNTER3
   FOR IV = 1 TO COUNTER4
   
   NEXT IV
 NEXT III
EXT II
ETURN
-----Original Message-----
rom: u2-users-bounces@...
mailto:u2-users-bounces@...] On Behalf Of Wjhonson
ent: Thursday, January 26, 2012 10:09 AM
o: u2-users@...
ubject: Re: [U2] Passing by Value

n a related note, any clever ideas to localize a variable to a local
ubroutine?
For I = 1 to 10
  GOSUB PROCESS
ext I
top
3000 Lines of code later....
PROCESS:
OR I = 1 TO 20
RINT I
EXT I
ETURN
______________________________________________
2-Users mailing list
2-Users@...
ttp://listserver.u2ug.org/mailman/listinfo/u2-users
______________________________________________
2-Users mailing list
2-Users@...
ttp://listserver.u2ug.org/mailman/listinfo/u2-users

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value - Found word(s) list error in the Text body

by Garry Smith-2 :: Rate this Message:

| View Threaded | Show Only this Message

Is Mr Davis previously graduated from ASM in 1974?

Garry L. Smith
Director Info. Systems
Charles McMurray Company
T# 559-292-5782 F# 559-346-6169
-----Original Message-----
From: u2-users-bounces@...
[mailto:u2-users-bounces@...] On Behalf Of Dave Davis
Sent: Thursday, January 26, 2012 10:17 AM
To: U2 Users List
Subject: Re: [U2] Passing by Value - Found word(s) list error in the
Text body

By way of naming convention:

FOR PROCESS_I = 1 TO 20

-----Original Message-----
From: u2-users-bounces@...
[mailto:u2-users-bounces@...] On Behalf Of Wjhonson
Sent: Thursday, January 26, 2012 1:09 PM
To: u2-users@...
Subject: Re: [U2] Passing by Value


On a related note, any clever ideas to localize a variable to a local
subroutine?

For I = 1 to 10
   GOSUB PROCESS
Next I
Stop

3000 Lines of code later....

PROCESS:
FOR I = 1 TO 20
PRINT I
NEXT I
RETURN
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users
________________________________


Dave Davis
Team Lead, R&D

P: 614-875-4910 x108
F: 614-875-4088
E: DDavis@...
 
[http://www.harriscomputer.com/images/signatures/HarrisSchools.gif]

[http://www.harriscomputer.com/images/signatures/DivisionofHarris.gif]<h
ttp://www.harriscomputer.com/>
        6110 Enterprise Parkway
Grove City, OH
43123
www.harris-schoolsolutions.com<http://www.harris-schoolsolutions.com>

This message is intended exclusively for the individual or entity to
which it is addressed. This communication may contain information that
is proprietary, privileged or confidential or otherwise legally exempt
from disclosure. If you are not the named addressee, you are not
authorized to read, print, retain, copy or disseminate this message or
any part of it. If you have received this message in error, please
notify the sender immediately by e-mail and delete all copies of the
message.

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value - Found word(s) list error in the Text body

by Dave Davis-3 :: Rate this Message:

| View Threaded | Show Only this Message

Before my time.

I don't really do the "PROCESS_I" thing - but if necessary I do try to associate the name of the index variable with the thing being indexed.

We use a lot of SB+ paragraph code so the subject of "internal subroutines" does not really present itself.

-----Original Message-----
From: u2-users-bounces@... [mailto:u2-users-bounces@...] On Behalf Of Garry Smith
Sent: Thursday, January 26, 2012 2:35 PM
To: U2 Users List
Subject: Re: [U2] Passing by Value - Found word(s) list error in the Text body

Is Mr Davis previously graduated from ASM in 1974?

Garry L. Smith
Director Info. Systems
Charles McMurray Company
T# 559-292-5782 F# 559-346-6169
-----Original Message-----
From: u2-users-bounces@...
[mailto:u2-users-bounces@...] On Behalf Of Dave Davis
Sent: Thursday, January 26, 2012 10:17 AM
To: U2 Users List
Subject: Re: [U2] Passing by Value - Found word(s) list error in the
Text body

By way of naming convention:

FOR PROCESS_I = 1 TO 20

-----Original Message-----
From: u2-users-bounces@...
[mailto:u2-users-bounces@...] On Behalf Of Wjhonson
Sent: Thursday, January 26, 2012 1:09 PM
To: u2-users@...
Subject: Re: [U2] Passing by Value


On a related note, any clever ideas to localize a variable to a local
subroutine?

For I = 1 to 10
   GOSUB PROCESS
Next I
Stop

3000 Lines of code later....

PROCESS:
FOR I = 1 TO 20
PRINT I
NEXT I
RETURN
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users
________________________________


Dave Davis
Team Lead, R&D

P: 614-875-4910 x108
F: 614-875-4088
E: DDavis@...

[http://www.harriscomputer.com/images/signatures/HarrisSchools.gif]

[http://www.harriscomputer.com/images/signatures/DivisionofHarris.gif]<h
ttp://www.harriscomputer.com/>
        6110 Enterprise Parkway
Grove City, OH
43123
www.harris-schoolsolutions.com<http://www.harris-schoolsolutions.com>

This message is intended exclusively for the individual or entity to
which it is addressed. This communication may contain information that
is proprietary, privileged or confidential or otherwise legally exempt
from disclosure. If you are not the named addressee, you are not
authorized to read, print, retain, copy or disseminate this message or
any part of it. If you have received this message in error, please
notify the sender immediately by e-mail and delete all copies of the
message.

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users
________________________________


Dave Davis
Team Lead, R&D

P: 614-875-4910 x108
F: 614-875-4088
E: DDavis@...
        [http://www.harriscomputer.com/images/signatures/HarrisSchools.gif]

[http://www.harriscomputer.com/images/signatures/DivisionofHarris.gif]<http://www.harriscomputer.com/>
        6110 Enterprise Parkway
Grove City, OH
43123
www.harris-schoolsolutions.com<http://www.harris-schoolsolutions.com>

This message is intended exclusively for the individual or entity to which it is addressed. This communication may contain information that is proprietary, privileged or confidential or otherwise legally exempt from disclosure. If you are not the named addressee, you are not authorized to read, print, retain, copy or disseminate this message or any part of it. If you have received this message in error, please notify the sender immediately by e-mail and delete all copies of the message.

_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: Passing by Value

by Horacio Pellegrino-2 :: Rate this Message:

| View Threaded | Show Only this Message

I asked the Rocket Software guys to have LOCAL variables... but nothing...
:-(


On Thu, Jan 26, 2012 at 2:02 PM, Wjhonson <wjhonson@...> wrote:

>
> You've never worked on programs that are 8000 lines long I take it :)
>
>
>
>
> -----Original Message-----
> From: John Hester <JHester@...>
> To: U2 Users List <u2-users@...>
> Sent: Thu, Jan 26, 2012 10:49 am
> Subject: Re: [U2] Passing by Value
>
>
> I like to use increasing roman numerals:
> FOR I = 1 TO COUNTER
>  GOSUB PROCESS
> EXT I
> PROCESS:
> OR II = 1 TO COUNTER2
>  FOR III = 1 TO COUNTER3
>   FOR IV = 1 TO COUNTER4
>
>   NEXT IV
>  NEXT III
> EXT II
> ETURN
> -----Original Message-----
> rom: u2-users-bounces@...
> mailto:u2-users-bounces@...] On Behalf Of Wjhonson
> ent: Thursday, January 26, 2012 10:09 AM
> o: u2-users@...
> ubject: Re: [U2] Passing by Value
>
> n a related note, any clever ideas to localize a variable to a local
> ubroutine?
> For I = 1 to 10
>  GOSUB PROCESS
> ext I
> top
> 3000 Lines of code later....
> PROCESS:
> OR I = 1 TO 20
> RINT I
> EXT I
> ETURN
> ______________________________________________
> 2-Users mailing list
> 2-Users@...
> ttp://listserver.u2ug.org/mailman/listinfo/u2-users
> ______________________________________________
> 2-Users mailing list
> 2-Users@...
> ttp://listserver.u2ug.org/mailman/listinfo/u2-users
>
> _______________________________________________
> U2-Users mailing list
> U2-Users@...
> http://listserver.u2ug.org/mailman/listinfo/u2-users
>



--

*hp*
_______________________________________________
U2-Users mailing list
U2-Users@...
http://listserver.u2ug.org/mailman/listinfo/u2-users
< Prev | 1 - 2 - 3 - 4 | Next >