Difference between revisions of "Information Systems:Overnight ENDOFDAY"

From uniWIKI
Jump to navigation Jump to search
Line 35: Line 35:
 
CHGDTAARA DTAARA(OMSWITCH) VALUE('STOP ')
  
CHGDTAARA DTAARA(OMSWITCH) VALUE('STOP ')
 
CHGDTAARA DTAARA(EMASWITCH) VALUE('STOP ')
 
CHGDTAARA DTAARA(EMASWITCH) VALUE('STOP ')
  +
−  
 
ENDIMSJOB
 
ENDIMSJOB
 
ENDIMPJOB
  
ENDIMPJOB
Line 48: Line 48:
 
ENDEMASUB OPTION(*IMMED)
 
ENDEMASUB OPTION(*IMMED)
 
 
−
/* END WEB JOBS, pause for one minute, then end subsystem */
+
/* End Web servers, pause for one minute, then end subsystem */
 
 
 
ENDTCPSVR SERVER(*HTTP) HTTPSVR(WEBSMART)
 
ENDTCPSVR SERVER(*HTTP) HTTPSVR(WEBSMART)
Line 62: Line 62:
 
DLYJOB DLY(300)
 
DLYJOB DLY(300)
   
−
- Calls EOD
 +
- Calls '''EOD'''
  +
  +
/* Do temporary backup. This is to restore files if update program */
  +
/* bombs. It can be used to do a quick restore if say, a user deletes */
  +
/* something they shouldn't. And it is used to rebuild test libraries. */
  +
  +
CALL PGM(EODBUTEMP)
  +
  +
/* Run End of Day - updates, reports, and housekeeping */
  +
  +
CHGASWCOM COMPANY(VA)
  +
CALL PGM(EODUPD)
  +
CALL PGM(EODRPT)
  +
CALL PGM(EODCLR)
  +
  +
/* Clear consolidated item master file (XXITEMP). This is rebuilt in */
  +
/* EODREBLD, but as it is used by so many jobs, it can be cleared only */
  +
/* in the Application Restricted State. */
  +
  +
RCLRSC
  +
CLRPFM FILE(XXITEMP)
  +
  +
/* Rebuild statistics files, and update summary files. */
  +
/* Submit job to QBATCH, so that it will run after the backups, when the */
  +
/* system is brought back up again. This gets it out of the restricted */
  +
/* state sooner. */
  +
  +
SBMJOB CMD(CALL PGM(EODREBLD)) JOBQ(QS36EVOKE)
   
 
- Sends the second email message - 'Daily overnite processing ended normally' - at about 2:15AM.
  
- Sends the second email message - 'Daily overnite processing ended normally' - at about 2:15AM.

Revision as of 11:55, 4 January 2016

The scheduler starts this job at 1:00AM; every morning except Sunday - when the End of Week is called. This job will -

- End all programs that use ASW or extension files, and end subsystems so users cannot sign on.

- Do a 'temporary' backup of data libraries only. This uses tape '999999', which has a retention period of one day so that it can be over written every night. It can be used if something happens during the overnight processing, to quickly restore a file the next day if needed (without having to call the tape from off site storage), and to rebuild the test environment.

- Run updates, reports, and housekeeping (clear work files and out queues, and delete unnecessary spool files).

The program is EODDAILY in library UNIPHARMIT.

- Sends the first email message - 'EOD starting (2:15 3:00 5:00 6:30)'.

- Calls EODEND2, which will end all processes that can use either ASW or extension files. This does not end Domino, so that I.T. staff will receive the emails being sent. 

/* End EDI monitors for SPS Commerce and EDI Gateway */ 
                                                                               
             EDIENDMON                                                         
             EDIENDEDIG                                                        
 
