Goo'day, Jay Jay and .....
At 22:29 11/01/06 +0000, you wrote:
It's been a LONG time ....... I can remember writing a whole PL suite in
MDIS PROC (don't ask...)
I recall that in PQN procs you could have a construct such as
PQN
M
RI
IP:
IF %1 = 1]2]3]4]5 G 10]20]30]40]50
That's the MDIS (MDD) method of multivaluing the input and associated
actions, but the OP wanted to have one input and multiple actions, IIRC, so
this isn't what was asked....
AFAIK with UV (we'd changed all of our MDD PQN PROCS on converting ot R83
PQs), you'd have to go to an internal subroutine ([]) and call each action
in turn, and return as has already been suggested, or amend your
"actions" programs to CHAIN from one to another....which probably wouldn't
be very clever
T "Bad entry
G B
10 XTEN
20 XTWENTY
30 XTHIRTY
40 XFORTY
50 XFIFTY
Etc - or whatever (]=value marks by the way)
Otherwise
PQN
IF %1 # 5 G F
[USER.PL BASIC.PGM1]
[USER.PL BASIC.PGM2]
etc
M
BTW - I don't really like "G F" and "G B" - much prefer labels
I haven't tried this on UniVerse but I hope this helps..
Regards
JayJay
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Bob Woodward
Sent: 11 January 2006 17:35
To: U2-Users List
Subject: [U2] PROC Question
Hi folks,
I can't find anything in the IBM Doc's for ProVerb's that tells me how
to create an entry that will allow me to put multiple commands on a
single line. In a nutshell, from a "menu" when a user selects an
option, I want to be able to execute multiple commands.
Currently, I use multiple lines such as:
IF A = 5 [USER.PL BASIC.PGM1
IF A = 5 [USER.PL BASIC.PGM2
IF A = 5 G 10
What I want to be able to do is:
IF A = 5 [USER.PL BASIC.PGM1];[USER.PL BASIC.PGM2];G 10
Is my mind fried? Maybe... But is there something that will work?
BobW
-------
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/
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.1.371 / Virus Database: 267.14.17/227 - Release Date: 11/01/06
Regards,
Bruce Nichol
Talon Computer Services
ALBURY NSW 2640
Australia
http://www.taloncs.com.au
Tel: +61 (0)411149636
Fax: +61 (0)260232119
If it ain't broke, fix it till it is!
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.1.371 / Virus Database: 267.14.17/227 - Release Date: 11/01/06
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
