//TOMEKCRC JOB ('ESRF/ACF2 DEVELOPMENT'),'TOM.CARNEAL', // CLASS=A,MSGCLASS=X,MSGLEVEL=(0,0), // NOTIFY=&SYSUID //* //******************************************************************** //* * //* COLD-START ESRF * //* * //*------------------------------------------------------------------* //* * //* CHECK UPDATE SYSPRINT FOR POSSIBLE OVERRIDE. * //* * //* --> DELETE/DEFINE VSAM CLUSTER WITH DUMMY RECORD. * //* --> INITIALIZE ESRF CLUSTER. * //* --> CONFIGURE IMAGE: SYSTEM1, SYSTEM2 AND EKC. * //* --> SYNCHRONIZE IMAGE: SYSTEM1, SYSTEM2 AND EKC. * //* --> RUN ESRFSHOW, ESRFSTAT AND ESRFDICT. * //* --> CREATE HTML DOCUMENT FOR WEB SITE. * //* * //******************************************************************** //* //* ----> ALLOCATE EMPTY ESRF MASTERFILE VSAM CLUSTER. //* //DEFINE EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INPUT DD * A CONTROL //* //SYSIN DD * DELETE ESRF.LE00450.EKCACF2.MASTER PURGE DEFINE CLUSTER - ( NAME(ESRF.LE00450.EKCACF2.MASTER) - OWNER(CARNEAL) - VOLUME(SYSV08) - SHAREOPTIONS(2 3) - SPEED - REUSE ) - DATA - ( NAME(ESRF.LE00450.EKCACF2.MASTER.DATA) - KEYS(62 0) - SPANNED - RECORDS(1500 500) - RECORDSIZE(2048,8192) - FREESPACE(0 0)) - INDEX - ( NAME(ESRF.LE00450.EKCACF2.MASTER.INDEX) ) REPRO IFILE(INPUT) ODS(ESRF.LE00450.EKCACF2.MASTER) //* //* ----> INITIALIZE EMPTY VSAM CLUSTER FOR ACF2 REPORTING. //* //COLD EXEC PGM=ESRFCMD,REGION=0M //STEPLIB DD DSN=ESRF.R210.SMP.ESRFLOAD,DISP=SHR //MASTER DD DSN=ESRF.LE00450.EKCACF2.MASTER,DISP=SHR //RULES DD DSN=ESRF.LE00450.EKCACF2.RULEOBJDISP=SHR //* //REPORTS DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSTRACE DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //* //BKLIDS DD DSN=ESRF.EKCACF2.BKLIDS,DISP=SHR //ZEBRA1 DD DSN=ESRF.EKCACF2.BKLIDS.ZEBRA1,DISP=SHR //ZEBRA2 DD DSN=ESRF.EKCACF2.BKLIDS.ZEBRA2,DISP=SHR //ACF2PARM DD DSN=ESRF.LE00450.EKCACF2.ACF2PARM,DISP=SHR //PARMZ1 DD DSN=ESRF.LE00450.EKCACF2.ACF2PARM.ZEBRA1,DISP=SHR //PARMZ2 DD DSN=ESRF.LE00450.EKCACF2.ACF2PARM.ZEBRA2,DISP=SHR //CMD.SYSPRINT DD DSN=ESRF.LE00450.EKCACF2.REPORT.COLD,DISP=SHR //* //SYSIN DD * * OPTION GROUPING(NONE) OPTION SYSTEMDATE(01/01/02) * DEBUG TRACE(ON) * DEBUG TOR * DEBUG GCP CACHE ON INITIALIZE RESET SET NOBANNERS - MAXLINES(58) - ELEMENTS(32767) - * ELEMENTS(2048) - GDG(TRUNCATE) - EXCLUDE(NONE) - DATASET(DATASET) - USERID(USERS) - SOURCE(SOURCES) - SYSIDGROUPING(DOMAIN) - TITLE(ESRF LE00450 MASTERFILE RENDERED FROM EKC ACF2 SYSTEM) RETAIN RESET RETAIN OBJECT(FC) DAYS(4095) * RETAIN OBJECT(MC) DAYS(4095) RETAIN OBJECT(RC) DAYS(4095) RETAIN OBJECT(RM) DAYS(4095) RETAIN OBJECT(RR) DAYS(4095) RETAIN OBJECT(RS) DAYS(4095) RETAIN OBJECT(SR) DAYS(4095) RETAIN OBJECT(SU) DAYS(4095) RETAIN OBJECT(UA) DAYS(4095) RETAIN OBJECT(UB) DAYS(4095) RETAIN OBJECT(UC) DAYS(4095) RETAIN OBJECT(UF) DAYS(4095) RETAIN OBJECT(UM) DAYS(4095) RETAIN OBJECT(UR) DAYS(4095) RETAIN OBJECT(US) DAYS(4095) RETAIN OBJECT(UT) DAYS(4095) CONFIGURE IMAGE(EKC) - DDNAME(ACF2PARM) - PARAMETER() - NAME(EKC ACF2 SYSTEM) - RSS(ACF2) - RESET CONFIGURE IMAGE(ZEBRA1) - DDNAME(PARMZ1) - PARAMETER() - NAME(EKC ZEBRA 1) - RSS(ACF2) - RESET CONFIGURE IMAGE(ZEBRA2) - DDNAME(PARMZ2) - PARAMETER() - NAME(EKC ZEBRA 2) - RSS(ACF2) - RESET ASSIGN DOMAIN(CHGO****) IMAGE(ZEBRA2) - NAME(EKC SYSTEM 2) ASSIGN DOMAIN(********) IMAGE(ZEBRA1) - NAME(DEFAULT ALL TO EKC) SYNCHRONIZE IMAGE(EKC) DDNAME(BKLIDS) SYNCHRONIZE IMAGE(ZEBRA1) DDNAME(ZEBRA1) SYNCHRONIZE IMAGE(ZEBRA2) DDNAME(ZEBRA2) RUN REPORT(ESRFSHOW) DD(SHOW) RUN REPORT(ESRFDICT) DD(DICT) RUN REPORT(ESRFSTAT) DD(STAT) //* //* ----> BACKUP MASTERFILE TO ALLOW US TO RE-RUN UPDATE AT WILL. //* //BACKUP EXEC PGM=IDCAMS //* //MASTER DD DSN=ESRF.LE00450.EKCACF2.MASTER,DISP=SHR //BACKUP DD DSN=ESRF.LE00450.EKCACF2.MASTER.BACKUP.COLD,,DISP=SHR //* //SYSPRINT DD SYSOUT=* //SYSIN DD * REPRO IFILE(MASTER) OFILE(BACKUP) REUSE //* //* ----> FORMAT 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.COLD,DISP=SHR //HTMLOUT DD DSN=ESRF.LE00450.HTML,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * TITLE=ESRF SAMPLE COLD JOB FOR A TEST ACF2 SYSTEM /*