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/
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.