Re: Client Access environments

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi Ken,

Yes, I'm using the Active-X objects that came with CA Express. Here's my
code to see the default system and to determine the active environment:

Private Sub Form_Load()
    Dim AS400Systems As New cwbx.SystemNames
    Dim systemName As Variant

    Debug.Print "Active environment: " & AS400Systems.ActiveEnvironment
    Debug.Print "Default system....: " & AS400Systems.DefaultSystem
    Debug.Print "Count.............: " & Format$(AS400Systems.Count)

End Sub

As I noted in a reply to Chris Bipes, when I run this code interactively, it
shows "DSS" as the active environment, and CHW_DEVELOP as the default
system.

When it is run from within a CGI version, it shows "Primary Environment" as
the active, and blanks for the default system.

Since my posting to Chris, I uses OpsNav (which now controls connections
environments) to remove all environments except "My AS/400 Connections" (the
default supplied with CA Express", and put the connections in that
environment. Then I scanned the registry and found key "My
Computer\HKEY_USERS\.DEFAULT\Software\IBM\Client Access
Express\CurrentVersion" that has a string "Current Environment" that
contained the value "Primary Environment".  I changed it to "My AS/400
Connections" and the debug window now shows "My AS/400 Connections" but
still no default system and a zero count of systems.

As I understand it, my CGI version is running in the IIS's process space and
the interactive one in my process space. But what I don't understand is why
they're apparently looking different places for the same information.

Thanks for your time,

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

--- Ken.Slaugh@cm-inc.com wrote:
>      I'm glad to see others on this list working
> with VB and DataQs. I have
> numerous project using the techniques you are
> currently coding. But I
> wonder, did you look around for ActiveX objects to
> fulfill your needs or
> are you like the rest of us and have to code this
> stuff yourself before you
> can trust it? I spent a year and a half coding with
> the CA/400 API and I
> didn't use them all either. I did though, devote my
> entire efforts to
> creating an ActiveX set of objects to reuse over and
> over again. This has
> turned the CA/400 interface using VB into a truly
> RAD environment to work
> in. Less coding and debugging has been a HUGE
> payoff.

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---



_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---