This documents the procedure for repopulating the Test LPAR from the Prod LPAR.  It assumes the Test LPAR has:

 

 

The latter two items could theoretically be built from INSTALL jobs, as when the system was delivered. I would like to have these jobs ready and ‘on-the-shelf’, even if it means we must manually reconstruct them and keep them up-to-date.

 

      The environment in which the repopulation will occur will be progressively made more general, aimed at an eventual ability to capture data on a daily basis for propagation to a Disaster Recovery site. The first effort, documented here, is to capture the data while Invision is down for a monthly CDReOrg on a Thursday morning.

 

            Steps 1-2 can be done any time before the repopulation. Steps 3-5 build Invision libraries and should be timed to capture the same level of datasets as will be in Production for the CDReOrg Dayend cycle.  That is, if no Invision updates are being applied Wednesday evening, steps 1-5 may all be run during the day on Wednesday, but if a SUT is being applied Wednesday evening, steps 3-5 should be done after the SUT Apply.

 

1) Test LPAR:

      Delete PDSMS.** files (not GDG Bases or ‘pointer’ files)

      Empty  these libraries:

         PLSMS.SMSSM00L.P0000.PROC          

         PLSMS.SMSSM00L.P0000.CLIST         

         PLSMS.SMSSM00L.P0000.PANELS        

         PLSMS.SMSSM00L.P0000.MSG           

         PLSMS.SMSSM00L.P0000.SKELS         

         PLSMS.SMISM00L.P0000.LOAD          

         PLSYS.SMLSM00L.CEEROPT.LOAD        

         PLSYS.SMLSM00L.ESMRACF.LOAD        

         PLSYS.SMLSM00L.E0000.LOAD          

         PLSYS.SMLSM00L.P0000.LOAD          

         PMHH.CICS.LOADLIB    

             

2) VARY addresses 989 and 990 online to both LPARs

    Empty RLS0.** files on UNA990 via ISPF 3.2 Display/Delete/Allocate

 

3) Prod: RLS0.PRODLPAR.DUMPJCL(PLSMS001)

   Test: RLS0.TESTLPAR.COPYJCL(TLSMS001)

   Prod: RLS0.PRODLPAR.DUMPJCL(PLSMS002)

   Test: RLS0.TESTLPAR.COPYJCL(TLSMS002)

 

4) Test LPAR: Console Command 'F LLA,REFRESH'


5) Test LPAR:

      RLS0.TESTLPAR.COPYJCL(TKRPDYND) to PLSMS.SMSSM00l.P0000.PROC

      or remove HSIT changes to this proc.

   

      Edit MIDDRG01 to do only Start/End - no actual work

 

      Edit PAP02/05/08/10/0C/24 to have RUNCYCLE=N in all CMPINIT steps

 

      Edit CCPCI#01 to remove/comment CANDLE datasets


      Change OAP08#01 PDSMS.CC01.DUMMY to DUMMY(+1) and NEW,CATLG,DELETE if TMM in place

 

6) At CDReOrg time in Prod Dayend cycle:

 

     Take down A2K per the jobflow for CDReOrg.

     When Reorg jobs start, kill GSPJ1$01.

     When Reorg finishes, the system will be idle.

 

7) Prod: RLS0.PRODLPAR.DUMPJCL(DOWNICDA)

         RLS0.PRODLPAR.DUMPJCL(DOWNOASA) – goes to tape

         RLS0.PRODLPAR.DUMPJCL(DOWNXASA) – goes to tape

 

8) Prod: S PSYSJOBS,J=GSPJ1$01 and finish Dayend cycle

 

9) Test: RLS0.TESTLPAR.COPYJCL(RESTICDA)

            Restore from output of Prod DOWNICDA job

         RLS0.TESTLPAR.COPYJCL(RESTAPE5) (set with tape volser)

            Restore from output of Prod DOWNOASA job

         RLS0.TESTLPAR.COPYJCL(RESTAPE6) (set with tape volser)

            Restore from output of Prod DOWNXASA job

 

