True - sorry. :^(
I have worked too much with functions, haven't I?.
-- mats
Brian Leach wrote:
Mats,
Clever but not quite there...
That would only work if the subroutine used arg 1 as a return argument.
Brian
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mats Carlid
Sent: 03 February 2005 10:22
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] [AD] UniBasic Program with arguments
Well,
actually you can, sort of :
LIST VOC SAMPLE 1 EVAL "SUBR('your.subroutine', arg1 , arg2 )"
Then we can argue forever if this is really running from TCl
or what. ;^)
And IIRC this has been mentioned on the list before.
-- mats
Chauhan, Savita wrote:
Thanks all you guys for all your replies.
This list has come to my rescue so many times. I have so
much more to
learn.
I realized that I can run my program (with args) only as one of the
following (without any external utitlity) :
1. as a subroutine (with no args, but can use @COMMAND to read the
command line) 2. as an external subroutine (with args)
If I make it a subroutine, then I cannot call it from
another pgm and
pass it args.
If I make external subroutine, I cannot run it from TCL.
Thanks again.
Savita Chauhan,
Programmer/Analyst
x:1754 Central Texas College.
-------------------------------------------
Change is the only Constant.
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mark Johnson
Sent: Wednesday, February 02, 2005 8:18 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] [AD] UniBasic Program with arguments
Here it is, pretty quickly.
Create a Databasic Program, I call mine PRINT (losing regard
for PRINT
being there). That is a simple program that takes the @COMMAND or
PROCREAD or TCLREAD line you just typed as the first line in a Basic
program, throw an END at the end, compile and run itself.
Thus, you can have this or virtually any single line program
run from
TCL.
This is the absolutely best and simplest method. I use this 100's of
time a day for testing the OCONV's, simple math, anything. Its only
limitation is multiple line IF statements or anything with an ELSE.
PRINT ; CALL MY.SUB(ARG1, ARG2, WHATEVER) ; PRINT WHATEVER
PRINT 5+5
PRINT OCONV("12345","DMA")
PRINT ; OPEN "MD" THEN READ X FROM "YOUR.ID" THEN WRITEV "A" ON
"SOMETHING",
2
PRINT ; FOR I=1 TO 15 STEP 2 ; PRINT I,I*11 ; NEXT I
ED MD PRINT
001 PQN
002 HRUN BP PRINT.PROG
003 P
ED BP PRINT.PROG
001 PROCREAD TEST ELSE STOP
OR
001 TCLREAD TEST
OR
001 [EMAIL PROTECTED]
001+ CONVERT CHAR(254) TO " " IN TEST
002 OPEN "BP" TO F.BP ELSE STOP
003 TEST<2>="END"
004 ID="PRINTTT"
005 WRITE TEST ON F.BP, ID
006 EXECUTE "DECATALOG BP ":ID
007 EXECUTE "BASIC BP ":ID
008 EXECUTE "RUN BP ":ID
That's it. I created this in 1978 and have written 2
articles about it,
one in Datastream and the other for Spectrum. It should be
part of the
MV OS.
My 3 cents.
----- Original Message -----
From: "Chauhan, Savita" <[EMAIL PROTECTED]>
To: <u2-users@listserver.u2ug.org>
Sent: Tuesday, February 01, 2005 5:48 PM
Subject: [U2] [AD] UniBasic Program with arguments
Hi,
I am trying to run a unibasic program (external subroutine)
that takes
two arguments.
I don't know how do I pass it the arguments if I run it
directly from
shel prompt instead of calling it from another program.
I have gone through the manual, but can't find anything. Pls help.
Thanks
Savita.
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
