RE: NetServer Config File -- MIDRANGE-L

Justin:

I have no idea _where_ the info is, but I'll paste a sample of retrieving and 
displaying server name, domain name and text description. The info is retrieved 
by using the List Server Information (QZLSLSTI) API and the sample should work 
back to V4R4 (not sure if it's also good at V4R3).

Tom Liotta

midrange-l-request@xxxxxxxxxxxx wrote:

>   10. Re: NetServer Config File (Justin Haase)
>
>Where is the file which holds the settings for NetServer?  For example, the
>parms you see in iSeries Navigator, where does the system store the name of
>the system it reports as, the domain, the description, etc.
>
>This is in regard to V5R1.

---- begin
pgm


   dcl   &NSName      *char     15          /* NetServer ServerName */
   dcl   &DomName     *char     15          /* NetServer DomainName */
   dcl   &TextDesc    *char     50          /* NetServer TextDescription */

   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 IFS 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                  +
      /* len(15) */         x'0000000F'             +
                            &NSName                 +
                          )

/* NetServer DomainName is at offset 98 into the list... */

   chgvar     %bin( &a_pos )     ( %bin( &a_pos ) + 30 )

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

   call  QUSRTVUS         ( +
                            'NETS      QTEMP     '  +
                            &a_pos                  +
      /* len(15) */         x'0000000F'             +
                            &DomName                +
                          )

/* NetServer TextDesc is at offset 128 into the list... */

   chgvar     %bin( &a_pos )     ( %bin( &a_pos ) + 30 )

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

   call  QUSRTVUS         ( +
                            'NETS      QTEMP     '  +
                            &a_pos                  +
      /* len(50) */         x'00000032'             +
                            &TextDesc               +
                          )

/* Display NetServer properties... */

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

   return

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


__________________________________________________________________
Try AOL and get 1045 hours FREE for 45 days!
http://free.aol.com/tryaolfree/index.adp?375380

Get AOL Instant Messenger 5.1 for FREE! Download Now!
http://aim.aol.com/aimnew/Aim/register.adp?promo=380455