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

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.