RE: TCP/IP and Components

[thomas@xxxxxxxxxxx]

On Wed, 02 January 2002, "Fritz Hayes" wrote:

> Looks like you have a rather complex network structure!  One thing that
> may help the situation with Explorer and shared directories is to
> manually put a server entry into the WINS server.  This can help to kick
> start the Network Neighborhood stuff.  Also, check to see what workgroup
> (NT Domain) that the 400 has been assigned to.

And of course, check what domain the PC is logging onto and that it's the same. 
If it's not the same, then verfiy that info from one domain is available to the 
other. (I don't know how you'll find that out on your network.)

If none of this helps, at the bottom here I'm pasting a general CLP that will 
get you started; it'll at least tell you what Netserver server name is 
configured. Minor modifications can tell you other configured NetServer 
elements. Search the InfoCenter for 'netserver api' for any details you might 
want.

The CLP creates a *usrspc and lists NetServer configuration into it. It then 
extracts ServerName and displays it in a message. (It also has a DMPCLPGM at 
the end to let you see exactly what's extracted. You might also want to use 
DMPOBJ to dump the *usrspc and compare against NetServer API documentation.)

Tom Liotta

> <snip>
>
> |
> |Yes, I have the QZLSxxxxx jobs but can not find the system
> |from windows.
> |

NetServer ServerName CLP:

pgm


   dcl   &NSName      *char     15          /* NetServer ServerName */

   dcl   &a_pos       *char      4          /* Data Start Pos.-Binary */
   dcl   &InfoQual    *char     15  value( '*ALL' )


/* Create a *usrspc to work with...                                   */

   call  QUSCRTUS         ( +
                            'NETS      QTEMP     '  +
                            'TMPLST    '            +
                            x'00001000'             +
                            X'00'                   +
                            '*ALL      '            +
                            'Temporary NS space    ' +
                            '*YES      '            +
                            x'0000000000000000'     +
                          )

/* List NetServer status info into our *usrspc...                     */

   call  QZLSLSTI         ( +
                            'NETS      QTEMP     '  +
                            'ZLSL0201'              +
                            &InfoQual               +
                            x'0000000000000000'     +
                          )

/* Get the starting position of the list from the header...           */

   call  QUSRTVUS         ( +
                            'NETS      QTEMP     '  +
                            x'0000007D'             +
                            x'00000004'             +
                            &a_pos                  +
                          )

/* NetServer ServerName is at offset 68 into the list...              */

   chgvar     %bin( &a_pos )     ( %bin( &a_pos ) + 68 + 1 )

/* Get the NetServer ServerName from the *usrspc...                   */

   call  QUSRTVUS         ( +
                            'NETS      QTEMP     '  +
                            &a_pos                  +
                            x'0000000F'             +
                            &NSName                 +
                          )

/* Display ServerName...                                              */

   sndusrmsg  ( 'NetServer ServerName:' *bcat &NSName)  tomsgq( *EXT )

dmpclpgm

   return

endpgm



--
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788
Fax  253-872-7904
http://www.400Security.com


___________________________________________________
The ALL NEW CS2000 from CompuServe
 Better!  Faster! More Powerful!
 250 FREE hours! Sign-on Now!
 http://www.compuserve.com/trycsrv/cs2000/webmail/