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.
> 
=== message truncated ===


__________________________________________________
Do You Yahoo!?
Yahoo! Mail - Free email you can access from anywhere!
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
+---