!JOB MOPCOMPT,MGR.CFST,PRPUB;OUTCLASS=,1;PRI=ES;INPRI=7;TIME=3000 ! !# JOB TO COMPILE ALL POWERHOUSE QUICK, QUIZ & QTP for MOPPS !# Ron Tilby ! !SETVAR PHGROUPX "PH729C8" !RESET PHD ! !# Set LIVEJCW = 1 If compiling for moving to FINACT else 0 !SETVAR LIVEJCW 0 ! !# Compile PDL Dictionary. ! !IF LIVEJCW = 1 THEN ! PURGE PHDTST ! COPY PHD, PHDTST ! PURGE PHD ! PURGE PHDLIVE ! PDL "AUTO=PDLSRC.PRQSRC.CFST NOLIST CC=(FINACT)" VERS=!PHGROUPX EXIT !EOD ! IF JCW = 2 THEN ! ESCAPE 976 ! ENDIF ! RENAME PHD, PHDLIVE ! EOJ ! !ELSE ! PURGE PHDOLD ! IF FINFO('PHD','EXISTS') THEN ! COPY PHD, PHDOLD ! PURGE PHD ! ENDIF ! SHOWJCW ! PDL "AUTO=PDLSRC.PRQSRC.CFST NOLIST" VERS=!PHGROUPX EXIT !EOD ! IF JCW = 2 THEN ! ESCAPE 976 ! ENDIF ! SHOWJCW ! PURGE PHD.FXPUB ! COPY PHD, PHD.FXPUB !ENDIF ! !TELL RTILBY,MGR.CFST Dictionary compile completed ! !MPEX # Delete some permanent subfiles to avoid subfile versioning # conflicts when going to a new PH release. PURGE BENCEN.PRPUB(CODE = '644') PURGE BENFEED.PRPUB PURGE COMPGRP.PRPUB(CODE = '644') PURGE CUTBAK.PRPUB(CODE = '644') PURGE ECAP2VG.PRPUB(CODE = '644') PURGE ECAPTOT.PRPUB(CODE = '644') PURGE HEWITT.PRPUB(CODE = '644') PURGE KDIR02.PRPUB(CODE = '644') PURGE KDED.PRPUB(CODE = '644') PURGE TCAPS015.PRPUB(CODE = '644') PURGE TCDEBUG.PRPUB(CODE = '644') PURGE TIM2HIR.PRPUB(CODE = '644') # Find & Compile the programs from Production source # that aren't in the test acct. PURGE XNOTDUPS PURGE XNOTDUPS,TEMP DIRCOMP.PRCOMP.FINTST @.PRQSRC.FINACT, PRQSRC.CFST >> XNOTDUPS QDESIGNX.PRCOMP.FINTST ^XNOTDUPS QUIZX.PRCOMP.FINTST ^XNOTDUPS QTPX.PRCOMP.FINTST ^XNOTDUPS PURGE XNOTDUPS PURGE XNOTDUPS,TEMP DIRCOMP.PRCOMP.FINTST @.FXQSRC.FINACT, FXQSRC.CFST >> XNOTDUPS QDESIGNX.PRCOMP.FINTST ^XNOTDUPS QUIZX.PRCOMP.FINTST ^XNOTDUPS QTPX.PRCOMP.FINTST ^XNOTDUPS QDESIGNX.PRCOMP.FINTST @.PRQSRC.CFST QUIZX.PRCOMP.FINTST @.PRQSRC.CFST QTPX.PRCOMP.FINTST @.PRQSRC.CFST QDESIGNX.PRCOMP.FINTST @.FXQSRC.CFST QUIZX.PRCOMP.FINTST @.FXQSRC.CFST QTPX.PRCOMP.FINTST @.FXQSRC.CFST EXIT ! !# Compile some programs that are missed otherwise, but !# need to be compiled. ! !QTP VERS=!PHGROUPX SET DEFAULT USE ADJ415.PRQSRC.FINACT NOLIST SET DEFAULT USE BNKLIF1.PRQSRC.FINACT NOLIST USE BNKLIF3.PRQSRC.FINACT NOLIST SET DEFAULT USE BOND1.PRQSRC.FINACT NOLIST SET DEFAULT USE PER014B.PRQSRC.FINACT NOLIST SET DEFAULT USE RATRPT1.PRQSRC.FINACT NOLIST EXIT ! !QUIZ VERS=!PHGROUPX USE BNKLIF2.PRQSRC.FINACT NOLIST SET DEFAULT USE LABTRN1.PRQSRC.FINACT NOLIST SET DEFAULT USE PER092.PRQSRC.FINACT NOLIST EXIT ! !MPEX LISTF @.FXOBJ(CODE > '639' AND CODE < '700' AND CREDATE < TODAY),2 LISTF @.PROBJ(CODE > '639' AND CODE < '700' AND CREDATE < TODAY),2 ALTFILE @.FXOBJ(CREATOR <> "MGR");CREATOR = MGR;KEEPAMDATES ALTFILE @.PROBJ(CREATOR <> "MGR");CREATOR = MGR;KEEPAMDATES EXIT ! !EOJ