Start of change

DWWCLIST - ISPF dialog interface

The next step to verify the CICS VR installation requires activating the CICS VR ISPF interface.

See Setting up the ISPF interface to set up the CICS VR interface in. Assume that the CLIST created is available for this IVP step.
  1. Start CICS VR dialog by issuing this command EXEC‘DWW.V430.SDWWCNTL(DWWCLIST) to display the "CICS VR main menu".
  2. Select option 5 from the "CICS VR main menu".
  3. Edit the JCL skeleton, job and DD statements.
    • Ensure that hlq.DWWEXLD and hlq.SDWWLOAD and hlq.DWWLENU are added to STEPLIB.
    • Ensure the correct RCDS names are allocated to the DWWCON1, DWWCON2 and DWWCON3 DD names.
    • Use a set of temporary RCDS data sets for the IVP process.
    • Use a copy of DWWCLIST to run the ISPF interface for the IVP.
    • You must specify the real RCDS data set names in the production DWWCLIST.
    • The example below shows the JCL skeleton used in this CICS VR environment.
      Figure 1. JCL skeleton
      //CICSRS3&CJOBCHAR JOB (ACCOUNT),MSGLEVEL=(1,1),NOTIFY=&&SYSUID,
      //             MSGCLASS=X,CLASS=A,REGION=4M
      /*JOBPARM L=9999,SYSAFF=SC66
      )SEL &CUTIL NE REORG && &CUTIL NE BACKUP
      //DWW      PROC
      //RECOVER  EXEC PGM=DWWCO
      //STEPLIB  DD DSN=DWW.V430.SDWWLOAD,DISP=SHR
      //         DD DSN=DWW.V430.SDWWLENU,DISP=SHR
      //         DD DSN=DWW.V430.DWWEXLD,DISP=SHR
      //DWWMSG   DD SYSOUT=*
      //DWWPRINT DD SYSOUT=*
      //DWWCON1  DD DSN=DWWUSER.V430.DWWCON1.GRPPROD,DISP=SHR
      //DWWCON2  DD DSN=DWWUSER.V430.DWWCON2.GRPPROD,DISP=SHR
      //DWWCON3  DD DSN=DWWUSER.V430.DWWCON3.GRPPROD,DISP=SHR
      //         PEND
      //* END OF PROC
      )ENDSEL
  4. Select 1, List of VSAM spheres, from the "CICS VR main menu"
  5. Select CICS VR VSAM sphere list include window and press Enter to open the "CICS VR VSAM sphere list" window. In the "CICS VR VSAM sphere list include"window, type DWWUSER.V430.CUSTOMER in the VSAM sphere field as shown below, and press Enter.
    • CICSVR VSAM sphere list include                      
      Command ===>                                                              
                                                                                
      Specify VSAM sphere list search criteria, then press Enter.               
                                                                               
      VSAM sphere . . . . . . . DWWUSER.V430.CUSTOMER                           
                                                                                
                                                                                
                                         OR                                     
                                                                                
      Specify the name of a data set that contains a list of VSAM spheres,      
      then press Enter.                                                         
                                                                                
      Data Set Name . . .                                                       
    • The sphere list panel displays the one and only DWWUSER.V430.CUSTOMER.
      Administrate  Utilities  Tools  List  View  Help                             
      ------------------------------------------------------------------------------ 
                                 CICSVR VSAM sphere list             Row 1 to 1 of 1 
      Command ===>                                                                   
                                                                                     
      Select one or more VSAM spheres, then select an action.                        
                                                                                     
      N  Use default parameters for selected spheres                                 
      S  VSAM sphere                                   Scan time (Local)       RR bit
      s  CICSMVS.V430.CUSTOMER                         00.001 00:00:00               
      ******************************* Bottom of data ********************************                    
  6. Select the first, and only, sphere in the list and press F5 to perform only forward recovery. The "CICS VR VSAM sphere parameters" window opens:
    CICSVR VSAM sphere parameters                       
    Command ===>                                                              
                                                                              
    Press F4 when the cursor is in the Backup time field to get a list of data
    set backup times. Press Enter to continue.                                
                                                                              
      VSAM sphere . . . . . . : DWWUSER.V430.CUSTOMER                         
      New VSAM sphere name  . . DWWUSER.V430.CUSTOMER.NEW                     
      Forward-recovery start time . . 08.144 12:29:12  (YY.DDD HH:MM:SS)      
      Forward-recovery stop time  . .                  (YY.DDD HH:MM:SS)      
      Backup time . . . . . . . . . .                  + (YY.DDD HH:MM:SS)    
      Time format . . . . . Local  +    Backup type  . None              +    
      Volume for restore . .            Unit for restore . . . . .            
                                                                              
     F1=Help  F4=Prompt  F5=GetDef  F6=SaveDef F7=PrevVSAM  F12=Cancel         
  7. Complete the following fields:
    • New VSAM Sphere name.............&THLQ.CUSTOMER.NEW (where &THLQ is the high level qualifier used in job DWWVRDEF).
    • Forward recovery start time...........yy.ddd hh:mm:ss (that is, the time the DWWRUNBL job started).
    Press Enter.
  8. In the "CICS VR log stream type" window select 1, MVS logger log stream, and press Enter.
  9. In the "CICS VR forward recovery only" window, select CICS VR exits, and press Enter.
  10. In the "CICS VR exits" window type DWWPREEX in the Preapply field as shown below, and press Enter.
    CICSVR exits
    Command ===>
    Specify member names for the CICSVR exits. Press Enter to use the
    displayed member names in the recovery.
        Preapply . . . DWWPREEX
        Error . . . . .
        ESDS delete . .
        Termination . .
    
    F1=Help F5=GetDef F6=SaveDef F12=Cancel
  11. Press Enter again to create the JCL.
  12. Select option 2 Browse the job to view the generated job.
    Figure 2. The generated job
    //CICSRS31 JOB (ACCOUNT),MSGLEVEL=(1,1),NOTIFY=&SYSUID,              
    //             MSGCLASS=X,CLASS=A,REGION=4M
    /*JOBPARM L=999,SYSAFF=SC66                           
    //DWW      PROC                                                      
    //RECOVER  EXEC PGM=DWWCO,COND=(8,LE)                                
    //STEPLIB  DD DSN=DWW.V430.SDWWLOAD,DISP=SHR                         
    //         DD DSN=DWW.V430.SDWWLENU,DISP=SHR                         
    //         DD DSN=DWW.V430.DWWEXLD,DISP=SHR                          
    //DWWMSG   DD SYSOUT=*                                               
    //DWWPRINT DD SYSOUT=*                                               
    //DWWCON1  DD DISP=SHR,DSN=DWWUSER.V430.DWWCON1.GRPPROD              
    //DWWCON2  DD DISP=SHR,DSN=DWWUSER.V430.DWWCON2.GRPPROD              
    //DWWCON3  DD DISP=SHR,DSN=DWWUSER.V430.DWWCON3.GRPPROD              
    //         PEND                                                      
    //* END OF PROC                                                      
    //DWW001 EXEC DWW,COND=(8,LT)                                        
    //DWWIN    DD   *                                                    
      RECOVER                  -                                
        ONLY                -                                   
        NEWSPHERE(DWWUSER.V430.CUSTOMER.NEW)      -             
        APPLYCA         -                                       
        STARTTIME(08.144/12:29:17)       -                      
        STOPTIME(08.144/12:29:18)         -                     
        STARTAT(DSNAME)          -                              
        SPHERE(DWWUSER.V430.CUSTOMER)                           
      MVSLOG                     -                              
        NAME(DWWUSER.IVP.FILELOG)                               
      BLDVRP                                                    
      DEFEXIT                    -                              
        PREAPPLY(DWWPREEX,NEW)                                  
    //*         
  13. Select 1 to submit the JCL.

When the job has completed you can use any standard utility to view the job output. The results of the Forward Recovery is as follows:

The journal contains 6 records:
Figure 3. Journal data set statistics
---------------------------------------------
 UPD-AFTER  UPDATE AFTER IMAGE
 ADD-AFTER  ADD AFTER IMAGE
 DEL-AFTER  DELETE AFTER IMAGE
 DSNAME     DDNAME TO SPHERE AND PATH NAME
 ---------------------------------------------
-                              NO OF RECORDS       NO OF       NO OF       NO OF       NO OF
 NAME OF MVS LOG STREAM            PROCESSED      DSNAME   UPD-AFTER   ADD-AFTER   DEL-AFTER
 ----------------------------  -------------   ---------   ---------   ---------   ---------
 DWWUSER.IVP.FILELOG                      6           1           0           5           0
 ----------------------------  -------------   ---------   ---------   ---------   ---------
 TOTAL                                    6           1           0           5           0
 ----------------------------  -------------   ---------   ---------   ---------   ---------
Verify the results of the IVP recovery. The journal data statistics are shown in the figure above and the recovery progress reports are shown below:
Figure 4. Recovery progress report
RECOVERY PROGRESS REPORT
 --------------------------


 VSAM SPHERE NAME: DWWUSER.V430.CUSTOMER

 NO PREVIOUS FORWARD RECOVERY REGISTERED FOR THIS VSAM SPHERE.


 THIS FORWARD RECOVERY WAS RUN AT: 08.144 13:48:09
 TYPE OF RECOVERY : FORWARD RECOVERY IN ONE STEP ONLY.

 THE VSAM RECOVERY REQUESTED BIT WAS SUCCESSFULLY SET.
 THERE WERE NO VSAM RLS LOCKS TO UNBIND.
 NO AIXS WERE REMOVED FROM THE UPGRADE SET.
 FORWARD RECOVERY RAN SUCCESSFULLY.
 NO AIXS NEEDED TO BE REBUILT.
Figure 5. Recovery progress report for non-RLS VSAM spheres
RECOVERY PROGRESS REPORT     
--------------------------   

VSAM SPHERE NAME: DWWUSER.V430.CUSTOMER 

NO PREVIOUS FORWARD RECOVERY REGISTERED FOR THIS VSAM SPHERE.      
                                                                                                                                      
THIS FORWARD RECOVERY WAS RUN AT: 09.302 08:31:05 
TYPE OF RECOVERY : FORWARD RECOVERY IN ONE STEP ONLY. 

THE VSAM RECOVERY REQUESTED BIT WAS NOT SET 
BECAUSE THERE IS NO VSAM RLS SUPPORT FOR THIS VSAM SPHERE.
UNBINDING THE VSAM RLS LOCKS WAS SKIPPED 
BECAUSE THERE IS NO VSAM RLS SUPPORT FOR THIS VSAM SPHERE.
NO AIXS WERE REMOVED FROM THE UPGRADE SET. 
FORWARD RECOVERY RAN SUCCESSFULLY. 
NO AIXS NEEDED TO BE REBUILT.
End of change