Newsgroups: bit.listserv.notis-l
Date:         Fri, 6 Nov 1992 08:55:20 EST
Comments:     Converted from PROFS to RFC822 format by PUMP V2.2
From:         Dan Kirchner <344PWCF@CMUVM.BITNET>
Subject:      Forward Recovery Problem

//************* YOUR LB965JC JOB STATEMENT HERE ************************
//OUT1  OUTPUT JESDS=ALL
//JOBLIB   DD DSN=HLQ.NOTIS.LOADLIB,DISP=SHR
//*******************************************************************
//*          GENERATES A BACKUP TAPE USED AS INPUT
//*      TO LB968JOB WHICH REBUILDS THE ONLINE FILES.
//*      PARM='UPSI=XXXXXXXX'     WHERE
//*      00100000 --> SUPPRESS CONSOLE LOGGING
//*      00010000 --> PROCESS ONLY ONE JOURNAL EXTENT
//*******************************************************************
//LB965010 EXEC PGM=IEFBR14
//UOUT     DD DSN=HLQ.LB965JOB.JOURN04X,DISP=(MOD,DELETE),
//         UNIT=SYSDA,SPACE=(CYL,0)
//*******************************************************************
//LB965020 EXEC PGM=LB965,
//         PARM='UPSI=00110000,FROM=07-31-92,TO=07-31-92'
//JOURNLA  DD   DSN=CICS.JOURN04A,DISP=SHR
//         DD   DSN=CICS.JOURN04B,DISP=SHR
//UOUT     DD DSN=HLQ.LB965JOB.JOURN04X,
//         UNIT=SYSDA,
//         SPACE=(CYL,(9,2),RLSE),
//         DISP=(NEW,CATLG,DELETE),
//         DCB=(RECFM=VB,BLKSIZE=16376,LRECL=6100)
//LILIST   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//*
//************* YOUR LB968JC JOB STATEMENT HERE ************************
//OUT1  OUTPUT JESDS=ALL
//JOBLIB   DD DSN=HLQ.NOTIS.LOADLIB,DISP=SHR
//*******************************************************************
//*******************************************************************
//*09-13-89,DK,READIED FOR PRODUCTION
//*******************************************************************
//* THIS JCL RECOVERS THE PATRON FILE ONLY
//* THIS JCL RECOVERS THE PATRON FILE ONLY
//*******************************************************************
//*******************************************************************
//* THIS JCL EXPECTS A DATAFILE FROM LB965JOB WHICH IS A RECONSTITUTED
//* FORM OF JOURNAL04.  ALSO EXPECTED IS THE VSAM CLUSTER WHICH HAS
//* BEEN LOST (DUE TO A DISK CRASH, ETC.).  THIS HAS TO BE RESTORED FROM
//* A 3480 CARTRIDGE CREATED WHEN THE LAST BACKUP PROCESS WAS PERFORMED
//* BY OPERATIONS PERSONNEL (USUALLY DONE NIGHTLY).
//* THIS JOBSTREAM WILL REPRO THE VSAM CLUSTER (AS RESTORED FROM BACKUP
//* CARTRIDGE) TO A FLAT FORMAT, WHICH, WHEN SORTED WITH THE JOURNAL04
//* RECONSTITUTED FILE, PRODUCES A FINISHED FILE REPRESENTING THE VSAM
//* RECOVERED DATA.  THE LAST STEP IS A REPRO WHICH COMPLETES THE
//* REBUILDING OF THE VSAM CLUSTER TO THE UP-TO-THE-MINUTE STATUS AT
//* THE DATE/TIME WHEN THE VSAM CLUSTER WAS ORIGINPALLY LOST DUE TO
//* THE DISASTER.
//*******************************************************************
//*******************************************************************
//DELFLAT1    EXEC PGM=IEFBR14
//DDFLAT      DD  DSN=HLQ.LINPATF.FLAT,DISP=(MOD,DELETE),
//            SPACE=(TRK,(0,0)),UNIT=SYSDA
//DDFLATN     DD  DSN=HLQ.LINPATF.FLATNEW,DISP=(MOD,DELETE),
//            SPACE=(TRK,(0,0)),UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//*******************************************************************
//REPFLAT     EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INVSAM      DD DSN=HLQ.LINPATF.KSDS,
//            DISP=SHR
//OUTFLAT     DD DSN=HLQ.LINPATF.FLAT,
//            DISP=(NEW,PASS,DELETE),SPACE=(CYL,(30),RLSE),
//            UNIT=SYSDA,
//            DCB=(RECFM=VB,BLKSIZE=7200,LRECL=7196)
//SYSIN       DD *
 REPRO     INFILE(INVSAM) OUTFILE(OUTFLAT)
