RE: QZDASOINIT -- MAPICS-L


The pgm was good, but in order to avoid
CPF3340  & CPF3309 I changed one line and added two:

Directly after the Declare section I added:

DLTSPLF FILE(QPDSPOLK)                  (Delete the old file)
MONMSG     MSGID(CPF3309)              (Incase admin beat you to it)

I Changed the CPYSPLF to replace the old member:

is:         CPYSPLF    FILE(QPDSPOLK) TOFILE(SPOOL132) MBROPT(*REPLACE)
was:    CPYSPLF    FILE(QPDSPOLK) TOFILE(SPOOL132)


Of course the program was prefaced with:

CRTPF FILE(QGPL/SPOOL132) RCDLEN(132) SIZE(*NOMAX)

NOTE: Be aware of multiple environments and how you
     use this program.


                                                                                
                       
                    Steve.VanPortfliet@michig                                   
                       
                    anbulb.com                       To:     
MAPICS-L@MIDRANGE.COM                     
                    Sent by:                         cc:                        
                       
                    owner-mapics-l@MIDRANGE.C        Subject:     RE: 
QZDASOINIT                       
                    OM                                                          
                       
                                                                                
                       
                                                                                
                       
                    10/23/00 06:49 AM                                           
                       
                    Please respond to                                           
                       
                    MAPICS-L                                                    
                       
                                                                                
                       
                                                                                
                       


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