10) Wait for Prod Dayend cycle to complete.


11) Run these jobs after Prod Dayend cycle completes.
These all dump/restore using the same intermediate dataset on 989.
Run one job from Prod, then the matching job from Test

 

    Prod LPAR COPYxxxx jobs are in RLS0.PRODLPAR.DUMPJCL

    Test LPAR RESTxxxx jobs are in RLS0.TESTLPAR.COPYJCL

   

COPYCICS - RESTCICS                  

COPYDDEF - RESTDDEF                 

COPYDOC  - RESTDOC                

COPYND2  - RESTND2               

COPYSPCK - RESTSPCK               

COPY00AH - REST00AH               

COPY00AR - REST00AR

COPY00AZ - REST00AZ

COPY00BD - REST00BD

COPY00BN - REST00BN

COPY00C1 - REST00C1

COPY00GA - REST00GA

COPY00GL - REST00GL

COPY00GQ - REST00GQ

COPY00GS - REST00GS

COPY00HE - REST00HE

COPY00HF - REST00HF

COPY00HM - REST00HM

COPY00IM - REST00IM

COPY00IP - REST00IP      

COPY00IR - REST00IR      

COPY00MS - REST00MS

COPY00OO - REST00OO

COPY00OP - REST00OP

COPY00PC - REST00PC

COPY00PF - REST00PF

COPY00RE - REST00RE

COPY00RS - REST00RS

COPY00SC - REST00SC

COPY00XX - REST00XX

TOPY00ND - RESTAPE1 (set with tape volser)

TOPY00PA - RESTAPE2 (set with tape volser)

TOPY00PC - RESTAPE3 (set with tape volser)

TOPY00TI - RESTAPE4 (set with tape volser)

TOPY00HM – RESTAP99 (set with tape volser)

 


12) After DASD files are laid down on Test LPAR, run these jobs from

    RLS0.TESTLPAR.COPYJCL (unless otherwise noted):

 

    GQBUILD

      (Allocate, format, 'gen' PDSMS.SMGQ.DGA7.DATA/TABLES/CKPOINT)

    CCDRM$$$ - Create SITE Table

    OASMAKE (set with tape volser, GDGs)

    OAXFIX1

    OAXFIX2

    LOGSDELT

    LOGSPROD

    PCX2DA7V

    PIDXGEN0 (customize - copy prod tape to test tape)

    PCX2PA7V

    RSX2RA7V

    OOX2SA7V

    PLSMS.SMSSM00L.P0000.SYSJOBS

      (OAD1AA7V)

      (OAD1BA7V)

    PCXS1A7V

    NDX03#01

    DEFDOC (customized)

    PLSMS.SMSSM00L.P0000.SYSJOBS

      (OAD69#01)

    PLSMS.SMSSM00L.P0000.SYSJOBS

      (PCD05A7V)

      (PCD06A7V)

      (PCD07A7V)

      (PCD08A7V)

      (PCD10A7V)

 

13) Set PLSMS.SMSSM00L.P0000.PARMS(STARTUP) to 'START=INITIAL,'

 

14) S A2K

    Logon and validate basic functionality

    Clean up for special environment

       Delete printers from DRSVASP1/2/3/4

       Stop/Off Openlink interfaces

       CMONSTOP  

 


16) Create (+1) of Test LPAR tapes from (0) Prod LPAR tapes

 

    Determine DSNs and Volsers for (0) Prod LPAR GDGs.

    Handcarve Test LPAR JCL to create Test LPAR (+1)GDGs

 

PDSMS.SMHM.DGA7HCV0.HMMASTER(0)                       

PDSMS.SUPA.CC01.ARCHIVE(0)                              

PDSMS.SUPA.DGA7.PATPOUT(0)                               

PDSMS.SUHF.DGA7HCV0.PRODHIF(0)                          

PDSMS.SMOP.DGA7.AIMASTER(0)                             

PDSMS.SUAR.DGA7.ARMASTER(0)                             

PDSMS.SUBD.DGA7.BDMASTER(0)                              

