Information Systems:EOMASW - Revision history

Norwinu at 23:21, 24 November 2016

2016-11-24T23:21:39Z

Norwinu at 23:21, 24 November 2016

2016-11-24T23:21:15Z

Norwinu at 16:58, 20 July 2016

2016-07-20T16:58:20Z

New page

/* CALCULATE CLOSING PERIOD AS YESTERDAY'S PERIOD (TODAY MINUS 1) */
/* ASW doesn't handle February 29 properly, so minus 2 instead */

CHGASWLDA TYPE(*DATDZ) RELVAL(-2) STARTPOS(001)
RTVDTAARA DTAARA(*LDA (1 8)) RTNVAR(&DATEC)
CHGVAR VAR(&DATE) VALUE(&DATEC)
GETPERIOD DATE(&DATE) PERIOD(&PERIOD)
CHGVAR VAR(&PERIODC) VALUE(&PERIOD)

/* DO A 'DEMAND ADJUSTMENT' OF PROMO SALES FOR LAST MONTH */

/* log entry is 'PXDEMAND' */

CALL PGM(PXCIU356) PARM(&PERIODC &DATEC)
PXDEMAND

/* CALCULATE CLOSING MONTH, AND 6 MONTHS AGO FOR ITEM SEGMENTATION */

CHGASWLDA TYPE(*DATDZ) RELVAL(-1) STARTPOS(001)
RTVDTAARA DTAARA(*LDA (1 6)) RTNVAR(&CCYYMMA)
RTVDTAARA DTAARA(*LDA (5 2)) RTNVAR(&MONTH)
RTVDTAARA DTAARA(*LDA (1 4)) RTNVAR(&YEAR)
CHGASWLDA TYPE(*DATDZ) RELVAL(-170) STARTPOS(001)
RTVDTAARA DTAARA(*LDA (1 6)) RTNVAR(&CCYYMMB)

/* PERIOD ROLLOVER */

/* log entry is 'ROLL OVER' */

