Difference between revisions of "Information Systems:Overnight ENDOFWEEK"

From uniWIKI
Jump to navigation Jump to search
m
 
(6 intermediate revisions by 2 users not shown)
Line 1: Line 1:
The scheduler starts this job at 1:00AM on Sundays. It calls [[Overnight ENDOFWEEK#EODWEEKLY|EODWEEKLY]], which will -
+
The scheduler starts this job at 1:00AM on Sundays. It calls [[EODWEEKLY]], which will -
   
 
- Run run the same programs as the [[Overnight ENDOFDAY|End of Day]].
 
- Run run the same programs as the [[Overnight ENDOFDAY|End of Day]].
   
 
* [[EODWEEKLY]]
- Run weekly updates and reports.
 
   
  +
This is called by the scheduler (job name ENDOFWEEK) every Sunday, at 1:00AM. It puts the computer into an application restricted state. If it fails, it will be cancelled by the backup; which starts at 3:00AM.
==EODWEEKLY==
 
   
 
* [[EODUPDW]]
/* send email that weekly overnight process is starting */
 
 
CHGVAR VAR(&SMSG) VALUE('EOW starting (2:30 3:00 +
 
5:00 6:30)')
 
CHGVAR VAR(&LMSG) VALUE(&SMSG)
 
CALL PGM(OPMSGSEND) PARM(&SMSG &LMSG)
 
 
/* End all processes that use either ASW or extension files. This is */
 
/* so that the temporary backup can save all files, and because some of */
 
/* the ASW jobs cannot run if any other jobs are using their files. */
 
 
CALL PGM([[Overnight ENDOFDAY#EODEND2|EODEND2]])
 
 
/* run End of Day processing */
 
 
CALL PGM([[Overnight ENDOFDAY#EOD|EOD]])
 
 
/* run weekly jobs */
 
 
CALL PGM([[Overnight ENDOFWEEK#EODUPDW|EODUPDW]])
 
CALL PGM([[Overnight ENDOFWEEK#EODRPTW|EODRPTW]])
 
 
/* send email that weekly overnight process ended normally */
 
 
CHGVAR VAR(&SMSG) VALUE('Weekly overnite processing +
 
ended Normally')
 
CHGVAR VAR(&LMSG) VALUE('This message means there +
 
were no errors that halted processing. If +
 
this message is not sent, it means the +
 
full backup cancelled this job.')
 
CALL PGM(OPMSGSEND) PARM(&SMSG &LMSG)
 
   
  +
This rebuilds ASW search files, and runs IC calcs (Inventory Control calculations). It is called by EODWEEKLY.
==EODUPDW==
 
   
 
* [[EODRPTW]]
/* Calculate IC CALCS period as calendar year and month (not fiscal) */
 
 
CHGASWLDA TYPE(*DATDZ) STARTPOS(001)
 
RTVDTAARA DTAARA(*LDA (1 6)) RTNVAR(&PERIOD)
 
 
/* Periodic balance update */
 
 
RTVASWPAR PGM(DIR345B) PAID(BALUPDATE) USER(*ALL)
 
CHGASWLDA TYPE(*PERDZ) STARTPOS(001)
 
CHGASWLDA TYPE(*PERDZ) STARTPOS(007)
 
EXCASWPGM PGM(DIR345B) PARM(N)
 
 
/* Rebuild item search fields */
 
 
RTVASWPAR PGM(DMC981) PAID(ITEMSEARCH) USER(*ALL)
 
CHGASWLDA TYPE(*PERDZ) STARTPOS(007)
 
EXCASWPGM PGM(DMC981) PARM(N)
 
 
/* Rebuild name search fields */
 
 
RTVASWPAR PGM(GDMC981) PAID(NAMESEARCH) USER(*ALL)
 
CHGASWLDA TYPE(*PERDZ) STARTPOS(007)
 
EXCASWPGM PGM(GDMC981) PARM(N)
 
 
/* Inventory calculations */
 
 
RTVASWPAR PGM(INVC401) PAID(ICCALCS) USER(*ALL)
 
CHGASWLDA VALUE(&PERIOD) TYPE(*CHAR) STARTPOS(226) +
 
POSITIONS(6)
 
EXCASWPGM PGM(INVC401) PARM(N)
 
   
  +
Runs report of inventory onhand, and validate that SROSRO (Warehouse Balance), SROITR (Inventory Transactions), WHOLOP (Location Occupancy), and WHOLTR (Location Transactions) all balance with each other. It is called by EODWEEKLY.
==EODRPTW==
 
   
  +
[[Category: Overnight Processing]]
/* Print onhand inventory at cost by item account group for both warehouses */
 
 
OVRPRTF FILE(QPQUPRFIL) OUTQ(PRT01)
 
RUNQRY QRY(STOCKST03A)
 
DLTOVR FILE(QPQUPRFIL)
 

Latest revision as of 09:11, 7 July 2016

The scheduler starts this job at 1:00AM on Sundays. It calls EODWEEKLY, which will -

- Run run the same programs as the End of Day.

This is called by the scheduler (job name ENDOFWEEK) every Sunday, at 1:00AM. It puts the computer into an application restricted state. If it fails, it will be cancelled by the backup; which starts at 3:00AM.

This rebuilds ASW search files, and runs IC calcs (Inventory Control calculations). It is called by EODWEEKLY.

Runs report of inventory onhand, and validate that SROSRO (Warehouse Balance), SROITR (Inventory Transactions), WHOLOP (Location Occupancy), and WHOLTR (Location Transactions) all balance with each other. It is called by EODWEEKLY.