Re: Reading the list of Domino servers

[phaberman@xxxxxxxxxxxxxxxxxx]

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
+---