RTVASWPAR PGM(ASGC032) PAID(MONTHROLL) USER(*ALL)
EXCASWPGM PGM(ASGC032) PARM(Y) DTA('N +
NNY *DEVTYPE +
N -
')
CHGASWCOM COMPANY(VA)

/* UNIQUELY IDENTIFY QUERY REPORT SO THAT CATAPULT POLLER CAN FILE IT ON */
/* SUPERSERVER. */

OVRPRTF FILE(QPQUPRFIL) OUTQ(FINANCE/FINTEMP) +
USRDTA(REPORT1)

/* PRINT INVENTORY VALUE */

/* log entry is 'INV VALUE' */

RUNQRY QRY(STOCKST03A)
DLTOVR FILE(QPQUPRFIL)

/* PRINT A/R RECONCILIATION */

/* log entry is 'A/R RECON' */

RTVASWPAR PGM(FSC291) PAID(MONTHENDAR) USER(*ALL)
CHGASWLDA VALUE(&PERIODC) TYPE(*CHAR) STARTPOS(091) +
POSITIONS(6)
EXCASWPGM PGM(FSC291) PARM(N)

/* PRINT A/P RECONCILIATION */

/* log entry is 'A/P RECON' */

RTVASWPAR PGM(FSC291) PAID(MONTHEND) USER(*ALL)
CHGASWLDA VALUE(&PERIODC) TYPE(*CHAR) STARTPOS(091) +
POSITIONS(6)
EXCASWPGM PGM(FSC291) PARM(N)

/* Send both reconciliations to Catapult. Run as a rule instead of */
/* being polled, as they go into QPRINT. We don't want the poller to */
/* go through QPRINT; it's 2300 spool files now, but will just keep */
/* getting bigger. */

ADDLIBLE LIB(XL_CATAPLT)
ZRUNRULE FILE(FSR297P) JOB(*) SPLNBR(*LAST) +
RULENBR(10397) TIMEOUT(20)
ZRUNRULE FILE(FSR297P) JOB(*) SPLNBR(*LAST) +
RULENBR(10397) TIMEOUT(20)

/* ACTIVE FORECAST PERIODS */

/* log entry is 'FORECAST' */

RTVASWPAR PGM(INVC522) PAID(ACTFOREPER) USER(*ALL)
EXCASWPGM PGM(INVC522) PARM(N)

/* AVERAGE STOCK LEVEL */

/* log entry is 'STOCK LEV' */

RTVASWPAR PGM(INVC520) PAID(AVERSTOCK) USER(*ALL)
CHGASWLDA VALUE(&PERIODC) TYPE(*CHAR) STARTPOS(226) +
POSITIONS(6)
EXCASWPGM PGM(INVC520) PARM(N)

/* INVENTORY SEGMENTATION */

/* log entry is 'INV SEG' */

RTVASWPAR PGM(INVC441) PAID(UPDSEGCODE) USER(*ALL)
CHGASWLDA VALUE(&CCYYMMB) TYPE(*CHAR) STARTPOS(25) +
POSITIONS(6)
CHGASWLDA VALUE(&CCYYMMA) TYPE(*CHAR) STARTPOS(31) +
POSITIONS(6)
EXCASWPGM PGM(INVC441) PARM(N)

/* UNIQUELY IDENTIFY QUERY REPORT SO THAT CATAPULT POLLER CAN FILE IT ON */
/* SUPERSERVER. */

OVRPRTF FILE(QPQUPRFIL) OUTQ(FINANCE/FINTEMP) +
USRDTA(REPORT2)

/* RUN QUERY OF ALL UNMATCHED (UNINVOICED) P.O. RECEIPTS */

/* log entry is 'UNINV PO' */

RUNQRY QRY(FINUNMATCX)

/* RUN 'TURN OF THE YEAR' FOR DIS IF THIS IS END OF JANUARY */

/* log entry is 'TURN YEAR' */

IF COND(&MONTH = '01') THEN(DO)
RTVASWPAR PGM(DMC971) PAID(ENDOFYEAR) USER(*ALL)
EXCASWPGM PGM(DMC971) PARM(N)
ENDDO

/* TAKE COPY OF SROSRO IF THIS IS CALENDAR YEAR END */

/* log entry is 'SRO YEAR' */

IF COND(&MONTH = '12') THEN(DO)
CHGVAR VAR(&FILENAME) VALUE('SROSRO' || &YEAR)
CPYF FROMFILE(SROSRO) +
TOFILE(UP1480BFVA/&FILENAME) CRTFILE(*YES)
CHGVAR VAR(&FILENAME) VALUE('SRBSRO' || &YEAR)
CRTLF FILE(UP1480BFVA/&FILENAME) +
SRCFILE(XX2480BP/QDDSSRC) SRCMBR(&FILENAME)
ENDDO

/* TAKE COPY OF SROSRO IF THIS IS FISCAL YEAR END */

/* log entry is 'SRO FISC' */

IF COND(&MONTH = '01') THEN(DO)
CHGVAR VAR(&FILENAME) VALUE('SROSROF' || +
%SST(&YEAR 3 2))
CPYF FROMFILE(SROSRO) +
TOFILE(UP1480BFVA/&FILENAME) CRTFILE(*YES)
CHGVAR VAR(&FILENAME) VALUE('SRBSROF' || +
%SST(&YEAR 3 2))
CRTLF FILE(UP1480BFVA/&FILENAME) +
SRCFILE(XX2480BP/QDDSSRC) SRCMBR(&FILENAME)
ENDDO

/* RUN PROGRAM TO CREATE WORK FILE OF OUT OF BALANCE PO'S */

/* log entry is 'OOB PO' */

CALL PGM(BAL001CL)

/*ADD ONHANDS TO STATISTICS FILE */

/* log entry is 'ONH2STATS' */

CALL PGM(BLDPERONH) PARM(' ')

/* UNIQUELY IDENTIFY QUERY REPORT SO THAT CATAPULT POLLER CAN FILE IT ON */
/* SUPERSERVER. */

OVRPRTF FILE(QPQUPRFIL) OUTQ(FINANCE/FINTEMP) +
USRDTA(REPORT1)

/* RUN SURPLUS STOCK REPORT */

/* log entry is 'SURP STOCK' */

RUNQRY QRY(STOCKST06X) QRYFILE((*LIBL/SROPRG) +
(*LIBL/SROSRO))

/* FTP INVOICE DETAIL FOR ENDING MONTH TO PHARMASAVE */

/* log entry is 'PHAFTP02CL' */

SBMJOB CMD(CALL PGM(PHAFTP02CL) PARM('00000000' +
'00000000')) USER(PHARMASAVE)

/* BUILD ORDER STATISTICS FILE (SUMORDCST) FOR IN_ORDER01 */

/* log entry is 'BLDSUMORD' */

SBMJOB CMD(CALL PGM(BLDSUMORD) PARM(&CCYYMMA))

/* FTP SALES FOR ENDING MONTH TO IMS */

/* log entry is 'TSADUMPA' */

SBMJOB CMD(CALL PGM(TSADUMPA)) USER(IMSTSA)

/* DELETE OLD TRANSACTIONS */

/* log entry is 'PURGE' */

CALL PGM([[Periodic-Purge|PURGE01]])
MONMSG MSGID(CPF0000)

/* DELETE EDI SPOOL FILES OVER TWO MONTHS OLD */

/* log entry is 'OUTQCLREDI' */

CALL PGM(OUTQCLREDI)
MONMSG MSGID(CPF0000)

[[Category: Overnight Processing]]
[[Category: Articles containing mostly code]]

Sheilav at 21:22, 18 March 2016

2016-03-18T21:22:53Z

Show changes

Sheilav at 23:12, 3 March 2016

2016-03-03T23:12:42Z

Sheilav at 23:45, 29 February 2016

2016-02-29T23:45:22Z

Sheilav at 19:27, 18 February 2016

2016-02-18T19:27:01Z

Sheilav at 17:24, 18 February 2016

2016-02-18T17:24:59Z

Sheilav at 17:20, 18 February 2016

2016-02-18T17:20:07Z

Sheilav at 00:05, 12 February 2016

2016-02-12T00:05:31Z

@@ Line 85: / Line 85: @@
   /* INVENTORY CALCULATIONS                                                 */
   /* log entry is 'IC CALCS'                                                */
              RTVASWPAR  PGM(INVC401) PAID(ICCALCS) USER(*ALL)
              CHGASWLDA  VALUE(&PERIODC) TYPE(*CHAR) STARTPOS(226) +
                           POSITIONS(6)
              EXCASWPGM  PGM(INVC401) PARM(N)
-−
  /* AVERAGE STOCK LEVEL                                                    */

← Older revision		Revision as of 23:12, 3 March 2016
Line 72:		Line 72:
	EXCASWPGM PGM(INVC522) PARM(N)		EXCASWPGM PGM(INVC522) PARM(N)

−	/* INVENTORY CALCULATIONS */
−
−	RTVASWPAR PGM(INVC401) PAID(ICCALCS) USER(*ALL)
−	CHGASWLDA VALUE(&CCYYMMA) TYPE(*CHAR) STARTPOS(226) +
−	POSITIONS(6)
−	EXCASWPGM PGM(INVC401) PARM(N)
−
	/* AVERAGE STOCK LEVEL */		/* AVERAGE STOCK LEVEL */

@@ Line 82: / Line 82: @@
               RTVASWPAR  PGM(INVC522) PAID(ACTFOREPER) USER(*ALL)
               EXCASWPGM  PGM(INVC522) PARM(N)
  /* AVERAGE STOCK LEVEL                                                    */

@@ Line 178: / Line 178: @@
  /* DELETE OLD TRANSACTIONS                                         */
-              CALL       PGM(PURGE01)
+              CALL       PGM([[Periodic-Purge|PURGE01]])
               MONMSG     MSGID(CPF0000)

@@ Line 30: / Line 30: @@
         ')
               CHGASWCOM  COMPANY(VA)
  /* PRINT INVENTORY VALUE                                                  */
               RUNQRY     QRY(STOCKST03A)
               DLTOVR     FILE(QPQUPRFIL)

@@ Line 88: / Line 88: @@
               CHGASWLDA  VALUE(&CCYYMMA) TYPE(*CHAR) STARTPOS(31) +
                            POSITIONS(6)
               EXCASWPGM  PGM(INVC441) PARM(N)
-−
  /* RUN QUERY OF ALL UNMATCHED (UNINVOICED) P.O. RECEIPTS                  */
@@ Line 139: / Line 145: @@
  /*ADD ONHANDS TO STATISTICS FILE                                   */
               CALL       PGM(BLDPERONH) PARM('      ')
-−
  /* RUN SURPLUS STOCK REPORT                                               */

@@ Line 50: / Line 50: @@
                            POSITIONS(6)
               EXCASWPGM  PGM(FSC291) PARM(N)
  /* ACTIVE FORECAST PERIODS                                                */