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.

Start CICS® VR dialog by issuing this command EXEC‘DWW.V630.SDWWCNTL.OUT(DWWCLIST) to display the CICS® VR main menu.
Select option 5 from the CICS® VR main menu.

Verify the JCL skeleton to ensure the following:

The correct job is specified.
hlq.SDWWLOAD, hlq.SDWWLENU and hlq.DWWEXLD are added to STEPLIB.

This example shows the JCL skeleton that is used in this CICS® VR environment.

Figure 1. JCL skeleton

)SET HLQ = DWW.V630
//CICSRS3&CJOBCHAR JOB (ACCOUNT),MSGLEVEL=(1,1),NOTIFY=&&SYSUID,  
// MSGCLASS=X,CLASS=A,REGION=4M                                   
/*JOBPARM L=9999,SYSAFF=SC66                                      
)SEL &CUTIL NE BACKUP                                             
//DWW      PROC                                                   
//&CUTIL   EXEC PGM=&CPROG,COND=(8,LE)                            
//STEPLIB  DD DSN=&HLQ..SDWWLOAD,DISP=SHR                         
//         DD DSN=&HLQ..SDWWLENU,DISP=SHR                         
//         DD DSN=&HLQ..DWWEXLD,DISP=SHR                          
//DWWMSG   DD SYSOUT=*                                            
//DWWPRINT DD SYSOUT=*                                            
//DWWDUMP  DD SYSOUT=*                                            
//         PEND

Select 1, List of VSAM spheres, from the CICS® VR main menu

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.V630.CUSTOMER in the VSAM sphere field as shown here, and press Enter.

CICSVR VSAM sphere list include                      
Command ===>                                                              
                                                                          
Specify VSAM sphere list search criteria, then press Enter.               
                                                                         
VSAM sphere . . . . . . . DWWUSER.V630.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.V630.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  DWWUSER.V630.CUSTOMER                         00.001 00:00:00               
******************************* Bottom of data ********************************

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.V630.CUSTOMER                         
  New VSAM sphere name  . . DWWUSER.V630.CUSTOMER.NEW                     
  Forward-recovery start time . . 14.030 13:28:06  (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

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.
In the CICS® VR log stream type window select 1, MVS logger log stream, and press Enter.
In the CICS® VR forward recovery only window, select CICS VR exits, and press Enter.

In the CICS® VR exits window type DWWPREEX in the Preapply field as shown here, 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

Press Enter again to create the JCL.

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                                             
//FORWARD   EXEC PGM=DWWCO,COND=(8,LE)                      
//STEPLIB  DD DSN=DWW.V630.SDWWLOAD,DISP=SHR          
//         DD DSN=DWW.V630.SDWWLENU,DISP=SHR          
//         DD DSN=DWW.V630.DWWEXLD,DISP=SHR           
//DWWMSG   DD SYSOUT=*                                      
//DWWPRINT DD SYSOUT=*                                      
//DWWDUMP  DD SYSOUT=*                                      
//         PEND                                             
//DWW001 EXEC DWW,COND=(8,LT) 
//DWWCON1 DD DISP=SHR,DSN=DWWUSER.V630.DWWCON1.GRPPROD 
//DWWCON2 DD DISP=SHR,DSN=DWWUSER.V630.DWWCON2.GRPPROD 
//DWWCON3 DD DISP=SHR,DSN=DWWUSER.V630.DWWCON3.GRPPROD                               
//DWWIN    DD   *                                   
  RECOVER                  -                        
    ONLY                -                             
  NEWSPHERE(DWWUSER.V630.CUSTOMER.NEW)      -           
  APPLYCA         -                                 
  STARTTIME(14.030/13:28:08)       -                
  STOPTIME(14.030/13:28:09)         -               
  STARTAT(DSNAME)          -                        
  SPHERE(DWWUSER.V630.CUSTOMER)                       
MVSLOG                     -                        
  NAME(DWWUSER.IVP.FILELOG)                       
BLDVRP                                            
DEFEXIT                    -                        
  PREAPPLY(DWWPREEX,NEW)                        
//*

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:

One DSNAME records
Five file control records after-images. These five file control after-image records consist of:
- Zero UPD_AFTER
- Five ADD-AFTER
- Zero DEL-AFTER

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 Journal data set statistics and the recovery progress reports are shown below:

Figure 4. Recovery progress report

RECOVERY PROGRESS REPORT
 --------------------------


 VSAM SPHERE NAME: DWWUSER.V630.CUSTOMER

 NO PREVIOUS FORWARD RECOVERY REGISTERED FOR THIS VSAM SPHERE.


 THIS FORWARD RECOVERY WAS RUN AT: 14.030 14:54:07
 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.V630.CUSTOMER 

NO PREVIOUS FORWARD RECOVERY REGISTERED FOR THIS VSAM SPHERE.      
                                                                                                                                      
THIS FORWARD RECOVERY WAS RUN AT: 12.201 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.