RE: QZDASOINIT

Thanks Steve.
However, it still appears that persistent users like mine can still log on just
after your routine has completed and just before the backup acquired dedicated
mode.





Steve.VanPortfliet@michiganbulb.com on 10/23/2000 09:49:47 AM

Please respond to MAPICS-L@MIDRANGE.COM

To:   MAPICS-L@MIDRANGE.COM
cc:    (bcc: Chris Neely/Poultry/ConAgra)
Subject:  RE: QZDASOINIT




Yes.  I realized it could cause a problem with the backup.  Also, I think
abended jobs may leave a lock on file SYSCTL that need to be cleared.  The
following program runs prior to the backup.  Hope it helps.....


             PGM
             DCL        VAR(&JOB)    TYPE(*CHAR) LEN(10)
             DCL        VAR(&USER)   TYPE(*CHAR) LEN(10)
             DCL        VAR(&NUMBER) TYPE(*CHAR) LEN(6)
             DCLF       FILE(SPOOL132)

             WRKOBJLCK  OBJ(SYSCTL) OBJTYPE(*FILE) OUTPUT(*PRINT)
             CPYSPLF    FILE(QPDSPOLK) TOFILE(SPOOL132)
 READ:       RCVF
             MONMSG     MSGID(CPF0864 CPF4101) EXEC(GOTO +
                          CMDLBL(ENDFILE))
             CHGVAR     VAR(&JOB) VALUE(%SST(&SPOOL132 15 10))

             IF         COND(%SUBSTRING(&JOB 1 10) *EQ 'QZDASOINIT') +
                          THEN(DO)
             CHGVAR     VAR(&USER)   VALUE(%SST(&SPOOL132 26 10))
             CHGVAR     VAR(&NUMBER) VALUE(%SST(&SPOOL132 37 6))

             ENDJOB     JOB(&NUMBER/&USER/&JOB) OPTION(*IMMED)

             ENDDO

             GOTO       CMDLBL(READ)
ENDFILE:

             ENDPGM



-----Original Message-----
From: Chris Neely [mailto:cneely@conagrapoultry.com]
Sent: Monday, October 23, 2000 9:05
To: MAPICS-L@MIDRANGE.COM
Subject: QZDASOINIT




 Is there anyone taking steps programatically to insure that no browser jobs
start in subsystem Qserver and prevent the backup from getting dedicated mode?
What method do you recommend?


Thanks


+---
| This is the MAPICS Mailing List!
| To submit a new message, send your mail to MAPICS-L@midrange.com.
| To subscribe to this list send email to MAPICS-L-SUB@midrange.com.
| To unsubscribe from this list send email to MAPICS-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dshaw@spartan.com
+---
+---
| This is the MAPICS Mailing List!
| To submit a new message, send your mail to MAPICS-L@midrange.com.
| To subscribe to this list send email to MAPICS-L-SUB@midrange.com.
| To unsubscribe from this list send email to MAPICS-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dshaw@spartan.com
+---






+---
| This is the MAPICS Mailing List!
| To submit a new message, send your mail to MAPICS-L@midrange.com.
| To subscribe to this list send email to MAPICS-L-SUB@midrange.com.
| To unsubscribe from this list send email to MAPICS-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dshaw@spartan.com
+---