//TOMEKCAU JOB ('ESRF.DEVELOPMENT'),'TOM.CARNEAL',TIME=1440, // CLASS=A,MSGCLASS=X,MSGLEVEL=(0,0), // NOTIFY=&SYSUID //* //******************************************************************** //* * //* E-SRF EVENT REPORTING UPDATE TEST JOB. * //* * //*------------------------------------------------------------------* //* * //* 1) RESTORE MASTERFILE CLUSTER TO COLD START LEVEL * //* 2) APPLY SOME SMF UPDATE FROM AN ACF2 SYSTEM. * //* 3) BACKUP MASTERFILE CLUSTER. * //* 4) CREATE HTML DOCUMENT FOR ESRF WEB SITE. * //* * //******************************************************************** //* //* ----> RESTORE PREVIOUS COLD STARTED MASTERFILE. //* //RESTORE EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //BACKUP DD DSN=ESRF.LE00450.EKCACF2.MASTER.BACKUP.COLD, // DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD * REPRO IFILE(BACKUP) ODS(ESRF.LE00450.EKCACF2.MASTER) REUSE /* //* //* ----> APPLY SMF JOURNALS VIA ESRF UPDATE FUNCTION. //* //UPDATE EXEC PROG=ESRFCMD, //STEPLIB DD DSN=ESRF.R210.SMP.ESRFLOAD,DISP=SHR //* //MASTER DD DSN=ESRF.LE00450.EKCACF2.MASTER,DISP=SHR //RULES DD DSN=ESRF.LE00450.EKCACF2.RULEOBJ,DISP=SHR //* //REPORTS DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSTRACE DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //* //SMFDUMMY DD DUMMY //SMF001 DD DSN=ESRF.EKCACF2.SMF001,DISP=SHR //SMF002 DD DSN=ESRF.EKCACF2.SMF002,DISP=SHR //SMF003 DD DSN=ESRF.EKCACF2.SMF003,DISP=SHR //SMF004 DD DSN=ESRF.EKCACF2.SMF004,DISP=SHR //SMF005 DD DSN=ESRF.EKCACF2.SMF005,DISP=SHR //SMF006 DD DSN=ESRF.EKCACF2.SMF006,DISP=SHR //SMF001T DD DSN=ESRF.EKCACF2.SMF001T,DISP=SHR //SMF002T DD DSN=ESRF.EKCACF2.SMF002T,DISP=SHR //SMF003T DD DSN=ESRF.EKCACF2.SMF003T,DISP=SHR //SMF004T DD DSN=ESRF.EKCACF2.SMF004T,DISP=SHR //SMF005T DD DSN=ESRF.EKCACF2.SMF005T,DISP=SHR //* //CMD.SYSPRINT DD DSN=ESRF.LE00450.EKCACF2.REPORT.UPDATE,DISP=SHR //SYSIN DD * OPTION GROUPING(NONE) * OPTION SYSTEMDATE(01/01/02) * DEBUG TRACE(ON) * DEBUG GCP * DEBUG TOR CACHE ON UPDATE RSS(ACF2) DDNAME(SMF001) UPDATE RSS(ACF2) DDNAME(SMF002) UPDATE RSS(ACF2) DDNAME(SMF003) UPDATE RSS(ACF2) DDNAME(SMF004) UPDATE RSS(ACF2) DDNAME(SMF005) UPDATE RSS(ACF2) DDNAME(SMF006) UPDATE RSS(ACF2) DDNAME(SMF001T) UPDATE RSS(ACF2) DDNAME(SMF002T) UPDATE RSS(ACF2) DDNAME(SMF003T) UPDATE RSS(ACF2) DDNAME(SMF004T) UPDATE RSS(ACF2) DDNAME(SMF005T) RUN REPORT(ESRFDICT) DD(DICT) RUN REPORT(ESRFSTAT) DD(STAT) RUN REPORT(ESRFSHOW) DD(SHOW) /* //* //* ----> BACKUP MASTERFILE CLUSTER. //* //BACKUP EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //MASTER DD DSN=ESRF.LE00450.EKCACF2.MASTER,DISP=SHR //BACKUP DD DSN=ESRF.LE00450.EKCACF2.MASTER.BACKUP.UPDATE,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD * REPRO IFILE(MASTER) OFILE(BACKUP) REUSE //* //* ----> FORMAT SYSPRINT TO HTML DOCUMENT FOR WEB SITE. //* //HTML EXEC PGM=ESRFHTML //STEPLIB DD DSN=ESRF.R210.SMP.ESRFLOAD,DISP=SHR //PRINTIN DD DSN=ESRF.LE00450.EKCACF2.REPORT.UPDATE,DISP=SHR //HTMLOUT DD DSN=ESRF.LE00450.HTML,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * TITLE=ESRF SAMPLE UPDATE JOB FOR A TEST ACF2 SYSTEM /*