PDSMS.SUOP.DGA7.OPMASTER(0)                            

PDSMS.SUPA.DGA7.HIMASTER(0)                          

PDSMS.SUAZ.DGA7.AHCATALG(0)                              

PDSMS.SUCG.DGA7.REVENUE(0)                               

PDSMS.SUGS.DGA7.COMPROF(0)                              

PDSMS.SUGS.DGA7.DAILYE.QSAM(0)                          

PDSMS.SUGS.DGA7.DAILYE.VSAM(0)                          

PDSMS.SUGQ.DGA7.GQPRINT(0)                              

PDSMS.SUHE.DGA7HCV0.CHPEVA70(0)                         

PDSMS.SUHF.DGA7HCV0.ACCMLBKP(0)                         

PDSMS.SUHF.DGA7HCV0.HHOLDBKP(0)                         

PDSMS.SUHF.DGA7HCV0.HPROFBKP(0)                         

PDSMS.SUHF.DGA7HCV0.PRODBKP(0)                           

PDSMS.SUOA.CC01.AHCATALG(0)                             

PDSMS.SUOA.DGA7.ACTLOG(0)                               

PDSMS.SUOA.DGA7.ACTPURGE(0)                             

PDSMS.SUOA.DGA7HCV0.LOGFILE(0)                          

PDSMS.SUOA.DGA7HCV0.LOGFIL2(0)                          

PDSMS.SUOA.DGA7HCV0.LOGFIL3(0)                          

PDSMS.SUOA.DGA7HCV0.LOGFIL4(0)                          

PDSMS.SUPC.CC01.FILEBKUP(0)                             

PDSMS.SUPC.CHPDVA7.PCPURG0(0)                            

PDSMS.SUPC.DGA7HCV0.ARCHFILE(0)                         

PDSMS.SUPC.DGA7HCV0.ARCHIVE(0)                          

PDSMS.SUPC.DGA7HCV0.CHPDVA70(0)                         

PDSMS.SUPC.DGA7HCV0.CHPPVA70(0)                         

PDSMS.SUPC.DGA7HCV0.FILEBKUP(0)                         

PDSMS.SUPC.DGA7HCV0.TIKLRFIL(0)                         

PDSMS.SUPF.DGA7HCV0.REFFILE(0)                          

PDSMS.SURS.DGA7HCV0.CHPRVA70(0)                          

PDSMS.SUSM.CP01.RGSMFDMP(0)                             

PDSMS.SMGL.DGA7.GLISCENT(0)                             

PDSMS.SMGQ.DGA7.GQA(0)                                  

PDSMS.SMGQ.DGA7.GQMAINT(0)                              

PDSMS.SMPA.CCITRANS.TAPE(0)                              

PDSMS.SMPA.DGA7.CWSTMSTR(0)                             

PDSMS.SMPA.DGA7.GQAMWRPT(0)                              

PDSMS.SMPA.DGA7.GQAREV(0)                               

PDSMS.SMPA.DGA7.LOGMSTR(0)                              

PDSMS.SMPA.DGA7.PAMTDBMD(0)                             

PDSMS.SMPC.CHPDVA7.GMUMAP(0)                            

PDSMS.SMPC.DGA7HCV0.ARCHFILE(0)                         

PDSMS.SMPC.DGA7HCV0.PTUMONTH(0)                         

PDSMS.SMOA.CC01.TAPEARCH(0)

 

 

17) Run a Dayend cycle on Test LPAR

 

    If HEP03A7V bombs, run HED01A7V and post HEP03A7V complete.

    (This can occur because data was offloaded during a CDReOrg, the

     first Dayend on Test LPAR will not be CDReOrg and this daily job

     behaves differently during CDReOrg. It may get confused.)

 

18) Shake A2K thoroughly

       Patient registration, Accounting, etc

 

19) Repeat Dayend cycles to test:

 

      MonthEnd processing

      Saturday processing

      Sunday processing

      PCPurge processing

      CDReOrg processing