//UTB00X JOB NOTIFY=&SYSUID,TIME=(,4) //JOBLIB DD DSN=UTB00.CA01.LOADLIB,DISP=SHR //*--------------------------------------- //* SORTERA FREQFIL1 PÅ FLIGHTDATE //*--------------------------------------- //SORTIT EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=UTB00.CA01.COBDATA(FREQFIL1),DISP=SHR //SORTOUT DD DSN=&&FLIGHTS,DISP=(,PASS),SPACE=(TRK,(5,2)), // RECFM=FB,LRECL=80 //SYSIN DD * SORT FIELDS=(2,6,CH,A) //*--------------------------------------- //* SKAPA EN FREQFIL I ORIGINAL VID TEST //*--------------------------------------- //SKAPA1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDATA DD DSN=&&FLIGHTS,DISP=(OLD,PASS) //SYSIN DD * DELETE UTB00.CA01.FREQFILE DEFINE CLUSTER ( - NAME(UTB00.CA01.FREQFILE) - INDEXED - KEYS(5,1) - RECORDSIZE(80,80) - RECORDS(200) - VOLUMES(USR001) - ) REPRO INFILE(INDATA) - ODS(UTB00.CA01.FREQFILE) //*--------------------------------------- //* SKAPA EN BACKUP-GDG(+1) //*--------------------------------------- //STEG1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDATA DD DSN=UTB00.CA01.FREQFILE,DISP=OLD //UTDATA DD DSN=UTB00.CA01.FREQGDG(+1),DISP=(,CATLG), // SPACE=(TRK,(5,2)),RECFM=FB,LRECL=80,VOL=SER=PETERS //SYSIN DD * REPRO INFILE(INDATA) OUTFILE(UTDATA) //*--------------------------------------- //* KÖR FREQUPDDT MED FREQTRAN //*--------------------------------------- //* // IF RC = 0 THEN //* //STEGUPD EXEC PGM=FREQUPDT //FREQFDD DD DSN=UTB00.CA01.FREQFILE,DISP=OLD //FREQMDD DD DSN=UTB00.CA01.FREQMILE,DISP=OLD //FREQLDD DD SYSOUT=* //FREQTDD DD DSN=UTB00.CA01.COBDATA(FREQTRAN),DISP=SHR //* // IF STEGUPD.RC = 100 OR STEGUPD.ABEND THEN //* //*--------------------------------------- //* ÅTERSKAPA FRÅN BACKUP-GDG(+1) //*--------------------------------------- //SKAPA2 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDATA DD DSN=UTB00.CA01.FREQGDG(+1),DISP=OLD //SYSIN DD * DELETE UTB00.CA01.FREQFILE DEFINE CLUSTER ( - NAME(UTB00.CA01.FREQFILE) - INDEXED - KEYS(5,1) - RECORDSIZE(80,80) - RECORDS(200) - VOLUMES(USR001) - ) REPRO INFILE(INDATA) - ODS(UTB00.CA01.FREQFILE) //* // ENDIF // ENDIF //*--------------------------------------- //* S L U T //*---------------------------------------