RetroBBS - comp.lang.clarion - Using Start with a variable procedure name.

Using Start with a variable procedure name.

<ff98be4c-7bad-4a15-8b8e-e6cbb15ec51cn@googlegroups.com>

https://www.rocksolidbbs.com/devel/article-flat.php?id=20&group=comp.lang.clarion#20

copy link Newsgroups: comp.lang.clarion

X-Received: by 2002:a37:9244:: with SMTP id u65mr47898675qkd.46.1626006102973;
Sun, 11 Jul 2021 05:21:42 -0700 (PDT)
X-Received: by 2002:a25:5015:: with SMTP id e21mr59266924ybb.395.1626006102682;
Sun, 11 Jul 2021 05:21:42 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clarion
Date: Sun, 11 Jul 2021 05:21:42 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=149.86.69.25; posting-account=Xo_xYgoAAAAhA4TdykmD01Oe3PpCQvZz
NNTP-Posting-Host: 149.86.69.25
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <ff98be4c-7bad-4a15-8b8e-e6cbb15ec51cn@googlegroups.com>
Subject: Using Start with a variable procedure name.
From: cedarsystems@gmail.com (Colin Reynolds)
Injection-Date: Sun, 11 Jul 2021 12:21:42 +0000
Content-Type: text/plain; charset="UTF-8"

by: Colin Reynolds - Sun, 11 Jul 2021 12:21 UTC

For Reference, Clarion 9/Windows 7
I am trying to implement user personalised menus with buttons that access variable procedure names.

The procedures are defined in a user file and reflect whether or not users have access to a procedure.

Problem is that I do NOT know which procedures to include at compile time, and therefore, need to assign them programatically.

There are well over 100 procedures in tha app, so using a 'CASE' statement on each button is not practical.

What I would like to do is use the START function with a variable name.
This is a little bit of the code that will be inserted on each button;
prog = 'IN01' !Procedure Module Name
Loc:Prog1 = Prog !Copy to a local variable
// For testing purposes
message(evaluate(loc:prog1)) !Works correctly and returns IN01
//
I have tried many permutations of START(loc:prog1) and just cannot get it to accept a variable procedure name.

Any suggestions appreciated.

Prototype designs always work. -- Don Vonada

devel / comp.lang.clarion / Using Start with a variable procedure name.

Subject	Author
Using Start with a variable procedure name.	Colin Reynolds