/* End subsystems that run user jobs */                                                   
                                                                               
             ENDSBS     SBS(QINTER) OPTION(*IMMED)                             
             ENDSBS     SBS(QBATCH) OPTION(*IMMED)                             
             ENDSBS     SBS(DCRF) OPTION(*IMMED)                               
             ENDSBS     SBS(UP1480BS) OPTION(*IMMED)                           
             ENDSBS     SBS(TLABARCODE) OPTION(*IMMED)                         
             ENDSBS     SBS(BC400SERVR) OPTION(*IMMED)        
             ENDSBS     SBS(MONITOR2) OPTION(*IMMED)          
                                                              
/* End IMS, IMP, IOP, OMS, and EMA */           
                                                              
             CHGDTAARA  DTAARA(IMSWITCH) VALUE('STOP      ')  
             CHGDTAARA  DTAARA(IMPSWITCH) VALUE('STOP      ')
             CHGDTAARA  DTAARA(IOPSWITCH) VALUE('STOP      ') 
             CHGDTAARA  DTAARA(OMSWITCH) VALUE('STOP      ')
             CHGDTAARA  DTAARA(EMASWITCH) VALUE('STOP      ') 

             ENDIMSJOB                                        
             ENDIMPJOB
             ENDIOPJOB                                        
             ENDOMSJOB                                        
             ENDEMAJOBS                                       

             ENDIMSSUB  OPTION(*IMMED)                        
             ENDIMPSUB  OPTION(*IMMED)                        
             ENDIOPSUB  OPTION(*IMMED)                        
             ENDOMSSUB  OPTION(*IMMED)                        
             ENDEMASUB  OPTION(*IMMED)                        
                                                                               
/*  End Web servers, pause for one minute, then end subsystem */           
                                                                               
             ENDTCPSVR  SERVER(*HTTP) HTTPSVR(WEBSMART)                        
             ENDTCPSVR  SERVER(*HTTP) HTTPSVR(WEBTEST)                         
             ENDTCPSVR  SERVER(*HTTP) HTTPSVR(WEBINTER)                        
             DLYJOB     DLY(60)                                                
             ENDSBS     SBS(QHTTPSVR) DELAY(60)                                
                                                                               
/*  Explicity end Telnet server with a 5 minute delay - otherwise */
/*  there could be a problem with the RF guns */
                                                                                
             ENDTCPSVR  SERVER(*TELNET)                                        
             DLYJOB     DLY(300)

- Calls EOD 

/* Do temporary backup.  This is to restore files if update program     */ 
/* bombs.  It can be used to do a quick restore if say, a user deletes  */ 
/* something they shouldn't.  And it is used to rebuild test libraries. */ 
                                                                             
             CALL       PGM(EODBUTEMP)                                       
                                                                             
/*  Run End of Day - updates, reports, and housekeeping                 */ 
                                                                             
             CHGASWCOM  COMPANY(VA)                                          
             CALL       PGM(EODUPD)                                          
             CALL       PGM(EODRPT)                                          
             CALL       PGM(EODCLR)                                          
                                                                             
/* Clear consolidated item master file (XXITEMP).  This is rebuilt in   */ 
/* EODREBLD, but as it is used by so many jobs, it can be cleared only  */
/* in the Application Restricted State.                                 */
                                                                          
             RCLRSC                                                          
             CLRPFM     FILE(XXITEMP)

/* Rebuild statistics files, and update summary files. */ /* Submit job to QBATCH, so that it will run after the backups, when the */ /* system is brought back up again. This gets it out of the restricted */ /* state sooner. */ 

            SBMJOB     CMD(CALL PGM(EODREBLD)) JOBQ(QS36EVOKE)

- Sends the second email message - 'Daily overnite processing ended normally' - at about 2:15AM.

- Resets the submit time for this job on the scheduler to 1:00AM. This is in case a warehouse supervisor has delayed it.

Retrieved from "https://owl.unipharm.com/mediawiki/index.php?title=Information_Systems:Overnight_ENDOFDAY&oldid=1544"