This is the second page of the blog.  I mentioned that I have a simple company calling routine so that when I am running a program, I can simple choose my company and pull up my existing token and continue.  So here is my basic company chooser.  It isn't pretty because it is me at this screen, not a client.

It would be fairly easy to add new companies in your list if you are working with more than one. And if your API is fairly specific, you can pass a message to this screen like, This program is for company 2.

**this program is a company selector
PARAMETER msg
Clear
SET TALK OFF
mwho=space(5)
@3,10 say msg
@5,10 say "1. Company 1"
@6,10 say "2. Company 2"
@7,10 say "9. Someone else"
@8,10 say "X. Cancel"
mans="X"
@10,10 say "Enter choice " get mans picture "@m 1,2,9,X"
READ
DO CASE
  CASE mans="1"
    mwho="CO1"
  CASE mans="2"
    mwho="CO2"
  CASE mans="9"
    mwho="NEW"
  CASE mans="X"
    mwho="X"
ENDCASE
RETURN

 

In the API blog, you will see how I use this.
Craig Sobel