Re: Reading the list of Domino servers

[rob@xxxxxxxxx]

I also need the subsystem name.  While that is in the IFS, it's not in
QAXNASVR.

Great to see some life on this list!

Rob Berendt

==================
Remember the Cole!


                                                                                
                                        
                    phaberman@cooperst                                          
                                        
                    andard.com                To:     DOMINO400@midrange.com    
                                        
                    Sent by:                  cc:                               
                                        
                    owner-domino400@mi        Subject:     Re: Reading the list 
of Domino servers                       
                    drange.com                                                  
                                        
                                                                                
                                        
                                                                                
                                        
                    01/31/01 10:54 AM                                           
                                        
                    Please respond to                                           
                                        
                    DOMINO400                                                   
                                        
                                                                                
                                        
                                                                                
                                        





Rob -  there is another file  QUSRSYS/QAXNASVR.

If you want something quick and dirty,  you can build on this.


        DCLF       FILE(QUSRSYS/QAXNASVR) ALWVARLEN(*YES) +
                     ALWGRAPHIC(*YES)

        DCL        VAR(&SERVER) TYPE(*CHAR) LEN(50)


then read the file and end the server.  Skip  first two positions because
they  contain the length of the variable.

 SPENDSVR:   RCVF
             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF)) /* +
                          monitor for end of file reached */

             CHGVAR     VAR(&SERVER) VALUE(%SST(&DOMSVR 3 50))
             ENDDOMSVR  SERVER(&SERVER)



rob wrote:

I am trying to read the list of Domino servers in order to bring them down
in an orderly fashion.  This list is stored in the file:
/QIBM/UserData/LOTUS/LOTUS_SERVERS

I looked at writing a RPGLE program to read it directly using techniques
from the 'Who Knew You Could Do That with RPG IV? - A Sorcerer's Guide to
System Access and More' redbook but I am in a bit of a time crunch.  I also
looked at using CPYFRMSTMF or CPYFRMIMPF but I am obviously doing something
wrong.  After letting CPYFRMSTMF run for 5 minutes I Sys-Req out of it.  To
use the CPYFRMIMPF I am getting errors on the RCDDLM parameter.  Or is
there an existing list API which will extract the list?

Anyone have some existing code to share?"


+---
| This is the Domino/400 Mailing List!
| To submit a new message, send your mail to DOMINO400@midrange.com.
| To subscribe to this list send email to DOMINO400-SUB@midrange.com.
| To unsubscribe from this list send email to DOMINO400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: meechamw@ptd.net
+---



+---
| This is the Domino/400 Mailing List!
| To submit a new message, send your mail to DOMINO400@midrange.com.
| To subscribe to this list send email to DOMINO400-SUB@midrange.com.
| To unsubscribe from this list send email to DOMINO400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: meechamw@ptd.net
+---