/*
//*******************************************************************
//LB968EX  EXEC PGM=SORT
//SORTLIB  DD DSN=SORT.SORTLIB,DISP=SHR
//LINPATF  DD DSN=HLQ.LINPATF.KSDS,   <-KSDS TO BE REBUILT
//            DISP=SHR
//BACKUP   DD DSN=HLQ.LINPATF.FLAT,   <-REPRO'D FROM CSV RESTORED KSDS
//            DISP=SHR
//SORTIN   DD DSN=HLQ.LB965JOB.JOURN04, <-TRIMMED JRNL FILE FRM LB965
//            DISP=SHR
//SORTOUT  DD DSN=HLQ.LINPATF.FLATNEW, <-REBUILT KSDS FLAT FILE
//            UNIT=SYSDA,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(30,10),RLSE),
//            DCB=(RECFM=VB,LRECL=7196,BLKSIZE=7200)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100))
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100))
//SYSUDUMP DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//*   WHEN RESTORING PATRON FILE, SORT PARAMETER SHOULD BE:
//*         FIELDS=(28,4,BI,A,13,7,PD,D)
//*   FOR RESTORING ALL OTHER FILES, IT SHOULD BE:
//*         FIELDS=(28,10,BI,A,13,7,PD,D)
//SYSIN    DD *
 SORT      FIELDS=(28,4,BI,A,13,7,PD,D)     SEE ABOVE FOR ANY CHANGES
 RECORD    TYPE=V,LENGTH=(7196,,7100,37,400)
 MODS      E35=(LB968,65536,JOBLIB,N)
 INCLUDE   COND=(5,8,CH,EQ,C'LINPATF',AND,   INSERT CICS FCT NAME
                 13,7,PD,GE,0922120000000,   DATE/TIME 0YYDDDHHMMSS0
                 AND,29,9,CH,NE,C'HLQ.INPA')
/*
//****NOTE:  DATE/TIME IS THE DATE AND TIME OF THE LAST FILE BACKUP.
//****       ONLY THE TRANSACTIONS SINCE THAT TIME WILL BE APPLIED.
//*****************************************************************
//*   COPY FLAT TO VSAM CLUSTER
//*****************************************************************
//REPPATRF    EXEC PGM=IDCAMS,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INFLAT      DD DSN=HLQ.LINPATF.FLATNEW,
//            DISP=SHR
//OUTVSAM     DD DSN=HLQ.LINPATF.KSDS,
//            DISP=SHR
//SYSIN       DD *
 REPRO     INFILE(INFLAT) OUTFILE(OUTVSAM) -
           REPLACE
/*
//*****************************************************************
//*   CLEAN UP EXCESS FILES                                       *
//*****************************************************************
//DELFLAT2    EXEC PGM=IEFBR14,COND=(0,LT)
//DDFLAT      DD  DSN=HLQ.LINPATF.FLAT,DISP=(MOD,DELETE),
//            SPACE=(TRK,(0,0)),UNIT=SYSDA
//DDFLATN     DD  DSN=HLQ.LINPATF.FLATNEW,DISP=(MOD,DELETE),
//            SPACE=(TRK,(0,0)),UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU